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
 
Weitere Links zum Thema
Binäre Ressourcen-Datei
Mehrsprachige Anwendungen erstellen
Ressourcen-Datei entladen

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: [ 592 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Dienstag, 30. August 2011