╔-------------------------------------------------╗
  ┆               VB编程设计系列教程⑥              ┆
  ┆           网址  HTTP://Www.Hack58.Com           ┆
  ┆           论坛  HTTP://Bbs.Hack58.Com           ┆
  ┆           QQ:541583211       断罪の翼           ┆
  ╚-------------------------------------------------╝

黑客动画吧  http://www.hack58.com

专业的黑客动画教程网站

免费学习黑客技术

成为黑客不是梦
打造国内最大的黑客动画网站

注意：所有教程全部对外免费开放

-------------------------------------------------------------------------------------------
    大家好，我是断罪の翼。今天是我们VB教程的第六课—VB标准控件，

    可视化程序的一个重要特点就是使用控件来实现程序的各种功能。所谓控件是指图形界面程序中可直

接实现某些程序功能的对象。这些控件可以通过其属、事件和方法来实现程序的各种功能。
   
    在Win系统中，同时可以运行多个程序，但只有当前活动窗口中的程序才可以接受用户的操作命令，

这个活动窗口称为具有焦点的窗口。
   
    在VB中窗体和大部分控件都有焦点，但标签框、图象框、定时框、框架、线形、形状和菜单等控件不

能接受焦点。
   
    下面我们来做个小程序演示一下，使程序实现窗体颜色的变化和字体的变化。当按“按钮一”时，窗

体的颜色为蓝色，字体为黄色。当按“按钮二”时，窗体的颜色为红色，字体为白色。
   
    我们在窗体中加如三个按钮。修改一下它们的属性

    然后在代码窗口中编写以下代码：

Private Sub Command1_Click()
   Cls
   FontSize = 14
   ForeColor = QBColor(14)
   BackColor = QBColor(1)
   Print "黑客动画吧"
End Sub
Private Sub Command2_Click()
   Cls
   FontSize = 20
   ForeColor = QBColor(15)
   BackColor = QBColor(4)
   Print "www.hack58.com"
End Sub

Private Sub Command3_Click()
   End
End Sub

    看下效果，好了。大多数VB程序都有命令按钮，可使用户通过简单的单击按钮来执行操作。
   
    下面是命令按钮的属性。
   
    1.Caption属性设置命令按钮上显示的文本。
    2.value属性用于检测命令按钮是否被按下。
    3.Default属性用于设置窗体的默认命令按钮
    4.Cancel属性用于定义按钮是否为取消命令按钮
    5.Style属性用于设置命令按钮的外观风格
    6.MousePointer属性用于设置在命令按钮范围内鼠标指针的形状。
      MouseIcon属性是用于设置一个自定义的鼠标指针图标。
    7.TolTipText属性用于设置当鼠标在控件上暂停时显示的提示性文本。
   
    下面我们来做一个程序来演示一下图形按钮。
   
    在窗体上建立两个命令按钮。然后设置个控件的属性。
   
    在代码窗口中编写Command2的Click事件过程。

Private Sub Command2_Click()
  Command1.Enabled = Not Command1.Enabled
  If Command2.Caption = "不可用" Then
      Command2.Caption = "可用"
  Else
      Command2.Caption = "不可用"
  End If
End Sub

    我们运行下，可以了。怎么样，是不是觉得VB越来越简单？
   
    下面我们来做一下标签的应用，看我做，在代码输入框中加入下面的代码

Private Sub Command1_Click()
 Dim Year As Integer
 Dim Name As Integer
 Year = Val(InputBox("请输入出生年份：", "生肖查询", 1990))
 Label1.Caption = "您是" & Str(Year) + "年出生的生肖为:"
 Name = Year Mod 12
 Select Case Name
   Case 4
     Label2.Caption = "鼠"
   Case 5
     Label2.Caption = "牛"
   Case 6
     Label2.Caption = "虎"
   Case 7
     Label2.Caption = "兔"
   Case 8
     Label2.Caption = "龙"
   Case 9
     Label2.Caption = "蛇"
   Case 10
     Label2.Caption = "马"
   Case 11
     Label2.Caption = "羊"
   Case 0
     Label2.Caption = "猴"
   Case 1
     Label2.Caption = "鸡"
   Case 2
     Label2.Caption = "狗"
   Case 3
     Label2.Caption = "猪"
  End Select
End Sub

Private Sub Command2_Click()
End
End Sub
   
    这样程序就做好了，由于时间关系，下次我再讲它的原理。
   
    下次我们要讲的是标签，教程就到这里吧。
    我的论坛http://hack123.zzzg.com

    再见！！！