Visual Basic.NET - tamaño de un texto

Pos: 3

Val: 643

tamaño de un texto

Publicado por melqui (242 intervenciones) el 13/09/2020 15:30:58

hola amigos, como estan?
necesito una ayuda
estoy intentando colocar

Dim novaFonte As New Font

en una combobox mas no estoy sabiendo hacerlo, mas o menos quedar asi como esta en la imagen,
alguna idea que pueda servir para poder usar?

Screenshot_1

es que tengo un RichTextBox y quiero trabajarla a este recurso con html y texto simple, mas para ero necesito que la el estilo de la fuente y el tamaño mas que este dentro del combobox

el estilo de la fuente lo consegui hacerlo, solo me esta faltando el tamaño

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 1

Val: 3.353

tamaño de un texto

Publicado por Phil Rob (1554 intervenciones) el 13/09/2020 16:10:22

Hola Melqui,

No sé si esta puede te ayudar, pero existe un FontDialog :

Dim MisFonts As New FontDialog

MisFonts.ShowDialog()

' ... ... ...

Y de otra manera, una Font tiene una propiedad Size : novaFonte.Size = 16

...

Pardon me esta imagen con su comentarios en francés :
FontDialog

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Pos: 3

Val: 643

tamaño de un texto

Publicado por melqui (242 intervenciones) el 14/09/2020 02:29:18

hola phil,

solo falta qe me retorne en loop no estoy conseguiendo hacerlo
Screenshot_3

Valora esta respuesta

Comentar

Pos: 1

Val: 3.353

tamaño de un texto

Publicado por Phil Rob (1554 intervenciones) el 14/09/2020 08:55:26

Hola Melqui,

Este es un buen día que comienza ...

Quizá este ti gustará mejor :

Public Class Form4

    Private Sub BCargarCombos_Click(sender As Object, e As EventArgs) Handles BCargarCombos.Click

        Dim LasFontes() As FontFamily = System.Drawing.FontFamily.Families

        ComboFonts.Items.Clear()

        For i As Integer = 0 To LasFontes.GetUpperBound(0)

            ComboFonts.Items.Add(LasFontes(i).Name)

        Next i

        ComboTamanas.Items.Clear()

        For i As Integer = 6 To 256 Step 2

            ComboTamanas.Items.Add(i)

        Next i

        ComboFonts.Text = ComboFonts.Items(0)

        ComboTamanas.Text = ComboTamanas.Items(0)

    End Sub

    Private Sub BAplicar_Click(sender As Object, e As EventArgs) Handles BAplicar.Click

        TextBox1.Font = New Font(ComboFonts.Text, ComboTamanas.Text)

    End Sub

End Class

Valora esta respuesta

Comentar

Pos: 1

Val: 3.353

tamaño de un texto

Publicado por Phil Rob (1554 intervenciones) el 14/09/2020 14:58:29

Continuacion ...

Tambien, puedes aplicar mi codigo en RichtTextBox, con la seleccion :

Private Sub BAplicar_Click(sender As Object, e As EventArgs) Handles BAplicar.Click

        TextBox1.Font = New Font(ComboFonts.Text, ComboTamanas.Text)

        RTB.SelectionFont = TextBox1.Font   ' o New Font(... y este quieres ...

    End Sub

Valora esta respuesta

Comentar

Pos: 3

Val: 643

tamaño de un texto

Publicado por melqui (242 intervenciones) el 14/09/2020 18:46:08

hola phil
un gusto en saludarte,
al colocar hacer el debug el dispara ese error

Screenshot_1

al parecer no le le está considerando mi IF, el debia de cerrar el proceso cuando fuera cero

Try

    If CboEstiloFuennte.Items.Count > 0 Then

        txtCorpo.SelectionFont = New Font(CboEstiloFuente.Text, CboTamanhoFuente.Text)

    Else

        Exit Sub

    End If

