Visual Basic - Poziv klasičnog Windows "Run" dijaloga

Prikazaćemo vam jednu vrlo zanimljivu mogućnost, koju možete ugraditi u vaše Visual Basic programe. Radi se o mogućnosti da iz vaših aplikacija pozovete klasični Windows "Run" dijalog prozor. U stvari, omogućićete korisnicima vaših programa da koriste komandnu liniju (zbog raznoraznih potreba). Zaboravite "Shell" instrukciju, i iskoristite narednu funkciju koju ćemo vam predstaviti. Funkcija koju smo nazvali "PrikaziRunDijalog" koristi, slabo dokumentovan poziv funkcije "SHRunDialog", koja se nalazi u biblioteci Shell32.dll. Evo i same funkcije "PrikaziRunDijalog":

 Public Sub PrikaziRunDijalog(ByRef CallingForm As Form, _
                      Optional Title As Variant, _
                      Optional Description As Variant)
   If Title = "" Then Title = "Run"

   If Description = "" Then
      Description = "Ukucajte naziv programa koji zelite da pokrenete, " _
                     & "pa kliknite OK."

    SHRunDialog CallingForm.hWnd, 0, 0, Title, Description, 0
 End Sub

Funkciju ubacite u vaš projekat, dodajte dugme za poziv Run dijaloga (ili dodajte stavku u meni), a poziv funkcije dodelite obrađivaču događaja "Click":

 Private Sub Command1_Click()
 Call PrikaziRunDijalog(Form1, "Run dijalog", "Poziv dijalog prozora")
 End Sub

Unutar parametara "Title" i "Description" možete ubaciti sopstveni tekst, koji će se pojaviti u naslovnoj liniji, i na formi "Run" dijalog prozora (kao na slici). I na kraju da ne zaboravimo, da u odeljak deklaracija (General Declarations) dodamo:

 Private Declare Function SHRunDialog Lib "shell32" _
    Alias "#61" (ByVal hOwner As Long, ByVal UnknownP1 _
    As Long, ByVal UnknownP2 As Long, ByVal szTitle _
    As String, ByVal szPrompt As String, ByVal uFlags _
    As Long) As Long