|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Windows)
|
|
 |
Título da Dica: Usando a Caixa "Sobre" Padrão do Windows
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
Usando a Caixa "Sobre" Padrão do Windows
'Num módulo:
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
Private Function WinAbout(ByVal l_hWnd _
As Long, ByRef pIcon As _
StdPicture, Optional ByVal _
sCopyright As String) As Boolean
Dim lRet As Long
lRet = ShellAbout(l_hWnd, App.ProductName & _
" ", sCopyright, pIcon)
WinAbout = lRet
End Function
'No evento que você desejar chamar a tela
'de About:
Dim bRET As Boolean
bRET = WinAbout(Me.hwnd, Me.Icon, _
"MinhaMarca Ltda.")
If bRET = True Then
MsgBox "A tela de About foi exibida " & _
"sem problemas.", vbInformation
Else
MsgBox "Houve algum erro e a tela de " & _
"About não foi exibida.", _
vbInformation
End If
Detalhe: Para que esta função exiba o nome do programa, preencha o campo "Product Name" na aba "Make" da tela de propriedades do projeto.
|
|
|
|
|
