From b91b3c5d419e680389634163c379b5f2e6eafb13 Mon Sep 17 00:00:00 2001 From: mw Date: Mon, 15 Jan 2024 10:54:37 +0100 Subject: [PATCH 1/3] Button OK -> Action1 --- Form1.Designer.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Form1.Designer.vb b/Form1.Designer.vb index 500403f..5aa193a 100644 --- a/Form1.Designer.vb +++ b/Form1.Designer.vb @@ -31,7 +31,7 @@ Partial Class Form1 Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(107, 39) Me.Button1.TabIndex = 0 - Me.Button1.Text = "OK" + Me.Button1.Text = "Action1" Me.Button1.UseVisualStyleBackColor = True ' 'Form1 From f8a698905d7bb0a05994fc498e0ee27f109296b5 Mon Sep 17 00:00:00 2001 From: mw Date: Mon, 15 Jan 2024 10:55:38 +0100 Subject: [PATCH 2/3] Message beim Klicken von Action1 --- Form1.vb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/Form1.vb b/Form1.vb index 17d6595..bfcb44e 100644 --- a/Form1.vb +++ b/Form1.vb @@ -1,3 +1,5 @@ Public Class Form1 - + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + MessageBox.Show("hier käme Action1") + End Sub End Class From c9b686492e9d2c4e7e7edf64291c73a6f367ee44 Mon Sep 17 00:00:00 2001 From: mw Date: Mon, 15 Jan 2024 11:00:41 +0100 Subject: [PATCH 3/3] Action2 --- Form1.Designer.vb | 12 ++++++++++++ Form1.vb | 4 +++- 2 files changed, 15 insertions(+), 1 deletion(-) diff --git a/Form1.Designer.vb b/Form1.Designer.vb index 500403f..8bf6f66 100644 --- a/Form1.Designer.vb +++ b/Form1.Designer.vb @@ -23,6 +23,7 @@ Partial Class Form1 _ Private Sub InitializeComponent() Me.Button1 = New System.Windows.Forms.Button() + Me.Button2 = New System.Windows.Forms.Button() Me.SuspendLayout() ' 'Button1 @@ -34,11 +35,21 @@ Partial Class Form1 Me.Button1.Text = "OK" Me.Button1.UseVisualStyleBackColor = True ' + 'Button2 + ' + Me.Button2.Location = New System.Drawing.Point(310, 178) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(128, 45) + Me.Button2.TabIndex = 1 + Me.Button2.Text = "Action2" + Me.Button2.UseVisualStyleBackColor = True + ' 'Form1 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(800, 450) + Me.Controls.Add(Me.Button2) Me.Controls.Add(Me.Button1) Me.Name = "Form1" Me.Text = "Form1" @@ -47,4 +58,5 @@ Partial Class Form1 End Sub Friend WithEvents Button1 As Button + Friend WithEvents Button2 As Button End Class diff --git a/Form1.vb b/Form1.vb index 17d6595..afecca6 100644 --- a/Form1.vb +++ b/Form1.vb @@ -1,3 +1,5 @@ Public Class Form1 - + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click + MessageBox.Show("hier käme Action2") + End Sub End Class