Visual Basic - Problemas con listbox

Life is soft - evento anual de software empresarial
   
Vista:

Problemas con listbox

Publicado por Emilio Marte (11 intervenciones) el 10/03/2008 14:57:01
Saludos a todos(a):

Primero que nada soy novato en esto de Visual Basic y estoy haciendo una práctica, en la cual tengo un "List" y dentro de él tengo dos contenidos los cuales son:

Bold
Negrita

Las cuales añadí de esta forma:

List1.additem "bold"
List1.additem "negrita"

Por otro lado tengo un "TextBox". Lo que quiero es que cuando se seleccion del List, por ejemplo la opcion Bold que esta se aplique al contenido del "Text1". Eje: Si escribo Emilio en el TxtBox que salga en negrita o en bold de acuerdo a la selección.

El código que agregué es el siguiente, pero no me funciona, lo agregué al form

If list1=bold then
Text1.FontBold=True
end if

Gracias de antemano.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Problemas con listbox

Publicado por Alejandro (61 intervenciones) el 10/03/2008 16:27:01
Private Sub List1_Click()
Select Case List1.List(List1.ListIndex)
Case Is = "Negrita"
Text1.Font.Bold = True
Case Is = "Bold"
Text1.Font.Bold = False
Case Is = "Cursiva"
Text1.Font.Italic = True
Case Else
MsgBox List1.List(List1.ListIndex)
End Select
End Sub
prueba a ver si te va tienes mal: If list1=bold then , aunque los controles tienen una porpiedad por defecto, yo te recomiendo escribirlo todo
saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar