前提・実現したいこと
Form1_Load時に画像を作成し、動く画像をクリックで動きを変化させたい。
画像を表示後、ボタンを押すことで動きを変化させることができるようになったのですが、画像を直接クリックし、個別に動かすことができません。
拙いコードですが、よろしくお願いします。
該当のソースコード
VBnet
1Public Class Form1 2 Inherits System.Windows.Forms.Form 3 Const SIKAKUNUM As Integer = 2 '四角の個数 定義 4 5 Dim ctr_pic(SIKAKUNUM) As PictureBox '画像を保持するクラス 6 Dim iti(SIKAKUNUM) As Sikaku '四角の位置を管理するクラス 7 Dim push As Boolean 8 Event switchmove(ByVal push As Boolean) 9 10 Private Sub Button1_end_Click(sender As Object, e As EventArgs) Handles Button1_end.Click 11 'プログラムを終了する。 12 End 13 End Sub 14 15 Private Sub Button2_start_Click(sender As Object, e As EventArgs) Handles Button2_start.Click 16 '移動スタート 17 Timer1.Enabled = True 18 End Sub 19 20 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load '起動時の処理 21 '画像をコードで表示する 22 Dim n As Integer 23 For n = 0 To SIKAKUNUM 24 25 '画像の位置を設定する 26 iti(n) = New Sikaku 27 iti(n).X = 80 * n 28 iti(n).Y = 50 * n 29 30 '画像コントロールを設定する・追加する 31 ctr_pic(n) = New PictureBox 32 With ctr_pic(n) 33 .Size = New Size(10, 10) 34 .Location = New Point(iti(n).X, iti(n).Y) 35 .Image = Image.FromFile("pic1.bmp") 36 End With 37 Me.Controls.Add(ctr_pic(n)) 38 Next 39 End Sub 40 41 Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick 42 '四角を移動させる 43 Dim n As Integer 44 For n = 0 To SIKAKUNUM 45 iti(n).go(Me, push) 46 ctr_pic(n).Location = New Point(iti(n).X, iti(n).Y) 47 Next 48 End Sub 49 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 50 If push = False Then 51 push = True 52 Debug.WriteLine("click = True") 53 Else 54 push = False 55 Debug.WriteLine("click = False") 56 End If 57 End Sub 58End Class 59 60Public Class Sikaku 61 Inherits Form1 62 '四角の位置を管理するクラス 継承 From1 63 Private c_X As Integer 64 Private c_Y As Integer 65 '四角のX座標を保持するプロパティ 66 Public Property X() As Integer 67 Get 68 Return c_X 69 End Get 70 Set(ByVal Value As Integer) 71 c_X = Value 72 End Set 73 End Property 74 75 '四角のY座標を保持するプロパティ 76 Public Property Y() As Integer 77 Get 78 Return c_Y 79 End Get 80 Set(ByVal Value As Integer) 81 c_Y = Value 82 End Set 83 End Property 84 85 Public Sub go(ByVal basyo As Form, ByVal pushu As Boolean) 86 87 If pushu = True Then 88 '四角を動かすメソッド (X) 89 c_X = c_X + 10 90 If c_X > basyo.Size.Width - 10 Then 'Width 横の長さ。 91 c_X = 0 92 End If 93 Else 94 '四角を動かすメソッド (Y) 95 c_Y = c_Y + 10 96 If c_Y > basyo.Size.Height - 10 Then 'Height 高さを取得する。 97 c_Y = 0 98 End If 99 End If 100 End Sub 101End Class
回答2件
あなたの回答
tips
プレビュー