Puzzle Game - Skill2.vb

Puzzle Game - Skill2.vb

Puzzle Game - Skill2.vb

Skill2.vb

1. Public Class Skill2
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 Skill2_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 = 16
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 Pic12M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic12M.Click
32.         ImageClicks(Pic12M)
33.     End Sub
34.     Private Sub Pic5M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic5M.Click
35.         ImageClicks(Pic5M)
36.     End Sub
37.     Private Sub Pic14M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic14M.Click
38.         ImageClicks(Pic14M)
39.     End Sub
40.     Private Sub Pic9M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic9M.Click
41.         ImageClicks(Pic9M)
42.     End Sub
43.     Private Sub Pic6M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic6M.Click
44.         ImageClicks(Pic6M)
45.     End Sub
46.     Private Sub Pic16M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic16M.Click
47.         ImageClicks(Pic16M)
48.     End Sub
49.     Private Sub Pic3M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic3M.Click
50.         ImageClicks(Pic3M)
51.     End Sub
52.     Private Sub Pic11M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic11M.Click
53.         ImageClicks(Pic11M)
54.     End Sub
55.     Private Sub Pic1M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic1M.Click
56.         ImageClicks(Pic1M)
57.     End Sub
58.     Private Sub Pic15M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic15M.Click
59.         ImageClicks(Pic15M)
60.     End Sub
61.     Private Sub Pic7M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic7M.Click
62.         ImageClicks(Pic7M)
63.     End Sub
64.     Private Sub Pic2M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic2M.Click
65.         ImageClicks(Pic2M)
66.     End Sub
67.     Private Sub Pic8M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic8M.Click
68.         ImageClicks(Pic8M)
69.     End Sub
70.     Private Sub Pic13M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic13M.Click
71.         ImageClicks(Pic13M)
72.     End Sub
73.     Private Sub Pic10M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic10M.Click
74.         ImageClicks(Pic10M)
75.     End Sub
76.     Private Sub Pic4M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pic4M.Click
77.         ImageClicks(Pic4M)
78.     End Sub
79.     Private Sub Skill2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
80.         'On Error Resume Next
81.         If MoveObject IsNot Nothing Then
82.             MoveObject.visible = True
83.             MoveObject.left = e.Location.X - MoveObject.width / 2
84.             MoveObject.top = e.Location.Y - MoveObject.height / 2
85.             Dim TargetPic As Object = Nothing
86.             If MoveObject.name = Pic1M.Name Then
87.                 TargetPic = Pic1
88.             ElseIf MoveObject.name = Pic2M.Name Then
89.                 TargetPic = Pic2
90.             ElseIf MoveObject.name = Pic3M.Name Then
91.                 TargetPic = Pic3
92.             ElseIf MoveObject.name = Pic4M.Name Then
93.                 TargetPic = Pic4
94.             ElseIf MoveObject.name = Pic5M.Name Then
95.                 TargetPic = Pic5
96.             ElseIf MoveObject.name = Pic6M.Name Then
97.                 TargetPic = Pic6
98.             ElseIf MoveObject.name = Pic7M.Name Then
99.                 TargetPic = Pic7
100.             ElseIf MoveObject.name = Pic8M.Name Then
101.                 TargetPic = Pic8
102.             ElseIf MoveObject.name = Pic9M.Name Then
103.                 TargetPic = Pic9
104.             ElseIf MoveObject.name = Pic10M.Name Then
105.                 TargetPic = Pic10
106.             ElseIf MoveObject.name = Pic11M.Name Then
107.                 TargetPic = Pic11
108.             ElseIf MoveObject.name = Pic12M.Name Then
109.                 TargetPic = Pic12
110.             ElseIf MoveObject.name = Pic13M.Name Then
111.                 TargetPic = Pic13
112.             ElseIf MoveObject.name = Pic14M.Name Then
113.                 TargetPic = Pic14
114.             ElseIf MoveObject.name = Pic15M.Name Then
115.                 TargetPic = Pic15
116.             ElseIf MoveObject.name = Pic16M.Name Then
117.                 TargetPic = Pic16
118.             Else
119.                 TargetPic = Nothing
120.             End If
121.             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
122.                 MoveObject.location = TargetPic.Location
123.                 Beep()
124.                 Me.Text = "رائع ...  في المكان الصحيح"
125.                 SetubCursor(My.Resources.cursor_copy)
126.                 CountIMG += 1
127.                 If CountIMG >= SkillPics Then MsgBox("لقد ربحت") : Skill3.Show() : Me.Close()
128.             Else
129.                 Me.Text = "لم تتطابق"
130.                 SetubCursor(My.Resources.cursor1_copy)
131.             End If
132.             MoveObject = Nothing
133.             MoveState = 0
134.         End If
135.     End Sub
136. End Class