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

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

专业的黑客动画教程网站

免费学习黑客技术

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

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

-------------------------------------------------------------------------------------------
    大家好，我是断罪の翼，今天是我们学习VB的第七课，我们这次要讲的是标签。教程开始。。
   
    标签常见的事件有：Change(标题信息改变)，Click（单击），blClick(双击)，MouseMove(鼠标移

动)，MouseDown（鼠标键按下），MouseUp (鼠标键抬起)。
   
    下面我们来做一个程序：滚动字幕

    先构建窗体，然后设置他们的属性。在代码输入框中输入下面的代码：

Private Sub Command1_Click()
Timer1.Enabled = True
Label1.Left = 150
End Sub

Private Sub Command2_Click()
  Timer1.Enabled = False
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Timer1_Timer()
  If Label1.Left < 4700 Then
    Label1.Left = Label1.Left + 100
   Else
    Label1.Left = 4700
   End If
   If Label1.ForeColor = &HFF0000 Then
     Label1.ForeColor = &HFF&
   Else
     Label1.ForeColor = &HFF0000
   End If
End Sub
  
   我们来看下，好了。

   下面我们在讲一下文本框，先来看下文本框的应用，先做一个程序看一下。
   
    构建窗体，然后设置属性，最后以下加入代码：

Provate Sub Command1_Click()
 Dim i As String
 i = Text1.Text
 Select Case i
 Case"晴"
    MsgBox("带草帽")
 Case"雨"
    MsgBox("穿雨衣")
 Case"雪"
    MsgBox("穿棉袄")
 End Select
End Sub

Private Sub Command2_Click()
  End
End Sub

    我们运行一下程序，好了，下面是文本框的各项属性：

    1.Text属性在文本框中显示的文本信息
    2.Locked属性用来设置控件是否可以被编辑
    3.MaxLength属性用来设置控件中能够输入的字符是否有最大数量。
    4.MultiLine属性决定文本框能否接受或显示多行文本。
    5.ScrollBars属性决定在文本框中是否加入滚动条。
    6.PasswordChar属性指示所键入的字符在文本框中是否要显示出来。
    7.SelStart属性用于设置所选择文本的起点
    8.SelLength属性用于设置所选择文本的字符数
    9.SelText属性用于设置所选择文本的内容。

    常用的文本框的事件有Chang(文本改变)，KeyPress（按键），GotFocus(获得焦点)，LostFocus(失

去焦点)。
   
    下面我们建一个口令校对窗口.先构建窗体，然后修改控件的属性.
    
    在程序中输入以下代码：

Private Sub Command1_Click()
   Static cs As Integer
   cs = cs + 1
   If cs >= 3 Then
      End
   End If
   k1 = Text2.Text
   If k1 = "123456"Then
      Form2.Show
      Else
       MsgBox"你输入的密码是" + k1 +"错误" + vbNewLine + "你输入的密码的次数已经" + Str(cs) + vbNewLine + "最多为三次"
      End If
End Sub

Private Sub Command2_Click()
      MsgBox "再见"
      End
End Sub
Private Sub Form_Load()
       Text2.PasswordChar = "*"
       Text2.MaxLength = 6
End Sub
   
    在姓名输入框中随便输入姓名，在口令输入框中输入密码：123456，单击确定，出现Form2窗体。如

果口令输入错误，会出现错误提示框。
   
    下面我们再来看下复选框的应用。
   
    还是作一个程序，看我做。。。
   
    修改控件的属性，然后加入下面的代码。。。

Private Sub Cmdend_Click()
   End
End Sub

Private sub Cmdok_Click()
   If Chkbold.value = 1 Then
      Labchar.FontBold = True
   Else
      Labchar.Fontbold = false
   End If
   If Chkunder.value = 1 Then
      Labchar.FontUnderline = True
   Else
      Labchar.FontUnderline = False
   End If
End Sub

Private Sub Form_Load()
   Labchar.FontBold = False
   Labchar.FontUnderline = False
End Sub

    这样就做好了，由于时间关系，教程就作到这里了。我们的VB基础快学完了，我不打算再继续讲VB的

程序制作了，如果大家想学的话，可以去黑吧找，现在有很多人再做VB的教程。。
   
    再见！！！我的论坛：http://hack123.zzzg.com，有问题来找我！！！