Visual Basic: новости сайтов, советы, примеры кодов.
Выпуск 102.


VBNet VBMania
Голосование:

Покупали ли Вы CD или книги с сайта VBNet.Ru?

Да, конечно
Только книги
Только диски
Просто игнорирую




Рассылки Subscribe.Ru
VB.NET-World


Рассылки Subscribe.Ru
Старые игры

Доска почёта:

Sergey Y. Tkachev
Кононенко Роман
Kirill
Sergey Sapozhnikov
Sobic

Ссылки:

  • Улицы VB
  • Использование VB
  • Азбука VB
  • Улицы VB
  • Кирпичики VB
  • CообЧа VB
  • VB по русски
  • Snoozex Design
  • IgorykSoft
  • Господа!!! читайте MSDN!!!

    Несколько слов от автора:

       Опять новый выпуск. Читайте новости.
    Читайте!


    Содержание выпуска




    Книги

    Переход на VB .NET. Стратегии, концепции, код (цена ~ 158 руб.)

    Эта книга была задумана как одна из первых книг о.NET, которая ознакомит читателя с основными идеями новой архитектуры и подготовит его к знакомству с более детальной литературой, например документацией Microsoft и ее толкованиями, которая неизбежно появится на рынке. Она поможет вам взглянуть на эту технологию с позиций ваших собственных рабочих планов и быстро освоить те концепции, которые покажутся необычными для большинства прогр...

    Автор(ы): Дан Эпплман, Издательство: Питер, 2002 г.


    Программирование на VB.NET. Учебный курс (цена ~ 119 руб.)

    Эта книга является вводным курсом по изучению языка программирования Visual Basic .NET. Даны основные принципы объектно-ориентированного программирования в контексте языка VB .NET, поскольку без хорошей подготовки в этой области невозможно в полной мере пользоваться всеми преимуществами VB .NET.
    Изложены азы всех аспектов языка, которыми должен владеть любой профессиональный разработчик VB .NET

    Автор(ы): Г. Корнелл, Дж. Моррисон, Издательство: Питер, 2002 г.


    VB.NET для разработчиков (цена ~ 125 руб.)

    Основная задача книги - быстро ознакомить разработчиков Visual Basic с изменениями в .NET Framework. Программисты, использующие Java, C++, Delphi или другие инструменты разработки приложений и интересующиеся Visual Basic или технологией .NET Framework, также найдут эту книгу полезной. Хотя книга посвящена Visual Basic.NET, ее основная цель - продемонстрировать взаимодействие Visual Basic и ...

    Автор(ы): Кит Франклин, Издательство: Вильямс, 2002 г.




    Остальные книги о VB можно найти
    здесь.

    наверх


    Citycat by Email

       Программа Citycat by Email позволяет работать с сервером Subscribe.ru с помощью электронной почты. Теперь Вам не нужно тратить деньги на работу в online и просматривать мегабайты рекламы для того, чтобы подписаться на нужную рассылку! Вам просто необходимо скачать небольшую базу данных по всем рассылкам каталога с нашего сайта, после чего Вы сможете подписываться и отписываться от рассылок, заказывать архивы прошлых выпусков, выполнять поиск по каталогу рассылок и многое другое.
       Программу Citycat by Email можно бесплатно загрузить с сайта http://sapisoft.h1.ru.

    наверх


    Новости сайта VBNet

    Дата: 19.10.2002 05:52 | Раздел: Полезные программы | Автор: Малинин Алексей, Павлова Ольга

    Интеграция VBA в бизнес-приложения на Visual Basic 6.0 - Практически все пользователи имеют дело с офисными пакетами Microsoft, причем многие из них адаптируют эти продукты в соответствии со спецификой своих конкретных задач, используя внутренний макроязык. При создании собственных приложений вам наверняка хотелось бы, чтобы конечный пользователь мог щелчком мыши открыть среду VBA и программировать там так же, как в пакетах Microsoft Office. Но как это реализовать?

    Дата: 17.10.2002 06:03 | Раздел: ActiveX контролы | Автор: Селюк Степан

    Русификатор Visual Basic 6. Версия номер 2. - Эта программа полностью переведёт меню (причём это не то, что меню переведены каким-нибудь переводчиком, они переведены исключительно автором) в редакторе Visual Basic, также переведено 90% диалогов, плюс исправлены ошибки допущенные в первой версии!

    Дата: 15.10.2002 10:56 | Раздел: ActiveX контролы | Автор: Соколов Алексей

    FontView - Вы видели выпадающий список шрифтов в CorelDraw? Тут что - то подобное. При проходе мышью над названием шрифта появляется окошко ToolTip с его начертанием.



    Последние 20 тем форума на VBNet.Ru:

    22:20 / 19 окт.  SQL в Интернете | Хитов: 5 |  Ответов: 0
    20:02 / 19 окт.  Вопрос по ресурсам | Хитов: 5 |  Ответов: 0
    17:56 / 19 окт.  Не знаю как сохранить страницу открытую в WebBr... | Хитов: 7 |  Ответов: 0
    12:15 / 19 окт.  MySQL, ASP, PHP..... | Хитов: 17 |  Ответов: 1
    03:05 / 19 окт.  2 вопроса: 1й - IP 2й - создание объектов... | Хитов: 25 |  Ответов: 3
    22:51 / 18 окт.  Новости | Хитов: 21 |  Ответов: 1
    00:02 / 18 окт.  Блин опять SQL! | Хитов: 41 |  Ответов: 1
    22:57 / 17 окт.  FastLib 2000 | Хитов: 32 |  Ответов: 1
    20:55 / 17 окт.  Форма и Курсор | Хитов: 49 |  Ответов: 3
    19:39 / 17 окт.  Windows Api | Хитов: 60 |  Ответов: 3
    17:52 / 17 окт.  GTA3 | Хитов: 32 |  Ответов: 0
    17:19 / 17 окт.  WINSOCK sos | Хитов: 24 |  Ответов: 0
    16:56 / 17 окт.  Переход БД ACCESS к ASP. Как быть с полем OLE? | Хитов: 21 |  Ответов: 0
    16:37 / 17 окт.  Как получить список установленных в системе Act... | Хитов: 21 |  Ответов: 0
    15:34 / 17 окт.  Головная боль с Вордом продолжается | Хитов: 43 |  Ответов: 3
    15:14 / 17 окт.  скорость вызова... | Хитов: 31 |  Ответов: 1
    12:43 / 17 окт.  hwnd панели StatusBar'a | Хитов: 28 |  Ответов: 1
    11:49 / 17 окт.  Word + VB = question (обновлено) | Хитов: 28 |  Ответов: 2
    08:35 / 17 окт.  проблемы с DataEnvinronment + SQL Server2000 | Хитов: 12 |  Ответов: 0
    07:57 / 17 окт.  Help для VB5 | Хитов: 15 |  Ответов: 1


    Последние поступления в Библиотеку кодов:



    наверх


    Новости сайта VBMania



    наверх


    Новости сайта Азбука VB



    наверх


    Доска объявлений

       Ищу телеработу.

    • Переводы: английский, украинский, русский.
    • Cipper программист.
    • Assembler программист.
    • PIC разработчик
    • композитор
    • Прогрессивные стили
    • 3D анимация
    • GIF анимация
    Антон Лозовский.

    наверх


    Мои программы

    BalloonMessage for MS Agent

       BalloonMessage for Microsoft Agent реализует диалог программы с пользователем, используя при этом технологию Microsoft Agent. OCX реализует три типа диалоговых окон: InputBox, MsgBox и MsgLabels.

    Авторы: Шатрыкин Иван и Павел Сурменок.

    наверх

    Вопрос/Ответ

    Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы.

    Вопросы:


    Автор вопроса:
    Diman

    Ответ ожидается по этому адресу

       Вопрос 1: Как сделать так,чтобы программу невозможно было выгрузить, а если её выгрузить, то запускалась бы копия программы.
    Вопрос 2: У меня есть программа. Как сделать так, чтобы она брала данные из внешнего файла (например .txt) и загружала их оттуда (В этом файле должны находиться переменные вместе с данными)


    Автор вопроса: МАЯК

    Ответ ожидается по этому адресу

       Хелп плиз, как зделать так, чтоб моя программа повторно не запускалась а при попытке повторного запуска выдала сообщение типа "программа уже запущена"


    Автор вопроса: МАЯК

    Ответ ожидается по этому адресу

       Люди, подскажите пожалуйста, ломаю голову какой код вписать, чтоб при нажатии на кнопку, программа проверила наличие файла в директории и при его наличии в строке имя файла отобразилось имя того же файла только с еденицей, при наличии файла с еденицей предложила вариант с двойкой, вобщем как в WORDE, а при попытке сохранить файл под имеющемся именем, выдала системное сообщение "файл с таким именем уже есть, хотите его заменить?. Я сделал так а дальше незнаю....
      
    Private Sub ShowSave()
    Объявил две переменные файл_пом и Файл_библиотека.
    On Error GoTo ErrorHandler
    CommonDialog1.CancelError = True
    CommonDialog1.Filter = "All Files (*.*)|*.*|Word Documents (*.doc )|*.doc |Text Files (*.txt)|*.txt|"
    CommonDialog1.FilterIndex = 3
    CommonDialog1.InitDir = "D:\DOCUMENTS"
    'CommonDialog1.Flags = cdlOFNFileMustExist Or cdlOFNAllowMultiselect
    CommonDialog1.Action = 2
      
    Файл_библиотека = App.Path + "\Sveden1.ph" ' файл *.bib
    *-*-*-*-*-*-**-*-*-*-*-*-*-*-*-*-*
    файл_пом = CMDialog1.FileName 'придаем переменной файл_пом, адрес места
    'расположения файла с данными адреса расположения файла *.bib
    If Dir(файл_пом) = "" Then
    1
      
    '***********
      
    'Здесь мой код.
    '**********
      
    Exit Sub
    ErrorHandler:
    If Err.Number = 32755 Then Exit Sub
    Else
    If MsgBox("Заменить существующий файл" & " " & " " & файл_пом, vbYesNo + vbExclamation, "Выход?") = vbYes Then
    GoTo 1001
    Else
    Exit Sub
    End If
    End Sub
      

    End Sub
      
    '.FileName ( .Font, .Color, .FromPage, .ToPage, .Copies, .Orientation)


    Автор вопроса: OLEG

    Ответ ожидается по этому адресу

       Как мне по имеющемуся пути осуществить перебор всех файлов, находящихся в данной конкретной папке (исключая подпапки).
    Есть ли такая вояможность в VB6 или какими функциями API необходимо польяоваться?


    Автор вопроса: Саша

    Ответ ожидается по этому адресу

       Что такое ScaleWidth и ScaleHeight? Чем отличаются от Width и Height?


    Автор вопроса: Сергей

    Ответ ожидается по этому адресу

       1. Как из ВБ 6 открыть мои док, или например нажать кнопку в окне установки связи с Интернет
    2. У меня на вэб-странице есть ВБ 6-форма с окном Text, в который можно вписывать текст.Как добавить этот текст в мою форму на сервере, чтобы при новом открытии страницы этот текст сохранялся


    Автор вопроса: Толя

    Ответ ожидается по этому адресу

       Соядание и редактирование явуков VB6.
    Ау, светлые головы, откликнитесь!


    Автор вопроса: SD

    Ответ ожидается по этому адресу

       Подскажите как в VB написать подобие ping(пинга) через API.


    Автор вопроса: Stas

    Ответ ожидается по этому адресу

       Как записывать в реестр DWORD параметр, и читать его.
    Напишите пожалуйста пример.


    Автор вопроса: Саша

    Ответ ожидается по этому адресу

       Работаю с Win 5.0
    у меня программа ассоциирована к расширению .zzz
    Я хочу уянать полный путь к программе которая накодится в командной строке. Я делаю это с помощью

    Private Declare Function GetCommandLine Lib "kernel32" Alias "GetCommandLineA" () As String

    Под win9x все нормально,но под NT происход крах программы. Есть ли артальнотива это функции или другой способ яделать это ?


    Автор вопроса: Eugene KRUGLOFF

    Ответ ожидается по этому адресу

       Почему в VB6 на WinXP не работают такие функции API как - ChangeDisplaySettings и ExitWindowsEx?
    Тот же код, но на ос Win9X, работает.


    Автор вопроса: karty

    Ответ ожидается по этому адресу

       Как сделать так,чтобы при перетаскивании объекта в TREEVIEW, ветки над которыми проходит курсор мыши, выделялись и раскрывались.




    Ответы:


    Вопрос:

       вопрос по RichTextBox
    Как яделать так, что бы когда нажимали на Shift+Insert вставка была неформатированная т.е. просто текст

    Ответ:

    Автор ответа: Ревягин_Алексей

    Попробуй в процессе вставки присвоить буферу тип String, тогда вставятся только символы (без форматирования цветом, шрифтом, ...)


    Вопрос:

       Как при работе с DAO новую запись в таблицу добавить не в конец таблицы, а в нужное мне место.

    Ответ:

    Автор ответа: Ревягин_Алексей

    Может попробовать после добавления в конец таблицы применить сортировку ...


    Вопрос:

       Как в VB яавершить работу приложения Windows?

    Ответ:

    Автор ответа: Ревягин_Алексей

    Либо с помощью API, либо послать приложению клавиши Alt+F4


    Вопрос:

       Как скопировать из папки все файлы одного расширения?

    Ответ:

    Автор ответа: Duke

    Надо попробовать через FSO (file systen object) почитай доки в инете точно найдеш !


    Вопрос:

       Скажите пожалуйста каким образом сделать переворот картинки по вертикали (горизонтали), делаю в PictureBox, верно ли?

    Ответ:

    Автор ответа: Duke

    Есть сайт www.vbrussian.ru кажется так, дак на нем есть пример поищи !


    Вопрос:

       Есть игрушка для моей дочки, Clifford называется (может кто знает), про собаку, которая учит жизни. Так вот, эта собака не хочет заводиться если разрешение экрана более чем 800х600. Когда я на работе, дочка не может поиграть, а учить как менять разрешение экрана, я не хочу (ей 5 лет - рано еще).
    Так вот, собрался я наваять минипрогу на ВБ которая меняет разрешение экрана, запускает игрушку, а после завершении игры, восстанавливало разрешение, и столкнулся с проблемой: так как же из ВБ менять разрешение экрана?
    Кстати, ОС Win_XP, так что желательно чтоб ответы подходили под XP.

    Ответ:

    Автор ответа: Duke

    Этот код выдран из апигуарда. Разбирайся и ваяй. Выполнение проги команда shell кстати в ХР есль совместимость так что ставь 9х и живи спокойно. Короче пока !

    Option Explicit
    Const WM_DISPLAYCHANGE = &H7E
    Const HWND_BROADCAST = &HFFFF&
    Const EWX_LOGOFF = 0
    Const EWX_SHUTDOWN = 1
    Const EWX_REBOOT = 2
    Const EWX_FORCE = 4
    Const CCDEVICENAME = 32
    Const CCFORMNAME = 32
    Const DM_BITSPERPEL = &H40000
    Const DM_PELSWIDTH = &H80000
    Const DM_PELSHEIGHT = &H100000
    Const CDS_UPDATEREGISTRY = &H1
    Const CDS_TEST = &H4
    Const DISP_CHANGE_SUCCESSFUL = 0
    Const DISP_CHANGE_RESTART = 1
    Const BITSPIXEL = 12
    Private Type DEVMODE
         dmDeviceName As String * CCDEVICENAME
         dmSpecVersion As Integer
         dmDriverVersion As Integer
         dmSize As Integer
         dmDriverExtra As Integer
         dmFields As Long
         dmOrientation As Integer
         dmPaperSize As Integer
         dmPaperLength As Integer
         dmPaperWidth As Integer
         dmScale As Integer
         dmCopies As Integer
         dmDefaultSource As Integer
         dmPrintQuality As Integer
         dmColor As Integer
         dmDuplex As Integer
         dmYResolution As Integer
         dmTTOption As Integer
         dmCollate As Integer
         dmFormName As String * CCFORMNAME
         dmUnusedPadding As Integer
         dmBitsPerPel As Integer
         dmPelsWidth As Long
         dmPelsHeight As Long
         dmDisplayFlags As Long
         dmDisplayFrequency As Long
    End Type
    Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lpDevMode As Any) As Boolean
    Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lpDevMode As Any, ByVal dwFlags As Long) As Long
    Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
    Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
    Private Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, ByVal lpInitData As Any) As Long
    Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
    Dim OldX As Long, OldY As Long, nDC As Long
    Sub ChangeRes(X As Long, Y As Long, Bits As Long)
         Dim DevM As DEVMODE, ScInfo As Long, erg As Long, an As VbMsgBoxResult
         'Get the info into DevM
         erg = EnumDisplaySettings(0&, 0&, DevM)
         'This is what we're going to change
         DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT Or DM_BITSPERPEL
         DevM.dmPelsWidth = X 'ScreenWidth
         DevM.dmPelsHeight = Y 'ScreenHeight
         DevM.dmBitsPerPel = Bits '(can be 8, 16, 24, 32 or even 4)
         'Now change the display and check if possible
         erg = ChangeDisplaySettings(DevM, CDS_TEST)
         'Check if succesfull
         Select Case erg&
             Case DISP_CHANGE_RESTART
                 an = MsgBox("You've to reboot", vbYesNo + vbSystemModal, "Info")
                 If an = vbYes Then
                     erg& = ExitWindowsEx(EWX_REBOOT, 0&)
                 End If
             Case DISP_CHANGE_SUCCESSFUL
                 erg = ChangeDisplaySettings(DevM, CDS_UPDATEREGISTRY)
                 ScInfo = Y * 2 ^ 16 + X
                 'Notify all the windows of the screen resolution change
                 SendMessage HWND_BROADCAST, WM_DISPLAYCHANGE, ByVal Bits, ByVal ScInfo
                 MsgBox "Everything's ok", vbOKOnly + vbSystemModal, "It worked!"
             Case Else
                 MsgBox "Mode not supported", vbOKOnly + vbSystemModal, "Error"
         End Select
    End Sub
    Private Sub Form_Load()
         Dim nDC As Long
         'retrieve the screen's resolution
         OldX = Screen.Width / Screen.TwipsPerPixelX
         OldY = Screen.Height / Screen.TwipsPerPixelY
         'Create a device context, compatible with the screen
         nDC = CreateDC("DISPLAY", vbNullString, vbNullString, ByVal 0&)
         'Change the screen's resolution
         ChangeRes 640, 480, GetDeviceCaps(nDC, BITSPIXEL)
    End Sub
    Private Sub Form_Unload(Cancel As Integer)
         'restore the screen resolution
         ChangeRes OldX, OldY, GetDeviceCaps(nDC, BITSPIXEL)
         'delete our device context
         DeleteDC nDC
    End Sub


    Вопрос:

       Есть такая проблема. Работаю с DirectX весь код пишу сам, никакими контролами не пользуюсь. Ставлю простой кубик и двигаю его программно, если он подвигается очень близко к позиции камеры, тоесть к экрану, начинает жутко тормозить 1fps. В играх же целый уровень нетормозит. Подскажите что делать. И если кто нибудь знает где взять описание этих функций, желательно с примерами.

    Ответ:

    Автор ответа: Duke

    Скажу одно реализовать работу с 3д графикой на VB - ЛАЖА с большой буквы Б. Бери учебник по c++ либо DarkBasic он попроще !


    Вопрос:

       Как на VB 6.0 под Windows 98/XP сделать так, чтобы программа добавляла сама себя в реестр или в автозагрузку?

    Ответ:

    Автор ответа: Duke

    С разделе примеры на сайте www.rusproject.narod.ru есть исходник проги дабавления и убивания из автозагрузки !


    Можете заполнить эту форму, либо отослать вопрос СЮДА

    Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта.
    Текст сообщения:
    Ваше имя
    E-mail для ответа

    наверх


    Выпуск подготовили:

    Сурменок Павел