Puzzle Game / Skill1.vb
 |
| Puzzle Game - Skill1.vb |
Skill1.vb
- Public Class Skill1
- Dim MoveState As Integer = 0
- Dim MoveObject As Object
- Dim SkillPics As Integer = 0
- Dim CountIMG As Integer = 0
- Public Sub SetubCursor(ByVal MyImage As Bitmap)
- On Error Resume Next
- Dim bmCur As New Bitmap(MyImage)
- Dim ptrCur As IntPtr = bmCur.GetHicon
- Dim cur As Cursor
- cur = New Cursor(ptrCur)
- Me.Cursor = cur
- End Sub
- Private Sub Game_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- SetubCursor(My.Resources.cursor_copy)
- Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
- Me.WindowState = FormWindowState.Maximized
- SkillPics = 9
- End Sub
- Private Sub MPic1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MPic1.Click
- If MoveState = 0 Then
- MoveState = 1
- SetubCursor(MPic1.Image)
- MoveObject = MPic1
- MoveObject.visible = False
- Else
- MoveState = 0
- SetubCursor(My.Resources.cursor_copy)
- End If
- End Sub
- Private Sub MPic2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MPic2.Click
Hello, 