高分求存档编辑器源代码

Private Sub Command1_Click()'这是打开文件并读出并显示到文本框的按钮
Dim sFile As String
Dim a1 As Long
With dlgCommonDialog
.DialogTitle = "打开《英雄传说六》存档文件"
.CancelError = False
'ToDo: 设置 common dialog 控件的标志和属性
.Filter = "存档文件 (SVDAT*.SAV)|SVDAT*.SAV"
.ShowOpen
If Len(.FileName) = 0 Then
Exit Sub
End If
sFile = .FileName
End With
'打开 目标文件
Open sFile For Binary As #1
'把选择的路径 显示 文本 Text1 里
Text.Text = sFile
'读取 打开的文件 地址
Get #1, &H25C89, a1
'读取的地址 显示到 文本 text2 里
Text1.Text = a1

End Sub

Private Sub Command2_Click()'这是写入按钮
'定义变量类型
Dim b1 As Long
'读取写入值
b2 = "&H" & Hex(Text1.Text)
'写入数值
Put #1, &H25C89, b1
'关闭
Close (1)
End Sub

Private Sub Exit_Click()'关闭修改器的按钮
End
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)'只允许在 tex