Zeichenfolge in Größe konvertieren | Visual Basic

299
arvenyon

Vb verwenden Ich versuche, den Text einer Combobox als Wert für meine Schriftgröße zu verwenden. Das heißt, als Benutzer kann ich die Schriftgröße auswählen, die ich möchte, indem ich aus dem Dropdown-Menü darauf klicke.

Dropdown-Menü:

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged ComboBox1.Items.Add("6") ComboBox1.Items.Add("10") ComboBox1.Items.Add("12") End Sub

Nun sollte die gewählte Option die Schriftgröße beeinflussen. Daher muss ich von String zu Größe konvertieren. Hat jemand Hilfe?

Ich könnte mir auch vorstellen, dass es einen effizienteren Weg gibt, einem Benutzer die Möglichkeit zu geben, die Schriftgröße zu ändern. Irgendwelche Tipps und Ratschläge sind willkommen!

1
Hallo, was ist es für dich, die Schriftgröße zu ändern? Sind alle Steuerelemente in einem Formular (Beschriftungen, Schaltflächen, Textfelder usw.)? Alle Steuerelemente eines bestimmten Typs (alle Textfelder)? Eine einzelne Eingabesteuerung (einzelnes Textfeld)? Fazer87 vor 6 Jahren 0
Hallo, ich wollte es nur auf eine bestimmte Txtbox auswirken, wie in deiner Antwort, genau wie es funktionieren sollte! Danke vielmals! arvenyon vor 6 Jahren 0
Froh das zu hören :) Fazer87 vor 6 Jahren 0

1 Antwort auf die Frage

2
Fazer87

So etwas sollte für Sie funktionieren:

 Public Class Form1  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 'Your combo box should be built and populated when the form loads, not when the combo box is changed ComboBox1.Items.Add("6") ComboBox1.Items.Add("10") ComboBox1.Items.Add("12")  ComboBox1.SelectedIndex = 0 'This Auto-Selects the first entry to prevent you having to handle "null"'s End Sub  Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged Dim tryParseResult As Boolean 'holds the True/False for whether conversion to a number worked Dim parsedNumber As Integer 'Holds the number after conversion  tryParseResult = Int32.TryParse(ComboBox1.SelectedItem, parsedNumber) 'try converting to number - "parsedNumber" will contain the number on success - "tryParseResult" will contain a true/false for success  'If tryPArseResult = False - conversion failed - tell the user and stop. If tryParseResult = False Then MessageBox.Show("Conversion of " & ComboBox1.SelectedItem & " To Number Failed") 'Tell the user it failed Exit Sub 'Stop processing End If  'Set TextBox1's Font to the same font with a new size TextBox1.Font = New Font(TextBox1.Font.Name, parsedNumber)  End Sub End Class

Dies sollte Folgendes tun: enter image description here

Wenn Sie dies mit Multiplikator-Steuerelementen ausführen möchten, müssen Sie sich das Durchlaufen von Steuerelementen in einem Formular ansehen, OfTypewenn Sie nur mit bestimmten Steuerelementen arbeiten möchten

Verwandte Probleme