在VB中以两种不同的形式获取按钮名称 [英] Get button name in two different forms in VB

问题描述

我有两种不同的形式，即 form1 和 form2.对于form1，我有4个不同的按钮，名称分别为btnSet1、btnSet2、btnSet3、btnSet4，form1的每个按钮都将链接到同一个form2

I have 2 different forms which are form1 and form2. For the form1, I have 4 different buttons with the name btnSet1,btnSet2,btnSet3,btnSet4 and each button of form1 will link to the same form2

Form1

Private Sub btnSet1_Click(sender As Object, 
   e As EventArgs) Handles btnSet1.Click, btnSet2.Click, btnSet3.Click, btnSet4.Click
    Select True
        Case sender Is btnSet1
            form2.Show()
            Me.Hide()
        Case sender Is btnSet2
            form2.Show()
            Me.Hide()
        Case sender Is btnSet3
            form2.Show()
            Me.Hide()
        Case sender Is btnSet4
            form2.Show()
            Me.Hide()
    End Select
End Sub

对于我的 form2，我还有 4 个按钮.那么如何将以前的 form1 按钮名称(btnSet1/2/3/4)转换为当前的 form2 并写入 form1.

For my form2, I have 4 more buttons. So how do I get my previous form1 button name(btnSet1/2/3/4) to my current form2 and write into form1.

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button1.Click,Button2.Click, Button3.Click, Button4.Click

If (sender Is form1.btnSet1) Then 
     'How do I get the form1 btnSet1/2/3/4 if user click any button in form1

                Select Case True 
                    Case sender Is Button1 'form2 clicked button action
                        'bla...
                    Case sender Is Button2
                        'bla...
                    Case sender Is Button3
                       'bla...
                    Case sender Is Button4
                       'bla...
                End Select
ElseIf (sender Is form1.btnSet2) Then
                Select Case True 
                    Case sender Is Button1 'form2 clicked button action
                        'bla...
                    Case sender Is Button2
                        'bla...
                    Case sender Is Button3
                       'bla...
                    Case sender Is Button4
                       'bla...
                End Select
End If

推荐答案

根据你的例子，我会做这样的事情:

According to your example I would do something like this:

Public Class Form1
    Dim oForm2 As New Form2

    Private Sub btnSet1_Click(sender As Object, e As EventArgs) Handles btnSet1.Click, btnSet2.Click, btnSet3.Click, btnSet4.Click
        Select Case True
            Case sender Is btnSet1
                oForm2.oCallingButton = Me.btnSet1
                oForm2.Show()
                Me.Hide()
            Case sender Is btnSet2
                oForm2.oCallingButton = Me.btnSet2
                oForm2.Show()
                Me.Hide()
            Case sender Is btnSet3
                oForm2.oCallingButton = Me.btnSet3
                oForm2.Show()
                Me.Hide()
            Case sender Is btnSet4
                oForm2.oCallingButton = Me.btnSet4
                oForm2.Show()
                Me.Hide()
        End Select
    End Sub
End Class

Public Class Form2
    Public oCallingButton As Button

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click
        If (oCallingButton Is Form1.btnSet1) Then
            Select Case True
                Case sender Is Button1 'form2 clicked button action
                    'bla...
                Case sender Is Button2
                    'bla...
                Case sender Is Button3
                    'bla...
                Case sender Is Button4
                    'bla...
            End Select
        ElseIf (oCallingButton Is Form1.btnSet2) Then
            Select Case True
                Case sender Is Button1 'form2 clicked button action
                    'bla...
                Case sender Is Button2
                    'bla...
                Case sender Is Button3
                    'bla...
                Case sender Is Button4
                    'bla...
            End Select
        End If
    End Sub
End Class

这篇关于在VB中以两种不同的形式获取按钮名称的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！