
创建picture 控件数组,三个command
Private Sub Command1_Click()Call ch(True, False, False, True, True, True, True)
End Sub
Private Sub Command2_Click()
Call ch(True, False, False, False, True, True, True)
End Sub
Private Sub Command3_Click()
Call ch(False, False, False, False, False, False, False)
End Sub
Private Sub Form_Load()
Command1Caption = "E"
Command2Caption = "F"
Command3Caption = "还原"
End Sub
Sub ch(a0 As Boolean, a1 As Boolean, a2 As Boolean, a3 As Boolean, a4 As Boolean, a5 As Boolean, a6 As Boolean)
Dim i As Integer
Picture1(0)Visible = a0
Picture1(1)Visible = a1
Picture1(2)Visible = a2
Picture1(3)Visible = a3
Picture1(4)Visible = a4
Picture1(5)Visible = a5
Picture1(6)Visible = a6
End Sub
vb可以写的程序很多,比如我学的就是用于测绘方面的
对于初学者来说,简单的啊需要了解vb的三要素“对象”“事件”“方法”
比如单机窗体加载一张作为背景:
private sub form1_()load
form1picture=loadpicture("") ,""号内为需要加载的的路径后面在加上\名格式。就可以了
end sub
再如单机命令按钮,窗体出现文字:
private sub command_()click
print"你好" '因号内为你要窗体显示的文字
end sub
以上就是关于急!用VB编写一个程序全部的内容,包括:急!用VB编写一个程序、一般用vb编写什么程序具体举几个简单的例子、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)