Puzzle Game - Skill3.vb

Puzzle Game / Skill3.vb

Puzzle Game - Skill3.vb

Skill3.vb

1. Public Class Skill3
2.     Dim MoveState As Integer = 0
3.     Dim MoveObject As Object
4.     Dim SkillPics As Integer = 0
5.     Dim CountIMG As Integer = 0
6.     Public Sub SetubCursor(ByVal MyImage As Bitmap)
7.         On Error Resume Next
8.         Dim bmCur As New Bitmap(MyImage)
9.         Dim ptrCur As IntPtr = bmCur.GetHicon
10.         Dim cur As Cursor
11.         cur = New Cursor(ptrCur)
12.         Me.Cursor = cur
13.     End Sub
14.     Private Sub Skill3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
15.         SetubCursor(My.Resources.cursor_copy)
16.         Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
17.         Me.WindowState = FormWindowState.Maximized
18.         SkillPics = 30
19.     End Sub
20.     Public Sub ImageClicks(ByRef Pictures As Object)
21.         If MoveState = 0 Then
22.             MoveState = 1
23.             SetubCursor(Pictures.Image)
24.             MoveObject = Pictures
25.             MoveObject.visible = False
26.         Else
27.             MoveState = 0
28.             SetubCursor(My.Resources.cursor_copy)
29.         End If
30.     End Sub
31.     Private Sub Pic7M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic7M.Click
32.         ImageClicks(Pic7M)
33.     End Sub
34.     Private Sub Pic26M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic26M.Click
35.         ImageClicks(Pic26M)
36.     End Sub
37.     Private Sub Pic25M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic25M.Click
38.         ImageClicks(Pic25M)
39.     End Sub
40.     Private Sub Pic28M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic28M.Click
41.         ImageClicks(Pic28M)
42.     End Sub
43.     Private Sub Pic4M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic4M.Click
44.         ImageClicks(Pic4M)
45.     End Sub
46.     Private Sub Pic8M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic8M.Click
47.         ImageClicks(Pic8M)
48.     End Sub
49.     Private Sub Pic11M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic11M.Click
50.         ImageClicks(Pic11M)
51.     End Sub
52.     Private Sub Pic20M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic20M.Click
53.         ImageClicks(Pic20M)
54.     End Sub
55.     Private Sub Pic22M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic22M.Click
56.         ImageClicks(Pic22M)
57.     End Sub
58.     Private Sub Pic13M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic13M.Click
59.         ImageClicks(Pic13M)
60.     End Sub
61.     Private Sub Pic30M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic30M.Click
62.         ImageClicks(Pic30M)
63.     End Sub
64.     Private Sub Pic14M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic14M.Click
65.         ImageClicks(Pic14M)
66.     End Sub
67.     Private Sub Pic23M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic23M.Click
68.         ImageClicks(Pic23M)
69.     End Sub
70.     Private Sub Pic3M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic3M.Click
71.         ImageClicks(Pic3M)
72.     End Sub
73.     Private Sub Pic17M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic17M.Click
74.         ImageClicks(Pic17M)
75.     End Sub
76.     Private Sub Pic1M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic1M.Click
77.         ImageClicks(Pic1M)
78.     End Sub
79.     Private Sub Pic6M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic6M.Click
80.         ImageClicks(Pic6M)
81.     End Sub
82.     Private Sub Pic21M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic21M.Click
83.         ImageClicks(Pic21M)
84.     End Sub
85.     Private Sub Pic16M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic16M.Click
86.         ImageClicks(Pic16M)
87.     End Sub
88.     Private Sub Pic27M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic27M.Click
89.         ImageClicks(Pic27M)
90.     End Sub
91.     Private Sub Pic10M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic10M.Click
92.         ImageClicks(Pic10M)
93.     End Sub
94.     Private Sub Pic29M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic29M.Click
95.         ImageClicks(Pic29M)
96.     End Sub
97.     Private Sub Pic18M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic18M.Click
98.         ImageClicks(Pic18M)
99.     End Sub
100.     Private Sub Pic15M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic15M.Click
101.         ImageClicks(Pic15M)
102.     End Sub
103.     Private Sub Pic5M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic5M.Click
104.         ImageClicks(Pic5M)
105.     End Sub
106.     Private Sub Pic12M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic12M.Click
107.         ImageClicks(Pic12M)
108.     End Sub
109.     Private Sub Pic9M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic9M.Click
110.         ImageClicks(Pic9M)
111.     End Sub
112.     Private Sub Pic24M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic24M.Click
113.         ImageClicks(Pic24M)
114.     End Sub
115.     Private Sub Pic19M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic19M.Click
116.         ImageClicks(Pic19M)
117.     End Sub
118.     Private Sub Pic2M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic2M.Click
119.         ImageClicks(Pic2M)
120.     End Sub
121.     Private Sub Skill3_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
122.         'On Error Resume Next
123.         If MoveObject IsNot Nothing Then
124.             MoveObject.visible = True
125.             MoveObject.left = e.Location.X - MoveObject.width / 2
126.             MoveObject.top = e.Location.Y - MoveObject.height / 2
127.             Dim TargetPic As Object = Nothing
128.             If MoveObject.name = Pic1M.Name Then
129.                 TargetPic = Pic1
130.             ElseIf MoveObject.name = Pic2M.Name Then
131.                 TargetPic = Pic2
132.             ElseIf MoveObject.name = Pic3M.Name Then
133.                 TargetPic = Pic3
134.             ElseIf MoveObject.name = Pic4M.Name Then
135.                 TargetPic = Pic4
136.             ElseIf MoveObject.name = Pic5M.Name Then
137.                 TargetPic = Pic5
138.             ElseIf MoveObject.name = Pic6M.Name Then
139.                 TargetPic = Pic6
140.             ElseIf MoveObject.name = Pic7M.Name Then
141.                 TargetPic = Pic7
142.             ElseIf MoveObject.name = Pic8M.Name Then
143.                 TargetPic = Pic8
144.             ElseIf MoveObject.name = Pic9M.Name Then
145.                 TargetPic = Pic9
146.             ElseIf MoveObject.name = Pic10M.Name Then
147.                 TargetPic = Pic10
148.             ElseIf MoveObject.name = Pic11M.Name Then
149.                 TargetPic = Pic11
150.             ElseIf MoveObject.name = Pic12M.Name Then
151.                 TargetPic = Pic12
152.             ElseIf MoveObject.name = Pic13M.Name Then
153.                 TargetPic = Pic13
154.             ElseIf MoveObject.name = Pic14M.Name Then
155.                 TargetPic = Pic14
156.             ElseIf MoveObject.name = Pic15M.Name Then
157.                 TargetPic = Pic15
158.             ElseIf MoveObject.name = Pic16M.Name Then
159.                 TargetPic = Pic16
160.             ElseIf MoveObject.name = Pic17M.Name Then
161.                 TargetPic = Pic17
162.             ElseIf MoveObject.name = Pic18M.Name Then
163.                 TargetPic = Pic18
164.             ElseIf MoveObject.name = Pic19M.Name Then
165.                 TargetPic = Pic19
166.             ElseIf MoveObject.name = Pic20M.Name Then
167.                 TargetPic = Pic20
168.             ElseIf MoveObject.name = Pic21M.Name Then
169.                 TargetPic = Pic21
170.             ElseIf MoveObject.name = Pic22M.Name Then
171.                 TargetPic = Pic22
172.             ElseIf MoveObject.name = Pic23M.Name Then
173.                 TargetPic = Pic23
174.             ElseIf MoveObject.name = Pic24M.Name Then
175.                 TargetPic = Pic24
176.             ElseIf MoveObject.name = Pic25M.Name Then
177.                 TargetPic = Pic25
178.             ElseIf MoveObject.name = Pic26M.Name Then
179.                 TargetPic = Pic26
180.             ElseIf MoveObject.name = Pic27M.Name Then
181.                 TargetPic = Pic27
182.             ElseIf MoveObject.name = Pic28M.Name Then
183.                 TargetPic = Pic28
184.             ElseIf MoveObject.name = Pic29M.Name Then
185.                 TargetPic = Pic29
186.             ElseIf MoveObject.name = Pic30M.Name Then
187.                 TargetPic = Pic30
188.             Else
189.                 TargetPic = Nothing
190.             End If
191.             If TargetPic IsNot Nothing And MoveObject.left > TargetPic.Left - 50 And MoveObject.top > TargetPic.Top - 50 And MoveObject.left < TargetPic.Left + TargetPic.Width And MoveObject.top < TargetPic.Top + TargetPic.Height Then
192.                 MoveObject.location = TargetPic.Location
193.                 Beep()
194.                 Me.Text = "رائع ...  في المكان الصحيح"
195.                 SetubCursor(My.Resources.cursor_copy)
196.                 CountIMG += 1
197.                 If CountIMG >= SkillPics Then MsgBox("لقد ربحت") : Skill1.Show() : Me.Close()
198.             Else
199.                 Me.Text = "لم تتطابق"
200.                 SetubCursor(My.Resources.cursor1_copy)
201.             End If
202.             MoveObject = Nothing
203.             MoveState = 0
204.         End If
205.     End Sub
206. End Class