You may optionally enter a comparison operator (<, <=, >, >=, <> or =) at the beginning of each of your search values to specify how the comparison should be done.
Dim oForm As Form
For Each oForm In Me.MdiChildren
If Not TypeName(oForm) = "MDIForm" Then
If oForm.Name = "frmHotel" Then
' Es gibt mind. 1 geöffnetes Browser-Fenster
' ...
End If
End If
Next
5
VB.NET
GUI, MDI-Fenster
Auf ein Object eines MDIChilds zugreifen
Dim oForm As Form
For Each oForm In Me.MdiChildren
If Not TypeName(oForm) = "MDIForm" Then
If oForm.Name = "frmHotel" Then
MessageBox.Show(oForm.GetType.ToString + "|" + CType(oForm, frmHotel).hotelid.ToString)
End If
End If
Next
22
VB.NET
GUI, Tabelle
Tabellenselektion
' DataGridView
' Man bekommt den Index der Column und der Row
Dim counter As Integer
For counter = 0 To (DataGridView1.SelectedCells.Count - 1)
MessageBox.Show(DataGridView1.SelectedCells(counter).ColumnIndex.ToString & vbCr & DataGridView1.SelectedCells(counter).RowIndex.ToString)
Next
23
VB.NET
GUI, Datenbank
ComboBox mit Datenbank
' Die Datenbank-Tabelle enthält die Felder titel und id
Dim dt As Data.DataTable = myDataTable ' Die DataTable wurde bereits gefüllt aus der Datenbank...
comboBox1.DataSource = dt
comboBox1.DisplayMember = "titel" ' Der angezeigte Wert für den Benutzer
comboBox1.ValueMember = "id" ' Der Wert, den der Benutzer auswählt (id)
Dim ausgewaehlteIdAusComboBox As String
ausgewaehlteIdAusComboBox=comboBox1.SelectedValue.ToString ' enthält die ausgewählte id
61
VB.NET
Schleifen
For-Schleife
For i As Integer = 0 To 10
Debug.WriteLine(i)
' 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10
Next
For i As Integer = 10 To 5 Step -1
Debug.WriteLine(i)
' 10, 9, 8, 7, 6, 5
Next
62
VB.NET
Array
Array definieren
Dim myStrArray(3) As String
myStrArray(0)="First"
myStrArray(1)="Second"
myStrArray(2)="Third"
myStrArray(3)="Fourth"
ReDim strJahreszeiten(4)
myStrArray(4)="Fifth"
Dim my2DimStrArray(1,2) As String
my2DimStrArray(0,0) = "This"
my2DimStrArray(0,1) = "is"
my2DimStrArray(0,2) = "a"
my2DimStrArray(1,0) = "2"
my2DimStrArray(1,1) = "dimensional"
my2DimStrArray(1,2) = "matrix"
68
VB.NET
GUI, Komponenten allgemein
Dezimal/Währungseingabe in zwei Textboxen
Sub TextBox1KeyUp(sender As Object, e As KeyEventArgs)
If ((e.KeyCode = Keys.Oemcomma) OR (e.KeyCode = Keys.Decimal)) Then
CType(Sender,TextBox).Text = CType(Sender,TextBox).Text.Trim(",")
CType(Sender,TextBox).SelectionStart = CType(Sender,TextBox).Text.Length
For i As Integer = 0 To Me.Controls.Count-1
If Me.Controls.Item(i).TabIndex = CType(Sender,TextBox).TabIndex+1 Then
CType(Me.Controls.Item(i),TextBox).Focus
End If
Next
End If
End Sub
133
VB.NET
Strings
String nach einem Teilstring durchsuchen
Dim longStr = "This is a long string"
Dim searchFor = "long"
position = InStr( longStr, searchFor )
