VB入门之“Hello World”

要进入VB的代码设计区，只需在需要的控件或窗体上双击鼠标即可得到这样的窗口。如图1_4，每一个VB程序都由若干小程序组成，这使得用VB编程更加容易，这些小程序，分为“过程”（Procedure）和“函数”（Function），二者都可以传递参数，所不同的是函数有一个返回值，而过程没有，仅此而已。



　　双击窗体的任何一个部分，将出现一个空的过程：“Form_Load()”，这是一个非常重要的过程，它所驱动的事件就是该窗体被加载的事件，打个比方，就象计算机启动时的批处理程序（Autoexec.bat）。 这个程序里我们要对控件进行一些设置。我们刚才也曾对控件进行设置，但那是在程序设置中进行的，有时我们也需要在程序中改变某些控件的属性，通过程序代码。VB中规定，一个控件属性的访问方法：名称.属性，于是我们对本程序的控件进行如下设置：

Private Sub Form_Load() 　Picture1.Visible = False 　Picture2.Visible = False 　Picture3.Visible = False 　Text1.Visible = False 　Text2.Visible = False 　Text3.Visible = False End Sub

　　Private表示此过程是局部的，Sub表示子过程的开始，与之相对的是End Sub表示过程的结束，Visible属性表示控件的可见性，这个属性的值有两个True和False。

　　注意：

　　VB里对大小写是不加区分的，而且，已定义的名称，以后再用到时，系统会自动把它变成相应的大写或小写。

　　小知识：

　　1.VB里的对变量及常量的规矩。

　　变量一般为Abc的格式，常量为ABC，另外这些变量和常量名不得同VB内的关键字相同，也不可以使用一些特殊符号，这些我们将在以后介绍，注意在学习中养成好习惯，使程序便于自己和别人的浏览。

　　2.程序书写的窍门：

　　不要真的一句一句把程序打完，利用快捷键：拷贝Ctrl+C，剪切Ctrl+T，粘贴Ctrl+P。

　　按下F5，运行一下程序，现在发现只剩下无线钮了。如图1_5。



 

Private Sub Form_Load() 　Picture1.Visible = False 　Picture2.Visible = False 　Picture3.Visible = False 　Text1.Visible = False 　Text2.Visible = False 　Text3.Visible = False 　Option4.Left = -2000 　Option4.Value = True End Sub

　　Left属性表示控件离窗体左边框的距离，设置为－2000，则在窗体内不会看到这个控件，并使之Value=True。再运行程序，一切如愿，如图1_6。



　　注意：为什么不用Option4.Visible=False？

　　因为，一旦设置无线钮为不可见，那么再使它的Value为真是没有意义的，不信自己试试。

　　下面我们可以继续进行了。在刚才的代码窗口里，将Object选择为Option1，Proc选择为Click，即得到一个Option1_Click的过程。代码如下：

Private Sub Option1_Click() 　Picture1.Visible = True 　Picture2.Visible = False 　Picture3.Visible = False 　Text1.Visible = True 　Text2.Visible = False 　Text3.Visible = False 　Text1.Text = "再见，残酷的世界。" End Sub

　　相同的建立Option2_Click和Option2_Click：

Private Sub Option2_Click() 　Picture2.Visible = True 　Picture1.Visible = False 　Picture3.Visible = False 　Text2.Visible = True 　Text1.Visible = False 　Text3.Visible = False 　Text2.Text = "今天心情不错。" End Sub Private Sub Option3_Click() 　Picture3.Visible = True 　Picture2.Visible = False 　Picture1.Visible = False 　Text3.Visible = True 　Text2.Visible = False 　Text1.Visible = False 　Text3.Text = "Hello,World。" End Sub

　　好，我们的开山之作完成了！按下F5，玩一下吧。这个程序虽然简单，但也用到了许多基本知识，你开始感兴趣了吗？

查看本文来源