求一个vb6.0中灰常简单的程序代码!!!
程序要求如下:在窗体上创建一个文本框控件,两个命令按钮控件,命令按钮控件的标题分别设置为“隐藏”和“退出”。单击“隐藏”按钮后文本框消失,该按钮变成“显示”,单击“显示”...
程序要求如下:在窗体上创建一个文本框控件,两个命令按钮控件,命令按钮控件的标题分别设置为“隐藏”和“退出”。单击“隐藏”按钮后文本框消失,该按钮变成“显示”,单击“显示”按钮显示出文本框。该按钮为“隐藏/显示”的切换,单击“退出”结束本程序。。。
求这个简单程序的编写代码!!求大大帮忙啊,分实在不多了 对不住了!!! 展开
求这个简单程序的编写代码!!求大大帮忙啊,分实在不多了 对不住了!!! 展开
5个回答
展开全部
Private Sub Command1_Click()
If Command1.Caption = "隐藏" Then
Text1.Visible = False
Command1.Caption = "显示"
ElseIf Command1.Caption = "显示" Then
Text1.Visible = True
Command1.Caption = "隐藏"
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Text1.Visible = True
Command1.Caption = "隐藏"
End Sub
If Command1.Caption = "隐藏" Then
Text1.Visible = False
Command1.Caption = "显示"
ElseIf Command1.Caption = "显示" Then
Text1.Visible = True
Command1.Caption = "隐藏"
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Text1.Visible = True
Command1.Caption = "隐藏"
End Sub
展开全部
Private Sub Command1_Click()
If Command1.Caption = "显示" Then Text1.Visible = 1: Command1.Caption = "隐藏" Else Text1.Visible = 0: Command1.Caption = "显示"
End Sub
Private Sub Form_Load()
Command1.Caption = "隐藏"
End Sub
If Command1.Caption = "显示" Then Text1.Visible = 1: Command1.Caption = "隐藏" Else Text1.Visible = 0: Command1.Caption = "显示"
End Sub
Private Sub Form_Load()
Command1.Caption = "隐藏"
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Private Sub Command1_Click()
If Text1.Visible = True Then
Text1.Visible = False
Command1.Caption = "显示"
Else
Text1.Visible = True
Command1.Caption = "隐藏"
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Command1.Caption = "隐藏"
Command2.Caption = "退出"
End Sub
If Text1.Visible = True Then
Text1.Visible = False
Command1.Caption = "显示"
Else
Text1.Visible = True
Command1.Caption = "隐藏"
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Command1.Caption = "隐藏"
Command2.Caption = "退出"
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
其实你完全可以自己看vb系统自带的对象浏览器,按F8调出来。根据你自己的对象(文本框text)查看相关的属性,然后写代码修改即可,如果有必要,建议你还是参照二楼的代码。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
第一个按钮text.visible=true
第二个按钮text.visible=false
第二个按钮text.visible=false
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询