You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
28 lines
876 B
28 lines
876 B
Public Class frmDataSelect
|
|
|
|
Dim m_selectedvalue As String
|
|
Property SelectedValue As String
|
|
Get
|
|
Return m_selectedvalue
|
|
End Get
|
|
Set(value As String)
|
|
m_selectedvalue = value
|
|
End Set
|
|
End Property
|
|
Private Sub frmDataSelect_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Me.C1Daten.Splits(0).DisplayColumns(0).Width = 0
|
|
End Sub
|
|
|
|
Private Sub C1Daten_Click(sender As Object, e As EventArgs) Handles C1Daten.DoubleClick
|
|
Me.SelectedValue = Me.C1Daten.Columns(0).Value
|
|
Me.DialogResult = Windows.Forms.DialogResult.OK
|
|
Me.Close()
|
|
End Sub
|
|
|
|
|
|
Private Sub C1Beziehungen_MouseDown(sender As Object, e As Windows.Forms.MouseEventArgs) Handles C1Daten.MouseDown
|
|
Me.C1Daten.Bookmark = Me.C1Daten.RowContaining(e.Y)
|
|
Exit Sub
|
|
End Sub
|
|
|
|
End Class |