个人中心
我的提问
我的回答
今日任务
我的设置
退出
文档资料
电脑网络
体育运动
医疗健康
游戏
社会民生
文化艺术
电子数码
娱乐休闲
商业理财
教育科学
生活
烦恼
资源共享
其它
歪果仁看中国
爱问日报
精选问答
爱问教育
爱问公益
爱问法律
两种方法 Shell "explorer.exe" + " " + " ", vbMaximizedFocus ShellExecute hWnd, "open", " ", vbNullString, vbNullString, conSwNormal
3个回答
sendmessage函数发送WM_MBUTTONDOWN消息
4个回答
Private Sub Command1_Click() List1.Selected(3) = True '第4项被选中 End Sub
改变left属性即可。 Picture1.left = 变量、常量或者循环因子
2个回答
Dim times As Integer(储存一个计算单击次数的变量) Private Sub Command1_Click() If times=2 Then InputBox("input:","inputbox")(如果已经单击过2次就弹出) Else times=times+1(不然就次数(...
1个回答
回答你的问题 第一个 Private sub Command1_Click() dim x x=shell("calc.exe") End Sub 第二个: Private sub Command1_Click() dim x x=Shell("C:\Program Files\Internet E...
这样用是可以的,不过给对象赋值你漏了关键字: 在 IMAGE1 控件的单击事件中填入代码 Set X=IMAGELIST1 在 IMAGE2 控件的单击事件中填入代码 Set x=imagelist2
这个当然,应为你把h = Val(Text3.Text)写在了Option1_Click()事件里,当点击option1的时候就已经发生了,但是那时text3并没有值,所有就显示为0,我改了一下,你自己看看。
把三个函数合并成下面一个函数就行。Function F(ByVal v As Long) As Long Dim l As Long While v > 0 l = v Mod 10 v = v \ 10 Select Case lCase 0 fw = fw + l :fl = fl + ...
'窗体中添加5个text(文本框),6个lable(标签),1个command(按钮)'单击command1时,结果出现在label6中Private Sub Command1_Click()On Error GoTo 999If 0 + Text1.Text + Text2.Text + Text...
关注爱问微信公众号,开启知识之旅,随时随地了解最新资讯。