ComboBox, Schrift auswählen

[Tabes]

Hallo Leute,

ich habe ein kleines Problem. Ich habe eine ComboBox mit Schriften gefüllt.
[highlight=vbnet]'ComboBox mit Schriften füllen
With meComboBox
.DataSource = FontFamily.Families
.DisplayMember = "Name"
End With[/highlight]

Nun möchte ich, wenn ich beispielsweise eine TextBox anklicke, daß die Schriftart der TextBox in der ComboBox ausgewählt wird.
[highlight=vbnet]With meControl '(TextBox)
'Koordinaten, Größe
meTextControl_x.Text = .Left
meTextControl_y.Text = .Top
meTextControl_width.Text = .Width
meTextControl_height.Text = .Height

'Font
meComboBox.SelectedItem = .Font.Name
End With[/highlight]

Wie kann ich dieses realisieren?

Gruß
Tabes

[vadym voytas]

[Highlight=vb]
Sub MyTextBox_Click
MyComboBox.SelectedText = MyTextBox.Font.Name
End Sub
[/Highlight]

[Tabes]

Hallo vadym voytas
danke erst einmal für die Antwort.

Irgendwie scheint dies auch nicht zu funktionieren.

MyTextBox.Font.Name leifert mir zwar den FontNamen 'Microsoft Sans Serif', aber die ComboBox wählt diesen Eintrag nicht aus.

Hab ich vieleicht irgend etwas vergessen oder übersehen?

[Bruno Eberle]

Hallo Tabes,

SelectedText bei der ComboBox ist der selektierte Teil des Textes im Eingabefeld der ComboBox, d.h selektiert mit Maus oder Shift/Cursor-Taste und nicht der Eintrag in der Item-Liste.
Um das zu realisieren weist Du am besten dem .ValueMember der ComboBox ebenfalls die Name-Eigenschaft des Font zu:

.ValueMember = "Name";

Dann kannst Du die Auswahl mit

meComboBox.SelectedValue = .Font.Name

setzen. Damit sollte es tun.

Gruß, Bruno

[Tabes]

Hallo Bruno,

vielen Dank, genau das war es...

Gruß
Tabes

[vadym voytas]

Bruno +1,
[highlight=vb]
Sub MyTextBox_Click
MyComboBox.SelectedValue = MyTextBox.Font.Name
End Sub
[/highlight]