Отправляет email-рассылки с помощью сервиса Sendsay

Русский_Проект: Изучение Visual Basic

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 3.885 RSS
←   Май 2004   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusproject.narod.ru/
Открыта: 06-01-2001

Автор
Русский_Проект

Статистика

3.885 подписчиков
0 за неделю
←   Все выпуски   →

Русский_Проект: Изучение Visual Basic


Информационный Канал Subscribe.Ru
Здравствуйте!

Сегодняшний выпуск будет полностью посвящен справочникам. Напоминаю, что полные версии доступны только зарегистрированным пользователям, оплатившим эти программы

Справочник по функциям Windows API

В прошлых рассылках мы затрагивали тему визуальных стилей Windows XP. Существует функция API, позволяющая получить имя текущего визуального стиля Windows XP, а также имя цветовой схемы и имя размера. Это функция GetCurrentThemeName.

Параметры

pszThemeFileName
Строка, получающая путь темы и имя файла
dwMaxNameChars
Значение, содержащее максимальное число символов для имени файла темы
pszColorBuff
Указатель на строку, получающий имя цветовой схемы. Можно установить в 0
cchMaxColorChars
Значение, содержащее максимальное число символов для имени цветовой схемы
pszSizeBuff
Указатель на строку, получающий имя размера. Можно установить в 0
cchMaxSizeChars
Значение, содержащее максимальное число символов для имени размера

Пример использования находится в справочнике

Интеграция

Я уже сообщал, что в справочнике Windows API теперь приводятся примеры не только для VB 6.0, но и для VB.NET 2003. Но многие функции в VB.NET были заменены на соответствующие методы классов. В целях дальнейшей интеграции с VB.NET в справочнике будут приводиться аналоги функции в виде ссылок на справочник VB.NET .NET Framework. Поэтому, тем кто уже приобрел справочник по WinAPI, но собирается переходить на VB.NET, стоит подумать о приобретении справочника по VB.NET и .NET Framework. Приведу небольшой список. Обратите внимание, что часто названия функций совпадают с именами классов VB.NET. Но так бывает не всегда. В будущих рассылках вы это увидите Функция WinAPIАналоги в VB.NET
MessageBox, MessageBoxEx, MessageBoxIndirectSystem.Windows.Forms.MessageBox.Show
GetLogicalDrivesStringsSystem.Environment.GetLogicalDrives и System.IO.Directory.GetLogicalDrives
SleepSystem.Threading.Thread.Sleep

Сообщения Windows

И, наконец, третий справочник, который активно пополняется - это справочник по сообщениям Windows. Сегодня мы рассмотрим сообщение LB_FINDSTRING

Const LB_FINDSTRING = &H18F

Приложение посылает сообщение LB_FINDSTRING для нахождения первой строки в списке, начинающей с заданной строки

Параметры

wParam
Задает индекс (отсчет от 0) элемента, с которого начинается поиск. Когда поиск достигнет конца списка, то он продолжает искать с начала списка до выбранного элемента. Для поиска с начала списка используется значение -1
lParam
Строка поиска. Регистр символов не учитывается

Пример

Private Sub Text1_Change()
'поиск строки по вводимым символам
 List1.ListIndex = SendMessage(List1.hWnd, LB_FINDSTRING, -1, _
            ByVal Text1.Text)
End Sub

VB.NET и .NET Framework

Однако вернемся к справочнику по VB.NET и .NET Framework. Сегодня мы рассмотрим класс PrinterSettings, а точнее его свойство InstalledPrinters.

Свойство PrinterSettings.InstalledPrinters получает имена всех принтеров, установленных на компьютере

Вот как можно получить имена всех установленных принтеров 

' Добавьте на форму ListBox
Imports System.Drawing.Printing

Dim AllPrinters As String

' Находим все установленные принтеры
For Each AllPrinters In _
    PrinterSettings.InstalledPrinters
    ListBox1.Items.Add(AllPrinters)
Next AllPrinters

Счастливого вам программирования! Посещайте сайт Русского_Проекта и присылайте свои замечания и предложения!

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу

В избранное