作者CuckooBoy (书仔)
看板Visual_Basic
标题Re: [VB6 ] hex问题
时间Sat Jan 5 13:57:25 2008
※ 引述《CuckooBoy (书仔)》之铭言：
: 请问如何让 a=Hex(0) 会等於 a=0000 , 而不是 a=0 呢?
: 就是以0000~ffff显示..不会自动把左边为0取消掉
自问自答
Dim a As String
Private Sub Text1_Change()
a = Hex(Text1.Text)
If Len(a) = 1 Then
Text2.Text = "000" & a
ElseIf Len(a) = 2 Then
Text2.Text = "00" & a
ElseIf Len(a) = 3 Then
Text2.Text = "0" & a
Else
Text2.Text = a
End If
End Sub
======================
MATLAB指令用久了,以为VB也有这功能XD 原来要自己写...
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 123.195.206.16
※ 编辑: CuckooBoy 来自: 123.195.206.16 (01/05 14:16)
1F：→ jujudy: a = Right("000" & Hex(Text1.Text), 4) 01/05 20:36
2F：→ CuckooBoy:可以写这麽短,我吐血了~~感谢大大指点!学到了! 01/05 20:54
3F：推 Marty:一楼真是创意无限...厉害厉害... 01/06 14:11
4F：推 forkome:高手，佩服 01/09 20:04
5F：→ forkome:一楼太强了 01/09 20:04