锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net虚拟键盘控件 vbs 模拟键盘( 三 )

IT技术指定


Case Else
End Select
End Sub
Private Sub btnNum_Click(Index As Integer)
If byteTmp0 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.CaptionIndex
End If
End If
End Sub
Private Sub btnAdd_Click()
If byteOperation0 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 byteOperation0 Then
Call Calc
End If
byteOperation = 2
byteTmp = 2
End Sub
Private Sub btnMul_Click()
If byteOperation0 Then
Call Calc
End If
byteOperation = 3
byteTmp = 3
End Sub
Private Sub btnDiv_Click()
If byteOperation0 Then
Call Calc
End If
byteOperation = 4
byteTmp = 4
End Sub
Private Sub btnEnter_Click()
Call Calc
byteTmp = 0
End Sub
关于vb.net虚拟键盘控件和vbs 模拟键盘的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

推荐阅读


上一篇：宝鸡专注sap联系方式，宝鸡哪个酒店有spa

下一篇：cssinput样式属性，css选择input的type属性