分享

查詢內碼

  
今天撰寫一個查詢內碼的VBA程式:
Private Sub TextBox1_Change()
TextBox1.Font.Size = 72
Label1.Font.Size = 24
Label1.Caption = "請輸入1個漢字:"
A$ = TextBox1.Text
On Error Resume Next
A$ = Right$(TextBox1.Text, 1)
b$ 
u$ 
Label1.Font.Size = 12
If Hex(Asc(A$)) = "3F" Then
Label1.Caption = A$ & "字的Unicode碼為:" & u$
Else
Label1.Caption = A$ & "字的BIG5內碼為:" & b$ & Chr$(13) & Chr$(13) & A$ & "字的Unicode碼為:" & u$
End If
End Sub



Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 
Application.DisplayAlerts = False 
Application.Quit 
End Sub
#內碼  #程式  #漢字  #Unicode  #Application 
分類:學習

評論
上一篇
  • 更多文章
    載入中... 沒有更多了