有一道vb操作题,请高手赐教!
设计程序,从键盘输入字符时,在窗体上立即显示所键入的字符和该字符的ASCII码,双击窗体时清除窗体上显示的内容。格式如下:输入字符:AASCII码为:65输入字符:BAS...
设计程序,从键盘输入字符时,在窗体上立即显示所键入的字符和该字符的ASCII码,双击窗体时清除窗体上显示的内容。
格式如下:
输入字符:A ASCII码为:65
输入字符:B ASCII码为:66
输入字符:C ASCII码为:67
利用窗体的keypress事件 展开
格式如下:
输入字符:A ASCII码为:65
输入字符:B ASCII码为:66
输入字符:C ASCII码为:67
利用窗体的keypress事件 展开
2个回答
展开全部
在窗体上放置一个label控件,然后在编辑区中粘贴如下代码:
Private Sub Form_DblClick()
Label1.Caption = ""
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Label1.Caption = "字符为:" & Chr(KeyAscii) & Space(5) & "对应ASCII码:" & CStr(KeyAscii)
End Sub
Private Sub Form_DblClick()
Label1.Caption = ""
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Label1.Caption = "字符为:" & Chr(KeyAscii) & Space(5) & "对应ASCII码:" & CStr(KeyAscii)
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
一个空白窗体就行了. 代码如下:
Private Sub Form_DblClick()
Me.Cls
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii) & " ASCII码为:" & KeyAscii
End Sub
Private Sub Form_Load()
Me.KeyPreview = True
End Sub
Private Sub Form_DblClick()
Me.Cls
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii) & " ASCII码为:" & KeyAscii
End Sub
Private Sub Form_Load()
Me.KeyPreview = True
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询