保存状态编辑器游戏（复选框）？

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

当我点击复选框然后另存为，它是更改TwoByte而不是Curval？

例：
在保存文件游戏是现场02但当我保存然后我签入文件我看到这样：0200，我不知道我有什么问题？

Answer 1

您要写出的={sheet1!a:a; sheet2!a:a} 是一个2字节的整数，因此写入两个字节。尝试

, 1

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