質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

Q&A

解決済

2回答

3061閲覧

vb.net 画像を作成し、画像をクリックで動きを変化させたい。

Macchia1129

総合スコア4

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

0グッド

0クリップ

投稿2019/11/07 11:39

編集2019/11/07 15:39

前提・実現したいこと

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

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

退会済みユーザー

退会済みユーザー

2019/11/07 14:42

コードは ``` と ``` で囲ってください。インデントされて見やすくなるので。質問者さん自身もインデントされてないコードは読む気がしないのでは? 閲覧者・回答者はなおさらです。読んでもらえないと話が始まらないのですから、読んでもらえる努力をしましょう。
Macchia1129

2019/11/07 15:09

アドバイスありがとうございます。 初めて質問たため、気づきませんでした。 Visual Studioで書いたものをそもまま貼り付けていました。
guest

回答2

0

画像はPictureBoxに書いているみたいですから、PictureBoxのClickイベントにて変更すればいいのではないですか?

イベントハンドラの追加ですが
このように検索すればいろいろと解説ページが出てきます。
また、AddHandler ステートメントも参照してみてください。

投稿2019/11/07 12:10

編集2019/11/07 13:12
YAmaGNZ

総合スコア10222

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

Macchia1129

2019/11/07 13:04

回答ありがとうございます。 まだしっかりとイベントについて理解していないので申し訳ないのですが、 手動でボタンを配置し、イベントを発生させかたはわかるのですが、プログラムにて配置したものにクリックイベントを持たせる方法がわかりません。 方法などもらえると嬉しいです。
Macchia1129

2019/11/07 14:00

ありがとうございます! 調べてチャレンジしてみます!!
guest

0

自己解決

VB.NET

1Public Class Form1 2 Inherits System.Windows.Forms.Form 3 Const SIKAKUNUM As Integer = 2 '四角の個数 (定義数 + 1個表示される) 4 Dim ctr_pic(SIKAKUNUM) As Sikaku '画像を保持するクラス 5 Dim iti(SIKAKUNUM) As Sikaku '四角の位置を管理するクラス 6 Private Sub Button1_end_Click(sender As Object, e As EventArgs) Handles Button1_end.Click 7 'プログラムを終了する。 8 End 9 End Sub 10 11 Private Sub Button2_start_Click(sender As Object, e As EventArgs) Handles Button2_start.Click 12 '移動スタート 13 Timer1.Enabled = True 14 End Sub 15 16 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load '起動時の処理 17 '画像をコードで表示する 18 Dim n As Integer 19 For n = 0 To SIKAKUNUM 20 21 '画像の位置を設定する 22 iti(n) = New Sikaku 23 iti(n).X = 80 * (n + 1) 24 iti(n).Y = 50 * (n + 1) 25 26 '画像コントロールを設定する・追加する 27 ctr_pic(n) = New Sikaku 28 With ctr_pic(n) 29 .Size = New Size(10, 10) 30 .Location = New Point(iti(n).X, iti(n).Y) 31 .Image = Image.FromFile("pic1.bmp") 32 End With 33 Me.Controls.Add(ctr_pic(n)) 34 Next 35 End Sub 36 37 Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick 38 '四角を移動させる 39 Dim n As Integer 40 For n = 0 To SIKAKUNUM 41 iti(n).Go(Me, ctr_pic(n).pushVal) 42 ctr_pic(n).Location = New Point(iti(n).X, iti(n).Y) 43 Next 44 End Sub 45 46 Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click 47 If Timer1.Enabled = True Then 48 Timer1.Enabled = False 49 Button3.Text = "再開" 50 ElseIf Timer1.Enabled = False Then 51 Timer1.Enabled = True 52 Button3.Text = "動作中" 53 End If 54 End Sub 55End Class 56 57Public Class Sikaku 58 Inherits PictureBox 59 '四角の位置を管理するクラス 継承 From1 60 Private c_X As Integer 61 Private c_Y As Integer 62 Private push As Boolean = True 63 Public Property X() As Integer '四角のX座標を保持するプロパティ 64 Get 65 Return c_X 66 End Get 67 Set(ByVal Value As Integer) 68 c_X = Value 69 End Set 70 End Property 71 Public Property Y() As Integer '四角のY座標を保持するプロパティ 72 Get 73 Return c_Y 74 End Get 75 Set(ByVal value As Integer) 76 c_Y = value 77 End Set 78 End Property 79 ReadOnly Property pushVal As Boolean 80 Get 81 Return push 82 End Get 83 End Property 84 Private Sub Sikaku_Click(sender As Object, e As EventArgs) Handles Me.Click 85 Me.push = Not push '切り替え 86 Debug.WriteLine(push) 87 End Sub 88 Public Sub Go(ByVal basyo As Form, ByVal muki As Boolean) 89 If muki = True Then 90 '四角を動かすメソッド (X) 91 c_X = c_X + 10 92 If c_X > basyo.Size.Width - 10 Then 'Width 横の長さ。 93 c_X = 0 94 End If 95 Else 96 '四角を動かすメソッド (Y) 97 c_Y = c_Y + 10 98 If c_Y > basyo.Size.Height - 10 Then 'Height 高さを取得する。 99 c_Y = 0 100 End If 101 End If 102 End Sub 103End Class

投稿2019/11/26 12:04

Macchia1129

総合スコア4

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問