Question

我想在我的模块中创建一个public sub来存储重复的过程。特别是关键的新闻事件。

Private Sub txtPass_KeyPress(sender As Object, e As KeyPressEventArgs) _
    Handles txtPass.KeyPress

    FunctionKeys(Me, sender, e)

End Sub

Public Sub  FunctionKeys(form as object, sender as object, _
    e as KeyPressEventArgs)

    With form
        If e.KeyChar = ChrW(Keys.Enter) Then .btnOk_Click(sender, e)
        If e.KeyChar = ChrW(Keys.Escape) Then .btnClose_Click(sender, e)
    end with

End sub

我猜它看起来像这样。不幸的是，这告诉我它无法找到formname.btnok_click等的公共子。我想知道是否有办法解决这个问题。环顾网络，我发现我可以使用AcceptButton和CancelButton属性。但只有我真的有一个按钮才能按下。我的MDI没有按钮。只是菜单。另外，我知道我可以对Keys.Escape使用formname.close（）。但我的OK按钮仍然存在问题。

Answer 1

您可以在所有表单上公开btnOk_Click和btnClose_Click，这样就可以了。

你如何从一个模块运行私人潜艇？

1 个答案: