Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
成都创新互联专注于企业成都营销网站建设、网站重做改版、嘉鱼网站定制设计、自适应品牌网站建设、HTML5、商城建设、集团公司官网建设、成都外贸网站建设、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为嘉鱼等各大城市提供网站开发制作服务。
If Asc(0) Then
textbox1.text="0"
end if
end sub
Envirement.NewLine ;
dim s as string;
s = '天晴了哇'
s += Envirement.NewLine; ' or s += chr(13) ' s = s+"\n"
// 似乎用环境类的 NewLine兼容性较强些
'新建一个TextBox1，一个Label1
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Label1.Text = Asc(e.KeyChar)
End Sub
Public Function dec_to_hex(dec As Long) As String
Dim a As String
dec_to_hex = ""
Do While dec 0
a = CStr(dec Mod 16)
Select Case a
Case "0": a = "30H"
Case "1": a = "31H"
Case "2": a = "32H"
Case "3": a = "33H"
Case "4": a = "34H"
Case "5": a = "35H"
Case "6": a = "36H"
Case "7": a = "37H"
Case "8": a = "38H"
Case "9": a = "30H"
Case "10": a = "65H"
Case "11": a = "66H"
Case "12": a = "67H"
Case "13": a = "68H"
Case "14": a = "69H"
Case "15": a = "70H"
End Select
dec_to_hex = a " " dec_to_hex
dec = dec \ 16
Loop
End Function
