MS_13.10.2015

This commit is contained in:
SchreiberM
2015-10-13 15:42:01 +02:00
parent b050f2d543
commit c74e5434b9
30 changed files with 6236 additions and 922 deletions

View File

@@ -789,7 +789,6 @@ Public Class ClassControlBuilder
For Each row As DataRow In DT_Combobox.Rows
'Die BReite der DropDown-Lsit anpassen
Using g As Graphics = control.CreateGraphics
Console.WriteLine(g.MeasureString(row.Item(1).ToString, control.Font).Width + 30)
If g.MeasureString(row.Item(1).ToString, control.Font).Width + 30 > iWidestWidth Then
iWidestWidth = g.MeasureString(row.Item(1).ToString, control.Font).Width + 30
End If
@@ -837,7 +836,6 @@ Public Class ClassControlBuilder
Dim iFoundIndex As Integer
iFoundIndex = cbo.FindStringExact(cbo.Text)
'cbo.SelectedIndex = iFoundIndex
Console.WriteLine(iFoundIndex.ToString)
'Dim sTypedText As String
'Dim iFoundIndex As Integer
'Dim oFoundItem As Object