Die Community zu .NET und Classic VB.

Startseite / Tipps / VB 5/6-Tipp 0552: Textdatei aus Ressourcedateien laden

VB 5/6-Tipp 0552: Textdatei aus Ressourcedateien laden

 von Marco Bauer

Schwierigkeitsgrad:

Verwendete API-Aufrufe: keine

Download: Download des Beispielprojektes [2,24 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------ Anfang Projektdatei TXTausRes.vbp  ------------
'------- Anfang Formular "Form1" alias TXTausRes.frm  -------
' Steuerelement: Textfeld "Text1"
' Steuerelement: Schaltfläche "Command1"

'
'Autor: Marco Bauer   -   elentirmo@benzenberg-sternwarte.de

Option Explicit

Private Sub Command1_Click()
    
    Dim DataArray() As Byte                 ' Das Array für die Res-Datei
    Dim i As Long
    Dim strInhalt As String                 ' Der Inhalt der Textdatei
  
    DataArray = LoadResData(101, "CUSTOM")  ' Die Ressource
    strInhalt = ""                          ' Variable leeren
    strInhalt = StrConv(DataArray(), vbUnicode) ' Umwandeln in "normalen" Text
    Text1.Text = strInhalt                  ' Textdatei in Text1 ausgeben
    Erase DataArray                         ' Array löschen

End Sub


'-------- Ende Formular "Form1" alias TXTausRes.frm  --------
'------------- Ende Projektdatei TXTausRes.vbp  -------------