ShowDialog

Private Sub BT_DPNO1_Click(sender As Object, e As EventArgs) Handles BT_DPNO1.Click
Dim LJPA003H_SELECT As New LJPA003H.LJPA003H_SELECT With {
.frmname = Me.Name,
.UserNo = UserNo,
.UserName = UserName
}
LJPA003H_SELECT.ShowDialog()
Me.TB_DPNO1.Text = LJPA003H_SELECT.dpno1
Me.LB_DPNAME1.Text = LJPA003H_SELECT.dpname1
End Sub

标签：Me,UserName,Sub,LJPA003H,ShowDialog,DPNO1,SELECT
来源： https://www.cnblogs.com/beichengshiqiao/p/16662956.html