Dialog O aplikaci |
![]() |
Postup: Založte nový projekt. Do deklarační části formuláře zapište: Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hwnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long Na formulář přidejte tlačítko a na jeho událost Click: Shellabout Me.hWnd, "Aplikace", "Různý text", Me.Icon Spusťte aplikaci. Po klepnutí na tlačítko se zobrazí dialog. |
![]() |
Autor: The Bozena |