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 |