求电脑编程高手帮忙:用VC++API 函数编写记事本程序 要求尽量完整?
求一电脑编程高手帮忙!最近学习的VC++API函数编程总是遇到麻烦,编写个记事本程序我只要函数程序代码至于外观我弄的还算可以!再就是程序代码与界面的连接总是有问题啊!...
求一电脑编程高手帮忙! 最近学习的VC++API函数编程总是遇到麻烦,编写个记事本程序我只要函数程序代码 至于外观我弄的还算可以!再就是程序代码与界面的连接总是有问题啊!
展开
1个回答
2013-11-08
展开全部
ch = Chr(KeyAscii)
If KeyAscii <> 8 Then KeyAscii = 0 '仅允许回车符使用,以删除数字
If InStr("0,1,2,3,4,5,6,7,8,9,.,+,-,*,/,%,=,^", ch) = 0 And KeyAscii <> 8 Then
Exit Sub '如果不是数字,运算符,回车符, 则不予处理
End If
If InStr("0,1,2,3,4,5,6,7,8,9", ch) > 0 Then '如果是数字,调用数字按纽点击事件,将数字做为参数传入
cmdNum_Click Int(ch) '调用数字按纽点击事件
ElseIf InStr("+,-,*,/,%,=,^", ch) > 0 Then '如果是计算符,调用操作符点击事件,根据计算符传入不同参数
Select Case ch 'x用于保留将要传给cmdOpe_Click事件的参数
Case "+"
x = 0
Case "-"
x = 1
Case "*"
x = 2
Case "/"
x = 3
Case "^"
x = 4
Case "%"
x = 6
Case "="
x = 7
End Select
cmdOpe_Click (x) '调用操作符点击事件
ElseIf ch = "." Then '如果是小数点,并且是处于允许
建个工程文件再建个窗体 .vbp .frm 保存以上即可
If KeyAscii <> 8 Then KeyAscii = 0 '仅允许回车符使用,以删除数字
If InStr("0,1,2,3,4,5,6,7,8,9,.,+,-,*,/,%,=,^", ch) = 0 And KeyAscii <> 8 Then
Exit Sub '如果不是数字,运算符,回车符, 则不予处理
End If
If InStr("0,1,2,3,4,5,6,7,8,9", ch) > 0 Then '如果是数字,调用数字按纽点击事件,将数字做为参数传入
cmdNum_Click Int(ch) '调用数字按纽点击事件
ElseIf InStr("+,-,*,/,%,=,^", ch) > 0 Then '如果是计算符,调用操作符点击事件,根据计算符传入不同参数
Select Case ch 'x用于保留将要传给cmdOpe_Click事件的参数
Case "+"
x = 0
Case "-"
x = 1
Case "*"
x = 2
Case "/"
x = 3
Case "^"
x = 4
Case "%"
x = 6
Case "="
x = 7
End Select
cmdOpe_Click (x) '调用操作符点击事件
ElseIf ch = "." Then '如果是小数点,并且是处于允许
建个工程文件再建个窗体 .vbp .frm 保存以上即可
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询