Hey, ich bin neu hier, sowie in Visual Basic.
Ich hab mir nun etwas gemacht jedoch funktioniert es leider nicht und wollte hier mal um Hilfe fragen.
Spoiler anzeigen
Das ist mein jetziger code :).
Wenn ich den auf einen Knopf reduziere, dann klappt es ohne probleme, jedoch wollte ich zu erst die ganzen dateien von einem Knopf aus rauskopieren aber ich hab keine ahnung wie deswegen hab ich das nun so mit jedem knopf gemacht.
Das Funktioniert aber nicht D:
(Sollte ich ein falsche label ausgesucht haben tut es mir leid)
Ich bitte um hilfe
Mit Freundlichen Grüßen,
MajorKokosnuss
Ich hab mir nun etwas gemacht jedoch funktioniert es leider nicht und wollte hier mal um Hilfe fragen.
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer = FreeFile()
FileOpen(i, "C:\Etc.wz", OpenMode.Binary)
FilePut(i, My.Resources.Etc)
FileClose(i)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim i As Integer = FreeFile()
FileOpen(i, "C:\Character.wz", OpenMode.Binary)
FilePut(i, My.Resources.Character)
FileClose(i)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim i As Integer = FreeFile()
FileOpen(i, "C:\Effect.wz", OpenMode.Binary)
FilePut(i, My.Resources.Effect)
FileClose(i)
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim i As Integer = FreeFile()
FileOpen(i, "C:\Item.wz", OpenMode.Binary)
FilePut(i, My.Resources.Item)
FileClose(i)
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim i As Integer = FreeFile()
FileOpen(i, "C:\Map.wz", OpenMode.Binary)
FilePut(i, My.Resources.Map)
FileClose(i)
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Dim i As Integer = FreeFile()
FileOpen(i, "C:\Morph.wz", OpenMode.Binary)
FilePut(i, My.Resources.Morph)
FileClose(i)
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Dim i As Integer = FreeFile()
FileOpen(i, "C:\Skill.wz", OpenMode.Binary)
FilePut(i, My.Resources.Skill)
FileClose(i)
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
Dim i As Integer = FreeFile()
FileOpen(i, "C:\UI.wz", OpenMode.Binary)
FilePut(i, My.Resources.UI)
FileClose(i)
End Sub
End Class
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer = FreeFile()
FileOpen(i, "C:\Etc.wz", OpenMode.Binary)
FilePut(i, My.Resources.Etc)
FileClose(i)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim i As Integer = FreeFile()
FileOpen(i, "C:\Character.wz", OpenMode.Binary)
FilePut(i, My.Resources.Character)
FileClose(i)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim i As Integer = FreeFile()
FileOpen(i, "C:\Effect.wz", OpenMode.Binary)
FilePut(i, My.Resources.Effect)
FileClose(i)
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim i As Integer = FreeFile()
FileOpen(i, "C:\Item.wz", OpenMode.Binary)
FilePut(i, My.Resources.Item)
FileClose(i)
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim i As Integer = FreeFile()
FileOpen(i, "C:\Map.wz", OpenMode.Binary)
FilePut(i, My.Resources.Map)
FileClose(i)
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Dim i As Integer = FreeFile()
FileOpen(i, "C:\Morph.wz", OpenMode.Binary)
FilePut(i, My.Resources.Morph)
FileClose(i)
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Dim i As Integer = FreeFile()
FileOpen(i, "C:\Skill.wz", OpenMode.Binary)
FilePut(i, My.Resources.Skill)
FileClose(i)
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
Dim i As Integer = FreeFile()
FileOpen(i, "C:\UI.wz", OpenMode.Binary)
FilePut(i, My.Resources.UI)
FileClose(i)
End Sub
End Class
Das ist mein jetziger code :).
Wenn ich den auf einen Knopf reduziere, dann klappt es ohne probleme, jedoch wollte ich zu erst die ganzen dateien von einem Knopf aus rauskopieren aber ich hab keine ahnung wie deswegen hab ich das nun so mit jedem knopf gemacht.
Das Funktioniert aber nicht D:
(Sollte ich ein falsche label ausgesucht haben tut es mir leid)
Ich bitte um hilfe
Mit Freundlichen Grüßen,
MajorKokosnuss