Text_Change 事件未引发

Question

我有如下一段代码：

private sub xtoy()
    lbl_packed_as.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DatasetProduct, "tbl_products.packed_fresh_or_frozen"))
end sub

还有这个：

Private Sub lbl_packed_as_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbl_packed_as.TextChanged
    Select Case lbl_packed_as.Text
        Case "FR"
            rdb_fresh.Checked = True
        Case "FZ"
            rdb_frozen.Checked = True
        Case "NA"
            rdb_na.Checked = True
    End Select
End Sub

此时标签lbl_packed_as.Visible=false所以我无法到达上面的方法。如果我设置 lbl_packed_as.Visible=True 则上述方法有效。我不想在屏幕上显示 lbl_packed_as 标签。

有什么帮助吗？

Answer 1

正如我在评论中所说，您可以将标签的位置更改为不在表单可视区域内的点。

我建议使用设计器 window 将标签放在通过设计器查看表单时可以看到的位置。然后，在代码中，将其移动到不同的位置。您可以在 Form_Load 事件中使用这一行来执行此操作。

' Move the control to a position before the top and left border
' In this way it is not visible to the end user but still retains 
' its visible property to allow databindings to function
lbl_packed_as.Location = new Point(-1000, -1000)

Text_Change 事件未引发

Text_Change Event Not Raised

vb.net

label

textchanged

visual-studio-2013