Catch ex As Exception

    MessageBox.Show(ex, "ERRO ", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try

Valora esta respuesta

Comentar

Pos: 1

Val: 3.353

tamaño de un texto

Publicado por Phil Rob (1554 intervenciones) el 14/09/2020 19:20:07

Hola Melqui,

No comprendo ...

Supongo que txtCorpo es un RichtTextBox ... (No existe SelectFont con TextBox).

Puedes enviar me tu proyecto para pruebo.

Adjunto mi proyecto de pruebas para ti testar (ejecute Form4, otros no estan para este problema).

He testado tu código en mi programa y no he tenido error. Quizá no seleccionas el buen evento. Atención, el evento SelectIndexChanged es activado durante la cargada del Form.

Private Sub BAplicar_Click(sender As Object, e As EventArgs) Handles BAplicar.Click

    '     TextBox1.Font = New Font(ComboFonts.Text, ComboTamanas.Text)

    '     RTB.SelectionFont = TextBox1.Font

Try

        If ComboFonts.Items.Count > 0 Then

            RTB.SelectionFont = New Font(ComboFonts.Text, ComboTamanas.Text)

        Else

            Exit Sub

        End If

    Catch ex As Exception

        MessageBox.Show(ex, "ERRO ", MessageBoxButtons.OK, MessageBoxIcon.Error)

    End Try

End Sub

VbTest.zip(171,4 KB)

Valora esta respuesta

Comentar

Pos: 3

Val: 643

tamaño de un texto

Publicado por melqui (242 intervenciones) el 14/09/2020 19:50:24

phil

el codigo está correcto, mas lo estás tratando con el evento click, atravez del button, mas en mi caso el evento tiene que dispara dentro del combobox. para que cuando haga las modificaciones se aplique en tiempo real , atravez de la seleccion del estilo de fuente y el tamaño de fuente.
por eso estoy usando el evento

SelectIndexChanged

o el evento

SelectedIndexChanged

para que la carga sea al ejecutar el form, en el caso de

SelectedIndexChanged

en mi punto de vista debia de funcionar el

if combobox.selectindex =-1 then

exit sub

end if

ya que lo estoy dando un exit si el combobox está vazio.
mas no funciona

Valora esta respuesta

Comentar

Pos: 1

Val: 3.353

tamaño de un texto

Publicado por Phil Rob (1554 intervenciones) el 14/09/2020 20:37:34

He comprendido !!!

El error viene cuando un ComboBox es vacia.
Mira el video : https://www.dropbox.com/s/gnmvvlgnjkp497q/Fonte.mp4?dl=0

Este es la soluccion :

Private Sub ComboFonts_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboFonts.SelectedIndexChanged

    If ComboFonts.Text = String.Empty Or ComboTamanas.Text = String.Empty Then

        Exit Sub

    End If

Try

        RTB.SelectionFont = New Font(ComboFonts.Text, ComboTamanas.Text)

    Catch ex As Exception

        MessageBox.Show(ex, "ERRO ", MessageBoxButtons.OK, MessageBoxIcon.Error)

    End Try

End Sub

Valora esta respuesta

Comentar

Pos: 3

Val: 643

tamaño de un texto

Publicado por melqui (242 intervenciones) el 14/09/2020 23:09:35

phil

no percebi esa, entonces lo que voy hacer va a ser asi

Private Sub ComboFonts_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboFonts.SelectedIndexChanged

    If ComboFonts.Text = String.Empty Or ComboTamanas.Text = String.Empty Then

ComboFonts.SelectedIndex = 2

        Exit Sub

    End If

Try

        RTB.SelectionFont = New Font(ComboFonts.Text, ComboTamanas.Text)

    Catch ex As Exception

        MessageBox.Show(ex, "ERRO ", MessageBoxButtons.OK, MessageBoxIcon.Error)

    End Try

End Sub

esto lo va determinar que si está vazio llenar por el indice = 2 asi no tendre problema.
gracias genio.

Valora esta respuesta

Comentar

Como comparar dos datos Random

Verificar Cuil correcto u incorrecto (Arg)