Visual Basic FAQ

Как показать диалоговое окно запуска программы

Option Explicit
Private Declare Function SHRunDialog Lib "shell32" Alias "#61" (ByVal hOwner As Long, ByVal hIcon As Long, ByVal sDir As Long, ByVal szTitle As String, ByVal szPrompt As String, ByVal uFlags As Long) As Long 

Private Sub Form_Load()
    Call SHRunDialog(Me.hWnd, Me.Icon, 0, StrConv("Заголовок", vbUnicode), StrConv("Подсказка", vbUnicode), 2)
    ' Параметр uFlags может принимать следующие значения:
        ' 1 - кнопка "Обзор" отсутствует
        ' 2 - ComboBox остается пустым
        ' 8 - надпись "Открыть:" не отображается
End Sub

Запись опубликована on 27.09.2009 at 12:54 и размещена в рубрике: Разное. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.