wxsh.net
当前位置:首页>>关于急求VB作业 两个按钮单击一个按钮隐藏另一个按钮!·的资料>>

急求VB作业 两个按钮单击一个按钮隐藏另一个按钮!·

窗体上画两个command按钮 然后粘贴代码 Private Sub Command1_Click() Command1.Visible = False Command2.Visible = True End Sub Private Sub Command2_Click() Command2.Visible = False Command1.Visible = True End Sub Private Sub Form_L...

照图,拖放好三个CommandButton控件和一个Label控件 代码: Private Sub Form_Load() Label1.Caption = "" Command1.Caption = "欢迎词" Command2.Caption = "祝贺词" Command3.Caption = "退出"End SubPrivate Sub Command1_Click() Label1.Cap...

使用DateDiff()函数,其它你自己去做吧,无非是拼两个字符串。 例如: Text3.Text = DateDiff("d", "2011-12-31", "2012-6-14")

Adodc1.ConnectionString="Driver={SQL Server};Server=192.168.1.1;UID=sa;PWD=111"Adodc1.RecordSource="select * from A where B='"+Text1+"'" Adodc1.RefreshSet DataFrid1.DataSource=Adodc1你搞什么,这么简单的问题写这么多麻烦

你用什么控件播放的?或者使用API,肯定不同的播放方式不同的方法停止

以下网址有我之前编的一个查看图片器,虽然功能跟你作业的要不太一样,不过有兴趣的可以参考一下。 http://www.codesky.net/showhtml/24318.htm

第二个按钮的事件是end吧! 就可结束了!

设置窗体属性keypreview=true 在窗体keydown 事件中添加下以代码 if keyascii=38 then command1_click '上方向键 if keyascii=40 then command2_click '下方向键

生成9个文本框吗?

Private stopIt As Boolean Private Sub Command1_Click() Dim shuzhi As Double Dim shuzhi1 As Double Text1.Text = "正在运行" For shuzhi = 1 To 60000 If stopIt Then Exit Sub DoEvents For shuzhi1 = 1 To 20000 Next shuzhi1 Next shuzh...

网站首页 | 网站地图
All rights reserved Powered by www.wxsh.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com