VB求助 初学者

发布网友 发布时间：2023-12-04 14:51

我来回答

共2个回答

热心网友 时间：2024-11-18 13:39

'以下是源代码：
'1个Label控件,1个Command控件,1个Timer控件。
Dim chaleft As Integer
Dim chatop As Integer
Dim fangleft As Integer
Dim fangtop As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 100
Label1.Left = 0
Label1.Top = 0
chaleft = Form1.Width / 50
chatop = Form1.Height / 50
Form1.Width = 6000
Form1.Height = 5000
End Sub
Private Sub Timer1_Timer()
If Label1.Left >= Form1.Width Then
'If Label1.Left >= Form1.Width - 5 Then
fangleft = 1
ElseIf Label1.Left <= 0 Then
fangleft = 0
End If
If Label1.Top >= Form1.Height Then
'If Label1.Top >= Form1.Height - 5 Then
fangtop = 1
ElseIf Label1.Top <= 0 Then
fangtop = 0
End If
If fangleft = 0 Then
Label1.Left = Label1.Left + chaleft
ElseIf fangleft = 1 Then
Label1.Left = Label1.Left - chaleft
End If
If fangtop = 0 Then
Label1.Top = Label1.Top + chatop
ElseIf fangtop = 1 Then
Label1.Top = Label1.Top - chatop
End If
End Sub

热心网友 时间：2024-11-18 13:39

1.再增加一个时间控件，并设置enabled=false，时间间隔1000
2.点击按钮之后时间控件enabled=true，并在时间控件的事件里面把label的left和top加一定的数值，并判断label的left+width是否达到界面的width值，如果达到就让label的left和top减一定的数值