![]() |
Tipp 0275
|
AboutBox-Demo
|
 |
|
Autor/Einsender: Datum: |
|
Detlev Schubert 04.10.2002 |
|
Entwicklungsumgebung: |
|
VB 5 |
|
|
Das Betriebssystem stellt mit ShellAbout eine API-Funktion zur Verfügung, mit der eine professionelle
Info-Box (AboutBox) angezeigt werden kann, die nicht nur Auskunft über das entsprechende Programm sondern auch über die Ressourcen von Windows gibt.
|
|
|
Option Explicit
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 Sub Command1_Click()
ShellAbout Me.hwnd, "VB-Fun.de Shell-AboutBox", _
"AboutBox von VB-fun.de", Me.Icon
End Sub
|
|
|
|
|
Windows-Version |
95 |
 |
|
98/SE |
 |
|
ME |
 |
|
NT |
 |
|
2000 |
 |
|
XP |
 |
|
Vista |
 |
|
Win
7 |
 |
|
|
VB-Version |
VBA 5 |
 |
|
VBA 6 |
 |
|
VB 4/16 |
 |
|
VB 4/32 |
 |
|
VB 5 |
 |
|
VB 6 |
 |
|
|
|
Download (2
kB)
|
Downloads bisher: [ 1543 ]
|
|
|