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
Pratite Krstaricu na www.krstarica.com