Char 函數。以下摘自 MSDN:

十載的龍口網站建設經驗,針對設計、前端、開發、售后、文案、推廣等六對一服務,響應快,48小時及時工作處理。營銷型網站建設的優勢是能夠根據用戶設備顯示端的尺寸不同,自動調整龍口建站的顯示方式,使網站能夠適用不同顯示終端,在瀏覽器中調整網站的寬度,無論在任何一種瀏覽器上瀏覽網站,都能展現優雅布局與設計,從而大程度地提升瀏覽體驗。成都創新互聯公司從事“龍口網站設計”,“龍口網站推廣”以來,每個客戶項目都認真落實執行。
碼位的前 128(0~127)Unicode 對應于標準美國鍵盤的字母和符號。碼位的這些前 128 位與 ASCII 字符集定義相同。碼位的第二個 128(128~255)表示特殊字符,比如基于拉丁語字母表的字母、重音、貨幣符號等。使用 Unicode 其余的代碼對各種符號點(256~65535),包括世界范圍的各種字符(中文字符)等。
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
'新建一個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
Private?Sub?Form1_KeyPress(ByVal?sender?As?Object,?ByVal?e?As?System.Windows.Forms.KeyPressEventArgs)?Handles?Me.KeyPress
If?Asc(0)?Then
textbox1.text="0"
end?if
end?sub
分享名稱:關于vb.netascii的信息
網頁URL:http://www.yijiale78.com/article28/dsihpcp.html
成都網站建設公司_創新互聯,為您提供靜態網站、建站公司、全網營銷推廣、品牌網站制作、電子商務、服務器托管
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