谢谢各位:
我解决了。按照写类的方法。代码如下
类,
Public Class PassStr
Inherits System.EventArgs
Public Sub New(ByVal PassWordStr As String)
Me.PassWordStrValue = PassWordStr
End Sub
Private PassWordStrValue As String
Public ReadOnly Property PassWordStr() As String
Get
Return Me.PassWordStrValue
End Get
End Property
End Class
主窗口
Private Sub MenuLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuLogin.Click
' Dim newfrmPass As frmPass
' newfrmPass = New frmPass()
' newfrmPass.Text = "请输入帐号口令"
'newfrmPass.MdiParent = Me
'newfrmPass.WindowState = FormWindowState.Normal
'newfrmPass.StartPosition = FormStartPosition.CenterScreen
newfrmPass.ShowDialog()
End Sub
Private Sub frmpassClosed(ByVal sender As System.Object, ByVal Arg As PassStr) Handles newfrmPass.frmPassClosed
MsgBox("通过检查" & Access)
End Sub
口令验证的窗口
Private Sub frmPass_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
Dim Arg As PassStr = New PassStr(Access)
RaiseEvent frmPassClosed(Me, Arg)
End Sub