十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
下载地址:
创新互联是专业的凤凰网站建设公司,凤凰接单;提供成都网站设计、网站制作,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行凤凰网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
网页地址:;displaylang=zh-cn
自己到网上找注册码
在窗体上放置以下控件:
1、lblResult Label控件 设置lblResult.Caption = 0
2、btnNum(0)~btnNum(9) 按钮控件数组,下标对应齐数字(如:btnNum(0).Caption=0,依次类推)
3、添加btnAdd(加法)、btnSub(减法)、btnMul(乘法)、btnDiv(除法)、btnEnter(等于号)、btnReset(清除键)六个按钮。
在窗体代码中输入以下内容:
Dim byteOperation As Byte '操作符
Dim byteTmp As Byte '临时操作符
Dim intNum As Double '输入的数字
Sub Calc()
Select Case byteOperation
Case 1 'Add
lblResult.Caption = CDbl(lblResult.Caption) + intNum
Case 2 'Sub
lblResult.Caption = intNum - CDbl(lblResult.Caption)
Case 3 'Mul
lblResult.Caption = CDbl(lblResult.Caption) * intNum
Case 4 'Div
lblResult.Caption = intNum / CDbl(lblResult.Caption)
Case Else
End Select
End Sub
Private Sub btnNum_Click(Index As Integer)
If byteTmp 0 Then
intNum = lblResult.Caption
lblResult.Caption = 0
byteTmp = 0
End If
If lblResult.Caption = 0 Then
lblResult.Caption = Index
Else
If Len(lblResult.Caption) 9 Then
lblResult.Caption = lblResult.Caption Index
End If
End If
End Sub
Private Sub btnAdd_Click()
If byteOperation 0 Then
Call Calc
End If
byteOperation = 1
byteTmp = 1
End Sub
Private Sub btnReset_Click()
byteTmp = 0
byteOperation = 0
intNum = 0
lblResult.Caption = 0
End Sub
Private Sub btnSub_Click()
If byteOperation 0 Then
Call Calc
End If
byteOperation = 2
byteTmp = 2
End Sub
Private Sub btnMul_Click()
If byteOperation 0 Then
Call Calc
End If
byteOperation = 3
byteTmp = 3
End Sub
Private Sub btnDiv_Click()
If byteOperation 0 Then
Call Calc
End If
byteOperation = 4
byteTmp = 4
End Sub
Private Sub btnEnter_Click()
Call Calc
byteTmp = 0
End Sub
public txt as string
sub 文本柜1_click()
F.show
文本框1.text = txt
end sub
建一个窗体F ,做11个按钮(其中一个为确认),一文本框
按钮1 : text1.text = text1.text "1"
按钮2 : text1.text = text1.text "2"
按钮3 : : text1.text = text1.text "3"
按钮"确认" : txt = text1.text
我现在没有现成的代码给你,不过可以给你一些建议。如果你想在同一进程内实现屏幕键盘,则你只需要再F2打开的时候,将F1的当前焦点控件对象作为参数,传递给F2窗体,在F2点击屏幕控件时,设置该“控件.Text = 键值” 即可,这种我称之为假屏幕键盘。如果你想跨进程实现屏幕键盘,就比较难些了(比如:你想用你的F2窗体上的按键,实现QQ聊天内容的输入、记事本内容的输入)。这个需要用到 “键盘钩子”技术,有关这方面的资料,你不妨自己找找。 另外,你提的F2焦点老处理不好,我认为F2根本不需要焦点控件(不要用按钮做控件,而实用Label或图片就可以了。)