Process Modules Project

Process Modules Project source code and complete project in "Process Modules and ProcessName Collecter" e-learning section.
Coded by: Wesam Naffaa

Puzzle Game project

Full Puzzle Game source code and complete project in "Puzzle Game project" e-learning section.
NOTE: You must read "Puzzle Game - Resources" to understand how to apply the sources & codes to your side.
Coded by: Wesam Naffaa

Accounting Manager project

Full Accounting manager source code and complete project in "Universal Accounting Manager project" e-learning section.
NOTE: You must read "Universal Accounting Manager - Resources" to understand how to apply the sources & codes to your side.
Coded by: Wesam Naffaa

File encryption project

Full File encryption center source code and complete project in "File encryption center project" e-learning section.
NOTE: You must read "File encryption center - Resources" to understand how to apply the sources & codes to your side.
Coded by: Wesam Naffaa

Puzzle Game - Skill2.vb

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

Valuable E-Book

Hello,
Baby first step is a friendly flashcards offering a growing collection of creative and educational ideas to help the toddler to learn the alphabet, so I put images that would be attractive to babies.

Support independent publishing: Buy this e-book on Lulu.