冰楓論壇

標題: 冒出廣告實作 [打印本頁]

---

作者: xpoi5020    時間: 2016-5-3 19:32
標題: 冒出廣告實作
範例圖:


程式碼:

1. Public Class Form1
   
2.     Dim MoveInt As Int64
   
3.     Dim Move2 As Int64
   
4.     Dim Move3 As Int64
   
5.     Dim Down As Int64 = My.Computer.Screen.WorkingArea.Height + Me.Size.Height
   
6.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   
7.         Me.Location = New Point(My.Computer.Screen.Bounds.Width - Me.Size.Width, My.Computer.Screen.Bounds.Height + Me.Size.Height)
   
8.         MoveInt = My.Computer.Screen.Bounds.Height - My.Computer.Screen.WorkingArea.Height
   
9.         Move2 = MoveInt + Me.Size.Height
   
10.         Move3 = My.Computer.Screen.Bounds.Height - Move2
    
11.         MOve.Start()
    
12.     End Sub
    
13.     Private Sub MOve_Tick(sender As Object, e As EventArgs) Handles MOve.Tick
    
14.         If Move3 < Me.Location.Y Then
    
15.             Me.Location = New Point(Me.Location.X, Me.Location.Y - 5)
    
16.         Else
    
17.             Me.TopMost = True
    
18. 
    
19.             MOve.Stop()
    
20. 
    
21.         End If
    
22.     End Sub
    
23. 
    
24.     Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
    
25.         Me.TopMost = False
    
26.         MOVEDOWN.Start()
    
27.     End Sub
    
28. 
    
29.     Private Sub MOVEDOWN_Tick(sender As Object, e As EventArgs) Handles MOVEDOWN.Tick
    
30.         If Down > Me.Location.Y Then
    
31.             Me.Location = New Point(Me.Location.X, Me.Location.Y + 5)
    
32.         Else
    
33. 
    
34.             End
    
35.             MOVEDOWN.Stop()
    
36.         End If
    
37.     End Sub
    
38. 
    
39.     Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
    
40. 
    
41.     End Sub
    
42. End Class

複製代碼

MOve跟MOVEDOWN 是Timer
Interval 都是1

---

歡迎光臨 冰楓論壇 (https://bingfong.com/)

Powered by 冰楓