Speichern und Laden!

Dim Namedata As String 'Diese Variable bezeichnet den Namen unter dem gespeichert wird
 
Private Sub Command1_Click()
SavePicture Picture1.Picture, "C:\" & Namedata & ".jpg" 'wenn man diesen Button klickt, wird das Bild in C:\ gespeichert. "Namedata" ist eine Variable, welche den Speichernamen enthält
End Sub
 
Private Sub Command2_Click()
Set Picture1.Picture = Picture2.Picture 'Das zweite Bild wird in die erste geladen, das ist nicht unbedingt nötig
 
End Sub
 
Private Sub Command3_Click()
Set Picture1.Picture = LoadPicture("C:\" & Namedata & ".jpg")  'Das gespeicherte Bild wird wieder in die Picturebox geladen.
End Sub
 
 
Private Sub Form_Load()
Namedata = "Test"     'Das bedeutet, dass wenn die Form geladen wird (bzw das Programm gestartet), dass die Variable Namedata den Wert "Test" hat.
End Sub

Dim testzahl1 As Integer          'testzahl1 und testzahl2 sind zu speichernde Werte und Spielername wieder der Dateiname
Dim testzahl2 As Integer
Dim Spielername As String
 
Private Sub Command1_Click()  'den Variablen wird ein Wert zugewiesen
testzahl1 = 34
testzahl2 = 333
End Sub
 
Private Sub Command2_Click()
Spielername = "Niko"
End Sub
 
Private Sub Command3_Click()
MsgBox (testzahl1 & "+" & testzahl2) 'Das ist dazu da, um die Werte zu überprüfen
End Sub
 
Private Sub cmdSpeichern_click()
Dim Kanal As Integer
Kanal = FreeFile
Open "C:\" & Spielername & ".txt" For Output As #Kanal  'hier wird die Datei geöffnet
Print #1, testzahl1 'In die 1. Zeile kommt eine Variable...
Print #1, testzahl2 'und in die 2. Zeile kommt auch eine Variable
 
Close #Kanal
 
End Sub
Private Sub cmdLaden_click()
Dim Kanal As Integer
Kanal = FreeFile
Open "C:\" & Spielername & ".txt" For Input As #Kanal  'hier wird die Datei geöffnet
Input #Kanal, testzahl1 'Jetzt wird wieder 1. Zeile zu testzahl1
Input #Kanal, testzahl2 '2. Zeile zu testzahl2
 
Close #Kanal
End Sub