如何在if语句中添加performclick

时间:2016-05-08 08:16:06

标签: vb.net

我有一个问题。

我有4个表格,3个表格有相同的按钮用于1个表格。如果使用performclick按下这3个表单按钮之一,我想更改表单1中的标签。但是当我测试它时,它显示错误“表达式不会产生值”。

有什么办法可以避免吗?

这是我的代码:

 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

1 个答案:

答案 0 :(得分:0)

您可以通过从If语句中删除PerformClick()避免它。 PerformClick()对按钮执行虚假点击,这是一种返回值的方法。您无法在If语句中进行检查。

你将无法检查按钮是否被单击,因为PerformClick()只是为了调用paint事件使其看起来像是按下了按钮,然后它只是调用{{1举起所有订阅的OnClick(EventArgs.Empty)个活动。

请参阅Reference Source

要检查定期点击,您必须订阅Click事件:

Click