VB的几个趣味程序

传鹰 
2001年 17期

#1    滚动字幕效果
　　　　当窗体被激活时，字幕会从下往上缓缓上升，像电影字幕效果一样，同时你还可以改变字幕中的文字，滚动速度。
　　#2    界面设计
　　　　在窗体中添加一个PictureBox和Timer控件，然后将一个TextBox和滚动条VScrollBox加入到PictureBox中。
　　　　程序如下：
　　　　Private Sub Form_Activate（）　
　　　　Timer1.Enabled = True
　　　　End Sub
　　　　Private Sub Form_Load（）　
　　　　Timer1.Interval = 35
　　　　VScroll1.Max = Picture1.Height ＇将文本框限定在图片框之中滚动
　　　　VScroll1.Min = 0 - Text1.Height
　　　　VScroll1.Value = VScroll1.Max
　　　　End Sub
　　　　Private Sub Text2_LostFocus（）　
　　　　Text1.Text = Text2.Text
　　　　End Sub
　　　　Private Sub Timer1_Timer（）　
　　　　If VScroll1.Value > -（Text1.Height - 20） Then  ＇也可用VScroll1.Value >0
　　　　VScroll1.Value = VScroll1.Value - 35
　　　　Else
　　　　VScroll1.Value = VScroll1.Max
　　　　DoEvents
　　　　End If
　　　　Text1.Top = VScroll1.Value
　　　　Text1.Visible = True
　　　　DoEvents
　　　　End Sub
　　#1    特殊的退出效果
　　　　当单击窗体上的退出按钮时，窗体不是像一般情况一下就卸载了，而是从下往上逐渐消失，当只剩标题栏时，又改变了卸载方式，开始从右往左直至全部消失。
　　#2    界面设计
　　　　在窗体中添加一个CommandButton控件。
　　　　程序如下：
　　　　Private Sub Command1_Click（）　
　　　　GotoVal = Me.Height / 2
　　　　For Gointo = 1 To GotoVal
　　　　DoEvents
　　　　Me.Height = Me.Height - 10
　　　　If Me.Height <= 11 Then GoTo horiz
　　　　Next Gointo
　　　　horiz
　　　　Me.Height = 30
　　　　GotoVal = Me.Width / 2
　　　　For Gointo = 1 To GotoVal
　　　　DoEvents
　　　　Me.Width = Me.Width - 10
　　　　If Me.Width <= 11 Then End
　　　　Next Gointo
　　　　End
　　　　End Sub
　　#1    闪烁的窗体和标签
　　　　这个程序实现了窗体上标签的闪烁效果，这可被用于警告对话框中，使警告闪烁不止，提醒用户注意。
　　#2    界面设计
　　　　在窗体中添加一个Timer控件，设置Interval=600，一个Label标签。
　　　　程序如下：
　　　　Private Sub Timer1_Timer（）　
　　　　If Label1.FontSize = 12 Then
　　　　Label1.ForeColor = &HFF0000 ＇亮标签
　　　　Label1.FontSize = 14
　　　　Label1.FontBold = False
　　　　Form1.Height = Form1.Height + 100
　　　　Form1.Width = Form1.Width + 100
　　　　Form1.Left = Form1.Left - 50
　　　　Form1.Top = Form1.Top - 50
　　　　Else
　　　　Label1.ForeColor = &H800000 ＇暗标签
　　　　Label1.FontSize = 12
　　　　Label1.FontBold = True
　　　　Form1.Height = Form1.Height - 100
　　　　Form1.Width = Form1.Width - 100
　　　　Form1.Left = Form1.Left + 50
　　　　Form1.Top = Form1.Top + 50
　　　　End If
　　　　End Sub
　　
　　 
 