Question

求模拟QQ系统消息弹框的VB代码

求模拟QQ系统消息弹框的VB代码
有人提供了这样一段代码
Private Sub Image1_Click()
End Sub
Private Sub Image2_Click()
End
End Sub
Private Sub Image3_Click()
End
End Sub
Private Sub Image4_Click()
Shell "C:\\Program Files\\Internet Explorer\\iexplore.exe 网页", vbNormalFocus
End Sub
Private Sub Image5_Click()
Shell "C:\\Program Files\\Internet Explorer\\iexplore.exe 网页", vbNormalFocus
End Sub
Private Sub Image6_Click()
End
End Sub

但是添加的时候根本没显示啥啊，谁能给段完整的模拟QQ消息弹窗代码，就是像QQ10000弹出来的提示这样~~还有就是怎么添加到VB里去喔~~~``
学习专用```

Answer 1

Dim num As Integer
Private Sub Form_Load()
Dim UP As Boolean
Me.Left = Screen.Width - Me.Width
Me.Top = Screen.Height
Form1.Caption = "提示"
Timer1.Enabled = True
Timer1.Interval = 10
UP = True
num = 1
End Sub

Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
num = 2
End Sub

Private Sub Timer1_Timer()
Select Case num
Case 1:
If Me.Top > Screen.Height - Me.Height Then
Me.Top = Me.Top - 10
End If
Case 2:
If Me.Top < Screen.Height Then
Me.Top = Me.Top + 10
Else
Timer1.Enabled = False
End
End If
End Select
End Sub

再添加个时钟控件timer就可以了，祝你成功！