求一个完整的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
相关问答:
本人使用的是VB6.0版本
假设有一个对象A,A内有类型为B的对象属性。现在的问题是,需要添加若干个B对象作为A对象的属性。如,
A.B1,A.B2,...
但具体添加多少个B对象作为A对象的属性则视具体情况不同而不同 ......
把已有数据(数据大于20行)的RS(recordset)的第10行数据与第11行数据做加法后,删除第11行的数据,然后把后面的数据向前移。
RS的话修改数据是会更新数据库,现在的问题是RS里的已有数据是用SQL语句分类统计出来的 ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' 读入所有字符到变量中 ......
form1中有text1-8, 和command1
text8中为程序代码(生成窗体为form2(已做好))
单击command1后将text2中的代码生成EXE到d:\ 并且text1-7分别对应
产品名 公司名 合法版权 合法商标 文件描述 注释 标题
......