加载中…
个人资料
悦妃云
悦妃云
  • 博客等级:
  • 博客积分:0
  • 博客访问:142,909
  • 关注人气:27
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
相关博文
推荐博文
谁看过这篇博文
加载中…
正文 字体大小:

VB发送按键演示的实例

(2013-06-14 08:57:31)
标签:

按键

演示

vb

发送

it

分类: 开发源码
Private Sub Command1_Click()
Dim I As Integer
Dim Jh As String
'===
Shell "calc.exe", 1
For I = 1 To 9
SendKeys Replace("{" & Str(I) & "}", " ", "")
SendKeys "{+}"
Next
End Sub

Private Sub Command2_Click()
Dim k As Integer, sum As Integer
For k = 1 To 9
sum = sum + k
Next
MsgBox sum
End Sub

两个命令按钮。

0

阅读 评论 收藏 禁止转载 喜欢 打印举报/Report
  • 评论加载中,请稍候...
发评论

    发评论

    以上网友发言只代表其个人观点,不代表新浪网的观点或立场。

      

    新浪BLOG意见反馈留言板 欢迎批评指正

    新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 会员注册 | 产品答疑

    新浪公司 版权所有