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
Showing posts with label Puzzle Game. Show all posts
Showing posts with label Puzzle Game. Show all posts

Puzzle Game - Resources

Puzzle Game / Resources
Puzzle Game - Resources
Puzzle Game - Resources
The important thing in glad programming user interface is the "Resources".
Each Visual Studio.NET project has Resources folder to store all type of images and bitmaps or icons etc...
In our tutorials you must download the Resources folder and paste it to your project folder, to make sure that your project will working as we programming.
Download the Puzzle Game - Resources folder from Google Drive.



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)

Puzzle Game - Skill3.Designer.vb

Puzzle Game / Skill3.Designer.vb
Puzzle Game - Skill3.Designer.vb
Puzzle Game - Skill3.Designer.vb

Skill3.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class Skill3
  3.     Inherits System.Windows.Forms.Form
  4.  
  5.     'Form overrides dispose to clean up the component list.
  6.     <System.Diagnostics.DebuggerNonUserCode()> _
  7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
  8.         If disposing AndAlso components IsNot Nothing Then
  9.             components.Dispose()
  10.         End If
  11.         MyBase.Dispose(disposing)
  12.     End Sub
  13.  
  14.     'Required by the Windows Form Designer
  15.     Private components As System.ComponentModel.IContainer
  16.  
  17.     'NOTE: The following procedure is required by the Windows Form Designer
  18.     'It can be modified using the Windows Form Designer.  
  19.     'Do not modify it using the code editor.
  20.     <System.Diagnostics.DebuggerStepThrough()> _
  21.     Private Sub InitializeComponent()
  22.         Me.Label3 = New System.Windows.Forms.Label
  23.         Me.Label4 = New System.Windows.Forms.Label
  24.         Me.PictureBox16 = New System.Windows.Forms.PictureBox
  25.         Me.Pic16 = New System.Windows.Forms.PictureBox
  26.         Me.Pic14 = New System.Windows.Forms.PictureBox
  27.         Me.Pic13 = New System.Windows.Forms.PictureBox

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

Puzzle Game - Skill2.Designer.vb

Puzzle Game - Skill2.Designer.vb
Puzzle Game - Skill2.Designer.vb
Puzzle Game - Skill2.Designer.vb

Skill2.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class Skill2
  3.     Inherits System.Windows.Forms.Form
  4.  
  5.     'Form overrides dispose to clean up the component list.
  6.     <System.Diagnostics.DebuggerNonUserCode()> _
  7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
  8.         If disposing AndAlso components IsNot Nothing Then
  9.             components.Dispose()
  10.         End If
  11.         MyBase.Dispose(disposing)
  12.     End Sub
  13.  
  14.     'Required by the Windows Form Designer
  15.     Private components As System.ComponentModel.IContainer
  16.  
  17.     'NOTE: The following procedure is required by the Windows Form Designer
  18.     'It can be modified using the Windows Form Designer.  
  19.     'Do not modify it using the code editor.
  20.     <System.Diagnostics.DebuggerStepThrough()> _
  21.     Private Sub InitializeComponent()
  22.         Me.Pic1 = New System.Windows.Forms.PictureBox
  23.         Me.Pic2 = New System.Windows.Forms.PictureBox
  24.         Me.Pic3 = New System.Windows.Forms.PictureBox
  25.         Me.Pic4 = New System.Windows.Forms.PictureBox
  26.         Me.Pic5 = New System.Windows.Forms.PictureBox
  27.         Me.Pic6 = New System.Windows.Forms.PictureBox
  28.         Me.Pic7 = New System.Windows.Forms.PictureBox
  29.         Me.Pic8 = New System.Windows.Forms.PictureBox

Puzzle Game - Skill1.vb


Puzzle Game / Skill1.vb
Puzzle Game - Skill1.vb
Puzzle Game - Skill1.vb

Skill1.vb
  1. Public Class Skill1
  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 Game_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 = 9
  19.     End Sub
  20.     Private Sub MPic1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MPic1.Click
  21.         If MoveState = 0 Then
  22.             MoveState = 1
  23.             SetubCursor(MPic1.Image)
  24.             MoveObject = MPic1
  25.             MoveObject.visible = False
  26.         Else
  27.             MoveState = 0
  28.             SetubCursor(My.Resources.cursor_copy)
  29.         End If
  30.     End Sub
  31.     Private Sub MPic2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MPic2.Click

Puzzle Game - Skill1.Designer.vb

Puzzle Game / Skill1.Designer.vb
Puzzle Game - Skill1.Designer.vb
Puzzle Game - Skill1.Designer.vb

Skill1.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class Skill1
  3.     Inherits System.Windows.Forms.Form
  4.  
  5.     'Form overrides dispose to clean up the component list.
  6.     <System.Diagnostics.DebuggerNonUserCode()> _
  7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
  8.         If disposing AndAlso components IsNot Nothing Then
  9.             components.Dispose()
  10.         End If
  11.         MyBase.Dispose(disposing)
  12.     End Sub
  13.  
  14.     'Required by the Windows Form Designer
  15.     Private components As System.ComponentModel.IContainer
  16.  
  17.     'NOTE: The following procedure is required by the Windows Form Designer
  18.     'It can be modified using the Windows Form Designer.  
  19.     'Do not modify it using the code editor.
  20.     <System.Diagnostics.DebuggerStepThrough()> _
  21.     Private Sub InitializeComponent()
  22.         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Skill1))
  23.         Me.Label1 = New System.Windows.Forms.Label
  24.         Me.Label2 = New System.Windows.Forms.Label
  25.         Me.Label3 = New System.Windows.Forms.Label

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.