What's new

Does this look right

Nagato

Nagato

Se7enVeteran
Stickied Legendary Veteran Forum Addict
Messages
7,634
Reaction score
3,117
Points
1,390
Sin$
7
Public

Class Form1

Dim FilePath AsString

PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

Dim open Asnew OpenFileDialog open.Title =
"Open as Xbox 360 GameSave"


open.ShowDialog(FilePath = open.FileName)
ReadFile()

EndSub

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

EndSub

PrivateSub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk

PrivateSub ReadFile()
Dim

Reader AsNew PackageIO.Reader(FilePath,
PackageIO.Endian.Big) Reader.Position =
432: TextBox1.Text = Reader.ReadInt32

EndSub
End

Class
 
Calamity

Calamity

Retired
Retired
Messages
6,704
Reaction score
1,159
Points
650
Sin$
0
What are you asking looks right? What are you attempting to do?

Also, I would recommend using the code tags so it's much more readable, it's the third button from the bottom right. Or just wrap it with [CODE*][/CODE*] without the asterisks (*).
 
Nagato

Nagato

Se7enVeteran
Stickied Legendary Veteran Forum Addict
Messages
7,634
Reaction score
3,117
Points
1,390
Sin$
7
There are some errors in this code.
Im making a mod tool
 
Fanboy

Fanboy

Mirakuru
Retired
Fabled Veteran Legendary Veteran Mythical Veteran
Messages
8,825
Reaction score
4,089
Points
1,595
Sin$
7
What are you asking looks right? What are you attempting to do?

Also, I would recommend using the code tags so it's much more readable, it's the third button from the bottom right. Or just wrap it with [CODE*][/CODE*] without the asterisks (*).
He keeps spamming about a modding tool.

Dude there are tons of videos on youtube, actually educate yourself.
 
G

godzcheater

Enthusiast
Messages
127
Reaction score
18
Points
70
Sin$
0
Public

Class Form1

Dim FilePath AsString

PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

Dim open Asnew OpenFileDialog open.Title =
"Open as Xbox 360 GameSave"


open.ShowDialog(FilePath = open.FileName)
ReadFile()

EndSub

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

EndSub

PrivateSub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk

PrivateSub ReadFile()
Dim

Reader AsNew PackageIO.Reader(FilePath,
PackageIO.Endian.Big) Reader.Position =
432: TextBox1.Text = Reader.ReadInt32

EndSub
End

Class
As said above this would have been so much easier if you used CODE tags, and told us what lines the errors are on.

open.ShowDialog(FilePath = open.FileName)
I'd assume you are tiring to do
Code:
open.ShowDialog()
FilePath = open.FileName

Did you just put
Code:
PrivateSub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) HandlesOpenFileDialog1.FileOk
in their for the lulz?
Delete it.


And most importantly at the end of ReadFile() put Reader.Close()
 
XBLToothPik

XBLToothPik

Contributor
Programmer Modder Frame In Gold
Messages
577
Reaction score
1,068
Points
350
Sin$
7
I think before you start making a save editor, you need to learn some Visual Basic, YouTube would be you're best friend for that. Also use the [ CODE] tags, that tends to help make it readable on here as well.
 
Top Bottom
Login
Register