易截截图软件、单文件、免安装、纯绿色、仅160KB

求一个完整的VB程序.要求如下

用VB编写的程序:要求,一个名为form的窗体上画两个命令按钮,编写适当的事件过程,运行后,一个按钮显示,另一个按钮隐藏;点击显示的按钮,此按钮隐藏,另一个显示,同样点击这个显示的按钮,这个按钮隐藏,另一个显示!

要完整的代码,谢谢!
放三个按钮,第三个记大点。
VB code:

Private Sub Command1_Click()
Command1.Visible = False: Command2.Visible = True: Command3.Caption = "第一个按钮隐藏了,第二个显示了"
End Sub

Private Sub Command2_Click()
Command1.Visible = True: Command2.Visible = False: Command3.Caption = "第二个按钮隐藏了,第一个显示了"
End Sub

Private Sub Command3_Click()
Command1.Visible = True: Command2.Visible = True: Command3.Caption = "两个按钮都显示了"
End Sub

Private Sub Form_Load()
Command1.Caption = "我显示了": Command2.Caption = "我显示了": Command3.Caption = "两个都显示了!"
End Sub




VB code:

Private Sub Command1_Click()
Form1.Command2.Visible = True: Form1.Command1.Visible = False
End Sub

Private Sub Command2_Click()
Form1.Command1.Visible = True: Form1.Command2.Visible = False
End Sub

Private Sub Form_Load()
Form1.Command1.Caption = "显示按钮2"
Form1.Command2.Caption = "显示按钮1&quo


相关问答:

vb中如何实现对象属性的动态设置 - VB / 基础类

本人使用的是VB6.0版本
假设有一个对象A,A内有类型为B的对象属性。现在的问题是,需要添加若干个B对象作为A对象的属性。如,
 A.B1,A.B2,...
但具体添加多少个B对象作为A对象的属性则视具体情况不同而不同 ......

请教!用的是VB 6.0 - VB / 控件

把已有数据(数据大于20行)的RS(recordset)的第10行数据与第11行数据做加法后,删除第11行的数据,然后把后面的数据向前移。
RS的话修改数据是会更新数据库,现在的问题是RS里的已有数据是用SQL语句分类统计出来的 ......

vb读取用word转换成的xml里的数据 - VB / 基础类

Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
  Put #1, , MyRecord ' 读入所有字符到变量中 ......

vb生成EXE - VB / 基础类

form1中有text1-8, 和command1 
text8中为程序代码(生成窗体为form2(已做好))
单击command1后将text2中的代码生成EXE到d:\ 并且text1-7分别对应
产品名 公司名 合法版权 合法商标 文件描述 注释 标题 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号