Wie stelle ich einen performclick in eine if-Anweisung

Question

Ich habe ein Problem.

Ich habe 4 Formulare, 3 Formulare haben die gleiche Taste für 1 Formular verwendet. Ich möchte die Bezeichnung in Formular 1 ändern, wenn eine dieser 3 Formen mit perclick gedrückt wird. Aber wenn ich es teste, zeigt es Fehler "Ausdruck produziert keinen Wert".

Gibt es eine Möglichkeit, das zu vermeiden?

Hier ist mein Code:

If FormPetugas.Button2.PerformClick Then 
     Label1.Text = "Kode Petugas" 
     Label2.Text = "Nama Petugas" 
     Label3.Text = "Jenis Kelamin" 
     Label4.Text = "Alamat Petugas" 
     Label5.Text = "Nomor Telpon" 
     Label6.Text = "Username" 
     Label7.Text = "Password" 
     Label8.Text = "Hak Akses" 

     ComboBox1.Items.Clear() 
     ComboBox1.Items.Add("Laki-laki") 
     ComboBox1.Items.Add("Perempuan") 

     ComboBox2.Items.Clear() 
     ComboBox2.Items.Add("Administrasi") 
     ComboBox2.Items.Add("User Terpercaya") 
     ComboBox2.Items.Add("User Biasa") 
    ElseIf FormKaryawan.Button2.PerformClick Then 
     Label1.Text = "Kode Karyawan" 
     Label2.Text = "Nama Karyawan" 
     Label3.Text = "Jenis Kelamin" 
     Label4.Text = "Alamat Karyawan" 
     Label5.Text = "Nomor Telpon" 
     Label6.Text = "Tanggal Pendaftaran" 
     Label7.Text = "Ruangan" 
     Label8.Text = "Status" 

     ComboBox1.Items.Clear() 
     ComboBox1.Items.Add("Laki-laki") 
     ComboBox1.Items.Add("Perempuan") 

     ComboBox2.Items.Clear() 
     ComboBox2.Items.Add("Aktif") 
     ComboBox2.Items.Add("Tidak Aktif") 
     ComboBox2.Items.Add("Berhenti") 
    End If 

Answer 1

können Sie vermeiden durch PerformClick() von der If-Anweisung zu entfernen. PerformClick() führt einen gefälschten Klick auf die Schaltfläche, es ist eine Methode, die nicht gibt einen Wert zurück. Sie können es nicht in einer If-Anweisung überprüfen.

Sie werden nicht in der Lage sein zu überprüfen, ob eine Schaltfläche mit darauf geklickt wurde, weil, was PerformClick() tut genau ist es, das Paint-Ereignis aufrufen, um es so aussehen, wie die Taste gedrückt wird, dann ruft es nur OnClick(EventArgs.Empty) alle Click abonniert zu erhöhen Veranstaltungen.

Siehe Reference Source.

---

Um regelmäßige Klicks überprüfen Sie die Click Ereignis haben würde abonnieren:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
    'Do stuff. 
End Sub