汉字与十六进制相互转换代码,VB.Net代码库,德仔网

代码语言

代码分类

【VB.Net】汉字与十六进制相互转换

作者:Dezai.CN / 发布于2013/6/18/ 563


	Option Explicit
	Dim aa$, bb$, i&
	Private Sub Form_Load()
	Command1.Caption = "汉转16"
	Command2.Caption = "16转汉"
	Command1.Enabled = True
	Command2.Enabled = False
	Text1.Text = "我爱VB"
	End Sub

	Private Sub Command1_Click()
	aa = Text1.Text
	Text1.Text = ""
	For i = 1 To Len(aa)
	Text1.Text = Text1.Text & Hex(Asc(Mid(aa, i, 1))) & " "
	Next i
	Command1.Enabled = Not Command1.Enabled
	Command2.Enabled = Not Command2.Enabled
	End Sub

	Private Sub Command2_Click()
	Dim s
	aa = Trim(Text1.Text)
	Text1.Text = ""
	s = Split(aa, " ")
	For i = 0 To UBound(s)
	Text1.Text = Text1.Text & Chr("&H" + s(i))
	Next i
	Command1.Enabled = Not Command1.Enabled
	Command2.Enabled = Not Command2.Enabled
	End Sub

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　汉字与十六进制　

同语言下

可能有用的

Dezai.CN贡献的其它代码(4037)