一、VB 中字幕来回移动
在 FORM1 在 增 加 1 个 Label1 标 签 , 2 个 TIMER 对 象 , 分 别 为
Timer1、Timer2 代码如下:
Private Sub Form_Load()
Timer1.Interval = 100
Timer2.Interval = 100
Timer1.Enabled = True
Timer2.Enabled = False
End Sub
Private Sub Timer1_Timer()
Label1.Left = Label1.Left + 50
If Label1.Left + Label1.Width >= Form1.Width Then
Timer2.Enabled = True
Timer1.Enabled = False
End If
End Sub
Private Sub Timer2_Timer()
Label1.Left = Label1.Left - 50
If Label1.Left <= 0 Then
Timer1.Enabled = True
Timer2.Enabled = False
End If
End Sub
二、看程序写结果示例
1.有如下程序:
Private Sub Form_Click()
Dim x As Integer, y As Integer
x = 0: y = 0
For i = 5 To 10
Call f1(x, y)
Next
Print "x="; x
Print "y="; y
End Sub
Sub f1(ByVal m As Integer, n As Integer)
m = m * 1.5
评论0
最新资源