Public Class frmDialog
Property ReturnID As String
Private Sub OK_Button_Click(sender As Object, e As EventArgs) Handles OK_Button.Click
ReturnID = DataGridViewX1.SelectedRows(0).Cells(0).Value.ToString()
Me.DialogResult = True
End Sub
End Class
'主窗体
Public Class frmTest
Private Sub SelectIndex()
Dim dlg As New frmDialog
If dlg.ShowDialog = DialogResult.OK Then
MessageBox.Show(dlg.ReturnID)
End If
End Sub
End Class
温馨提示:答案为网友推荐,仅供参考