Ayuda con SelectionFont.Name
Estoy preparando un examen para la facultad y me pedían manejar richtextbox.
El tema es que hice mediante un combobox un desplegable para las tipografías, y al dar click sobre el texto, actualizo todos los datos de formato de ese punto, como nombre de tipografia, tamaño, N, K, S, alineacion, etc etc.
El problema lo tengo cuando selecciono MÁS DE UNA TIPOGRAFÍA en simultáneo.
Visual me da una excepción no controlada (uffff) y no sé cómo manejarlo.
Les paso un pedacito del código:
Código:
(algunas variables no se ven declaradas acá, porque las declaré en el LOAD del form)Dim BO, IT, UN As Boolean
Dim AL As Integer
'REVISAR TEMA NOMBRES MULTIPLES DE FONTSELECTION !! -Genera Excepción-
FT = rtbTexto.SelectionFont.Name
T = rtbTexto.SelectionFont.Size
BO = rtbTexto.SelectionFont.Bold
IT = rtbTexto.SelectionFont.Italic
UN = rtbTexto.SelectionFont.Underline
AL = rtbTexto.SelectionAlignment
tipografia = listFuentes.Items.Contains(FT)
If tipografia = True Then
listFuentes.SelectedItem = FT
Else
listFuentes.Items.Add(FT)
listFuentes.SelectedItem = FT
End If
tamano = listTamano.Items.Contains(T)
If tamano = True Then
listTamano.SelectedItem = T
Else
listTamano.Items.Add(T)
listTamano.SelectedItem = T
End If
El resto anda perfecto, agrega tipografías que no se encuentren en el listado, como así los tamaños.
Agradecería ayuda!!
Mode Lineal
