[编程文章]This little source code checks if a String is a valid hexadecimal value Visual Basic (VB) & C++ Builder (BCB)

This little source code checks if a String is a valid hexadecimal value

资料类型： String

上传时间： 2001-02-21

阅读次数： 7091

Dim MyValue
Dim MyValue1 'Declare Variables
MyValue = Text1.Text 'Text to be analysed source
MyValue = "&H" + MyValue 'Tell vb that this string is a hexadecimal value
On Error GoTo ItsNoHex 'If the value is not valid, tell the user of it
MyValue1 = MyValue + &HFF 'Do a little test
MsgBox "This is a valid hexadecimal value!", , "Checking" 'Tell the user
Exit Sub 'The value is ok. Get out of here :)
ItsNoHex:
If Err = 13 Then 'See if the error is really a hexadecimal error
MsgBox "This is a invalid hexadecimal value!", , "Checking" 'Tell the user
End If
End Sub

推荐给朋友

点评( 0 )

返回前页

关闭此页


	本类最热文章排名：
	1.Verifies if a string... 2.Validates ZIP code 3.Validates Email ID 4.This is an example of REAL encryption 5.Simple secure password textbox example 6.The complete validat... 7.Simple recursive fun... 8.Get the Text out of ... 9.How to Decode a string 10.Scrolling text


	评论：