保存状态编辑器游戏(复选框)

Question

我喜欢制作保存状态编辑器游戏，但我有小问题，我希望有人帮助我解决这个问题。

Public Sub SaveState(pFile As String)
    If pFile = "" Then Exit Sub
    Dim FF As Long
    FF = FreeFile()
    Open pFile For Binary As FF
        ' Save the Lives
        If chkLive.value = 1 Then Put #FF, 117290 + 1, 1
    Close #FF
End Sub

当我单击复选框然后另存为时，它是更改两个字节而不是弯曲？

示例：
在保存文件游戏中是实时的 02，但是当我保存然后我签入文件时，我看到这样：0200，我想知道我做错了什么？

Answer 1

您正在写出的, 1是一个 2 字节整数，写入两个字节也是如此。 尝试

Public Sub SaveState(pFile As String)
    If pFile = "" Then Exit Sub
    Dim FF As Long
    Dim b as Byte
    FF = FreeFile()
    Open pFile For Binary As FF
        ' Save the Lives
        b = 1
        If chkLive.value = 1 Then Put #FF, 117290 + 1, b
    Close #FF
End Sub

这样，只会将一个字节写入文件。