Converter string em tamanho | Visual básico


1

Usando vb. Estou tentando usar o texto de uma caixa de combinação como o valor do tamanho da minha fonte. Como usuário, posso escolher qual tamanho de fonte gostaria de ter clicando nele no menu suspenso.

Menu suspenso:

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

Agora a opção escolhida deve afetar o tamanho da fonte. Mas, portanto, preciso converter de string para tamanho. Alguém ajuda?

Também eu poderia imaginar que há uma maneira mais eficiente de dar ao usuário a oportunidade de alterar o tamanho da fonte. Todas as dicas e conselhos são bem-vindos!


Oi, O que você quer mudar para o tamanho da fonte? São todos os controles em um formulário (etiquetas, botões, caixas de texto etc.)? Todos os controles de um tipo específico (todas as caixas de texto)? Um único controle de entrada (caixa de texto única)?
Fazer87

Oi, eu só queria que ele afetasse um txtbox específico, como na sua resposta, exatamente como deveria funcionar! Muito obrigado!
arvenyon

Fico feliz em ouvi-lo :)
Fazer87

Respostas:


1

Algo assim deve funcionar para você:

    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

Isso deve fazer o seguinte: insira a descrição da imagem aqui

Se você deseja fazer isso com os controles do multiplicador - é necessário analisar os controles em um formulário usando OfTypese você deseja apenas trabalhar em determinados controles

Ao utilizar nosso site, você reconhece que leu e compreendeu nossa Política de Cookies e nossa Política de Privacidade.
Licensed under cc by-sa 3.0 with attribution required.