→ jujudy: a = Right("000" & Hex(Text1.Text), 4) 01/05 20:36
→ CuckooBoy:可以寫這麼短,我吐血了~~感謝大大指點!學到了! 01/05 20:54
推 Marty:一樓真是創意無限...厲害厲害... 01/06 14:11
推 forkome:高手，佩服 01/09 20:04
→ forkome:一樓太強了 01/09 20:04
※ 引述《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)