TextBoxの入力を検証して、2進数であることを確認しようとしています。私がこれまでに持っているのは:
Private Sub Command1_Click()
Dim b() As Byte
b = Text1.Text
If Not IsByte (b) Then
Text3 = "Wrong input"
Else
Text3 = "CRC is generated"
' checksum.Text = Text1.Text Xor Text2.Text
' Trans(2).Text = (Text1.Text) + (checksum.Text)
End If
Text1への入力は、2進数のみを受け入れる必要があるため、1
またはのみ0
を許可する必要があります。