Re: [VB6 ] hex問題

看板Visual_Basic作者 (書仔)時間18年前 (2008/01/05 13:57), 編輯推噓2(203)
留言5則, 4人參與, 最新討論串2/2 (看更多)
※ 引述《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)

01/05 20:36, , 1F
a = Right("000" & Hex(Text1.Text), 4)
01/05 20:36, 1F

01/05 20:54, , 2F
可以寫這麼短,我吐血了~~感謝大大指點!學到了!
01/05 20:54, 2F

01/06 14:11, , 3F
一樓真是創意無限...厲害厲害...
01/06 14:11, 3F

01/09 20:04, , 4F
高手,佩服
01/09 20:04, 4F

01/09 20:04, , 5F
一樓太強了
01/09 20:04, 5F
文章代碼(AID): #17Vnn6G9 (Visual_Basic)
討論串 (同標題文章)
文章代碼(AID): #17Vnn6G9 (Visual_Basic)