UC知道VB 输出文字问题
来源：百度知道 编辑：UC知道 时间：2024/07/02 06:54:10
比如 我输出的要是000000
他自动给变成0 把后面的0都省掉了
是声明的问题吧
怎么弄呢?
完了 我彻底迷了
把代码弄出来了....
Private Sub Command1_Click()
Dim b As String
CommonDialog1.ShowColor '出现调色器
b = Hex(CommonDialog1.Color)
Label3.BackColor = CommonDialog1.Color
Dim c As String, d As String, e As String, f As String
b = Hex(CommonDialog1.Color)
c = Mid(b, 1, 2)
d = Mid(b, 5, 2)
e = Mid(b, 3, 2)
f = d + e + c
Label3.Caption = f
End Sub
他自动给变成0 把后面的0都省掉了
是声明的问题吧
怎么弄呢?
完了 我彻底迷了
把代码弄出来了....
Private Sub Command1_Click()
Dim b As String
CommonDialog1.ShowColor '出现调色器
b = Hex(CommonDialog1.Color)
Label3.BackColor = CommonDialog1.Color
Dim c As String, d As String, e As String, f As String
b = Hex(CommonDialog1.Color)
c = Mid(b, 1, 2)
d = Mid(b, 5, 2)
e = Mid(b, 3, 2)
f = d + e + c
Label3.Caption = f
End Sub
如果是数值型的用Format
format(a,"000000")
如果是字符串用0补足
____________________
我回答过，不过你并没仔细看我的代码
b = Hex(CommonDialog1.Color)
b = String(6 - Len(b), "0") & b
用Format语句，可以控制
Print Format(x,"000000") 'x为数值型，要有小数位可以用Print Format(x,"000000.00")
楼上的朋友，数值储存时不是“000000”，用Cstr或Str转换后还是“0”
转换成字符串输出 str()