16,552
社区成员
发帖
与我相关
我的任务
分享
Public Class Form1
Private Sub Number1_TextChanged(sender As Object, e As EventArgs) Handles Number1.TextChanged
If IsNumeric(Number1.Text) Then
Dim BitsArr As Char() = GetBits(Number1.Text)
BitsStr1.Text = BitsArr
For i = 1 To 16
CType(Controls.Find("TextBox" & i, False)(0), TextBox).Text = BitsArr(i - 1)
Next
Else
MsgBox("你输入的不是数字")
End If
End Sub
Function GetBits(data As Integer) As Char()
If data >= 0 And data <= &HFFFF Then
Return Convert.ToString(data, 2).PadLeft(16, "0")
Else
Return "".PadLeft(16, "0")
End If
End Function
End Class
CType(容器名.Controls.Find("TextBox" & i, False)(0), TextBox).Text = BitsArr(i - 1)
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim data As Integer = &HFFFFF
Dim BitsArr As Char() = GetBits(data)
For i = 1 To 16
CType(Controls.Find("TextBox" & i, False)(0), TextBox).Text = BitsArr(i - 1)
Next
End Sub
Function GetBits(data As Integer) As Char()
If data >= 0 And data <= &HFFFF Then
Return Convert.ToString(data, 2).PadLeft(16, "0")
Else
Return "".PadLeft(16, "0")
End If
End Function
看看是不是你想要的效果
' 255是参数,2是二进制的意思.
Dim 二进制字符串 As String = Convert.ToString(255, 2)
'获得结果是11111111这样的8个1的字符串
如果是的话,下面我会给你代码.