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

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

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 3.885 RSS
←   Апрель 2001   →
 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


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


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

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

Статистика

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

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


Служба Рассылок Subscribe.Ru проекта Citycat.Ru
Русский_Проект:Рассылка Девятый выпуск

Содержание
1 Вступление
2 Новости сайта
3 Функции API

Вступление

Здравствуйте! Если у вас есть способности к рисованию, то присылайте ваши работы(кнопочки, баннеры, рисунки), которые на ваш взгляд могли бы украсить сайт. Спасибо.

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

Наконец-то закончена работа над справочником по FilySystemObject. Выложены несколько примеров и игр, достойных вашего внимания.

Функции API

Функция SHBrowseForFolder

SHBrowseForFolder открывает диалоговое окно Обзор папок для выбора пользователем нужной папки. Выбранная папка может быть физической папкой на диске или виртуальной папкой.

Параметры
lpbi
Содержит все необходимые настройки для инициализации диалогового окна Обзор папок. Также эта структура получает некоторую информацию от функции при успешном ее завершении

Пример
' Откроем диалоговое окно
' Обзор папок и покажем имя выбранной папки

Dim iNull As Integer
Dim lpIDList As Long, lResult As Long
Dim sPath As String, udtBI As BrowseInfo

  With udtBI
 ' Окно владельца
   .hWndOwner = Me.hWnd
   'lstrcat связывает две строки
   ' и возвращает адрес в памяти
   .lpszTitle = lstrcat("C:\", "")
   .ulFlags = BIF_RETURNONLYFSDIRS
  End With

' Показываем диалоговое окно
lpIDList = SHBrowseForFolder(udtBI)
 If lpIDList Then
  sPath = String$(MAX_PATH, 0)
' Получаем путь из IDList
  SHGetPathFromIDList lpIDList, sPath
 ' Освобождаем память
  CoTaskMemFree lpIDList
  iNull = InStr(sPath, vbNullChar)
    If iNull Then
      sPath = Left$(sPath, iNull - 1)
    End If
 End If
MsgBox sPath
Полный текст с описанием этой функции вы найдете в новой версии справочника по функциям API(209 функций), который скоро появится на сайте!
Спасибо тем, кто приобрел справочник! Если вы еще не зарегистрировались, то поспешите, пока действует специальная цена.

Не стесняйтесь, высылайте ваши предложения по адресу vbasic@rambler.ru
Посетите сайт Русский_Проект, где вы найдете другую интересную информацию
Давайте делать рассылку вместе! Удачи!

http://subscribe.ru/
E-mail: ask@subscribe.ru
В избранное