Process Modules Project

Full Puzzle Game 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 - Skill3.vb

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

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.