![]() |
|
Tipp 0483
|
Ressourcen-Dateien verwenden
|
 |
|
Autor/Einsender:
Datum: |
|
Ovim Obscurum
07.02.2006 |
|
| Entwicklungsumgebung: |
|
VB 6 |
|
|
|
Mit dem Visual Basic Ressourcen-Editor (als Add-In ladbar) lassen sich Cursor, Bitmaps, Icons, Strings und Sounds als Ressourcen
direkt mit in die ausführbare *.exe-Datei kompilieren. Nun bleibt nur noch die Frage offen, wie können die einzelnen Ressourcen auch
zur Laufzeit verwendet werden. Die Größe einer einzelnen Ressourcen-Datei darf 64 kB nicht überschreiten.
|
|
Dieses Beispiel zeigt, wie die einzelnen Elemente zur Laufzeit ausgelesen und wiedergegeben werden können.
|
|
| Code im Codebereich der Form |
|
| |
Option Explicit
Private Sub cmdBitmap_Click()
Image1.Picture = LoadResPicture(101, vbResBitmap)
End Sub
Private Sub cmdCursor_Click()
Me.MousePointer = 99
Me.MouseIcon = LoadResPicture(101, vbResCursor)
End Sub
Private Sub cmdCursor2_Click()
Me.MousePointer = 0
End Sub
Private Sub cmdIcon_Click()
Me.Icon = LoadResPicture(101, vbResIcon)
End Sub
Private Sub cmdString_Click()
lblString.Caption = LoadResString(101)
End Sub
Private Sub cmdTon_Click()
StartPlaySound (111)
End Sub
|
|
|
| Code im Codebereich des Moduls |
|
| |
Option Explicit
Private Declare Function sndPlaySound Lib "WINMM.DLL" Alias _
"sndPlaySoundA" (lpszSoundName As Any, _
ByVal uFlags As Long) As Long
Private Const SND_ASYNC = &H1
Private Const SND_NODEFAULT = &H2
Private Const SND_MEMORY = &H4
Private SoundBuffer() As Byte
Public Sub StartPlaySound(ByVal ResourceId As Integer)
SoundBuffer = LoadResData(ResourceId, "CUSTOM")
sndPlaySound SoundBuffer(0), _
SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY
End Sub
|
|
|
|
|
|
|
| Windows-Version |
| 95 |
 |
|
| 98 |
|
|
| ME |
|
|
| NT |
|
|
| 2000 |
|
|
| XP |
|
|
| Vista |
|
|
| Win
7 |
|
|
|
| VB-Version |
| VBA 5 |
 |
|
| VBA 6 |
|
|
| VB 4/16 |
|
|
| VB 4/32 |
 |
|
| VB 5 |
|
|
| VB 6 |
|
|
|
|
Download (12,9 kB)
|
Downloads bisher: [ 685 ]
|
|
|
Vorheriger Tipp
Zum Seitenanfang 