USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Windows)

Título da Dica:  Usando a Caixa "Sobre" Padrão do Windows
Postada em 14/8/2000 por Webmaster      Clique aqui para enviar email para o autor  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.
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página