Home>
I want to create an image at Form1_Load and change the motion by clicking the moving image.
After displaying the image, you can change the movement by pressing a button, but you cannot click the image directly and move it individually.
It is an ugly code, thank you.
Public Class Form1
Inherits System.Windows.Forms.Form
Const SIKAKUNUM As Integer = 2 'Number of squares Definition
Dim ctr_pic (SIKAKUNUM) As PictureBox 'Class that holds images
Dim iti (SIKAKUNUM) As Sikaku 'Class that manages the position of the square
Dim push As Boolean
Event switchmove (ByVal push As Boolean)
Private Sub Button1_end_Click (sender As Object, e As EventArgs) Handles Button1_end.Click
'Exit the program.
End
End Sub
Private Sub Button2_start_Click (sender As Object, e As EventArgs) Handles Button2_start.Click
'Start moving
Timer1.Enabled = True
End Sub
Private Sub Form1_Load (sender As Object, e As EventArgs) Handles MyBase.Load 'Processing at startup
'Display image as code
Dim n As Integer
For n = 0 To SIKAKUNUM
'Set the image position
iti (n) = New Sikaku
iti (n) .X = 80 * n
iti (n) .Y = 50 * n
'Set and add image controls
ctr_pic (n) = New PictureBox
With ctr_pic (n)
.Size = New Size (10, 10)
.Location = New Point (iti (n) .X, iti (n) .Y)
.Image = Image.FromFile ("pic1.bmp")
End With
Me.Controls.Add (ctr_pic (n))
Next
End Sub
Private Sub Timer1_Tick (sender As Object, e As EventArgs) Handles Timer1.Tick
'Move the square
Dim n As Integer
For n = 0 To SIKAKUNUM
iti (n) .go (Me, push)
ctr_pic (n) .Location = New Point (iti (n) .X, iti (n) .Y)
Next
End Sub
Private Sub Button1_Click (sender As Object, e As EventArgs) Handles Button1.Click
If push = False Then
push = True
Debug.WriteLine ("click = True")
Else
push = False
Debug.WriteLine ("click = False")
End If
End Sub
End Class
Public Class Sikaku
Inherits Form1
'Class that manages the position of the square Inherit From1
Private c_X As Integer
Private c_Y As Integer
'Property that holds the X coordinate of the square
Public Property X () As Integer
Get
Return c_X
End Get
Set (ByVal Value As Integer)
c_X = Value
End Set
End Property
'Property that holds the Y coordinate of the square
Public Property Y () As Integer
Get
Return c_Y
End Get
Set (ByVal Value As Integer)
c_Y = Value
End Set
End Property
Public Sub go (ByVal basyo As Form, ByVal pushu As Boolean)
If pushu = True Then
'Method to move square (X)
c_X = c_X + 10
If c_X>basyo.Size.Width-10 Then 'Width The horizontal length.
c_X = 0
End If
Else
'Method to move square (Y)
c_Y = c_Y + 10
If c_Y>basyo.Size.Height-10 Then 'Height Get the height.
c_Y = 0
End If
End If
End Sub
End Class
-
Answer # 1
-
Answer # 2
Public Class Form1 Inherits System.Windows.Forms.Form Const SIKAKUNUM As Integer = 2 'Number of squares (defined number + 1) Dim ctr_pic (SIKAKUNUM) As Sikaku 'Class that holds images Dim iti (SIKAKUNUM) As Sikaku 'Class that manages the position of the square Private Sub Button1_end_Click (sender As Object, e As EventArgs) Handles Button1_end.Click 'Exit the program. End End Sub Private Sub Button2_start_Click (sender As Object, e As EventArgs) Handles Button2_start.Click 'Start moving Timer1.Enabled = True End Sub Private Sub Form1_Load (sender As Object, e As EventArgs) Handles MyBase.Load 'Processing at startup 'Display image as code Dim n As Integer For n = 0 To SIKAKUNUM 'Set the image position iti (n) = New Sikaku iti (n) .X = 80 * (n + 1) iti (n) .Y = 50 * (n + 1) 'Set and add image controls ctr_pic (n) = New Sikaku With ctr_pic (n) .Size = New Size (10, 10) .Location = New Point (iti (n) .X, iti (n) .Y) .Image = Image.FromFile ("pic1.bmp") End With Me.Controls.Add (ctr_pic (n)) Next End Sub Private Sub Timer1_Tick (sender As Object, e As EventArgs) Handles Timer1.Tick 'Move the square Dim n As Integer For n = 0 To SIKAKUNUM iti (n) .Go (Me, ctr_pic (n) .pushVal) ctr_pic (n) .Location = New Point (iti (n) .X, iti (n) .Y) Next End Sub Private Sub Button3_Click (sender As Object, e As EventArgs) Handles Button3.Click If Timer1.Enabled = True Then Timer1.Enabled = False Button3.Text = "Resume" ElseIf Timer1.Enabled = False Then Timer1.Enabled = True Button3.Text = "Active" End If End Sub End Class Public Class Sikaku Inherits PictureBox 'Class that manages the position of the square Inherit From1 Private c_X As Integer Private c_Y As Integer Private push As Boolean = True Public Property X () As Integer 'Property that holds the square X coordinate Get Return c_X End Get Set (ByVal Value As Integer) c_X = Value End Set End Property Public Property Y () As Integer 'Property that holds the Y coordinate of the square Get Return c_Y End Get Set (ByVal value As Integer) c_Y = value End Set End Property ReadOnly Property pushVal As Boolean Get Return push End Get End Property Private Sub Sikaku_Click (sender As Object, e As EventArgs) Handles Me.Click Me.push = Not push 'switch Debug.WriteLine (push) End Sub Public Sub Go (ByVal basyo As Form, ByVal muki As Boolean) If muki = True Then 'Method to move square (X) c_X = c_X + 10 If c_X>basyo.Size.Width-10 Then 'Width The horizontal length. c_X = 0 End If Else 'Method to move square (Y) c_Y = c_Y + 10 If c_Y>basyo.Size.Height-10 Then 'Height Get the height. c_Y = 0 End If End If End Sub End Class
Related articles
- javascript - i'm new to js about image change display in attr
- javascript i want to be able to change the grid image from black to white by clicking and moving the mouse
- python - create a video by extracting an image from the opencv_ folder
- html - i want to partially change the transparency of the image (only the part that overlaps with a specific element)
- i want to change the image drawn in rgb using python matplotlib to hsv
- i want to change the background color of the panel of the date registered in vbnet homebrew calendar
- javascript - i want to create a rails image preview
- vbnet - change the combo box that can be edited by selecting vb or combo box
- javascript - i want to rotate the motion of rotating the image with a swipe like a coin individually
- javascript - in react, i want to change the image using select
- ubuntu - i want to create a container from a local container image with kubenetes
- how to change the ue4 widget image
- javascript - how to create an image upload system like facebook
- file - i want to save the path to an image in the database, but i can't create it (laravel, vuejs) post multiple images
- python: i want to create a table of image list and display it in html
- i want to create code to rotate an image using matlab
- html - i can't change the image when i click it with jquery
- java - i want to create a shortcut for an image file on the home screen
- linux - i want to create a container from a local container image with kubenetes
- i want to create a 3d array with c ++ and convert it to an image
Trends
The image seems to be written in the PictureBox, so it should be changed in the Click event of the PictureBox.
Adding event handlers
If you search like this, various explanation pages will appear.
Also see the AddHandler statement.