Programación General > Visual Basic 6.0 e inferiores

 Alguien Sabe Como Poner Zoom Pero Al Texto

(1/1)

Jamaicol:
Buenas quisiera saber como demonios se pone una ventanita con los porcentajes como la que tiene el word (porcentajes de un tanto por cien) para que yo pueda ponerle el que quiera yo, y el texto me lo agrande, una especie de zoom que sirva para el texto, como cualquier herramienta pdf tiene.

lop7:
hola....

bueno asi a vuelo de pajaro...
yo haria esto:

coloco un combobox y le coloco los numeros q estaran por defecto en pocentaje claro y le programo un select case donde evaluas el index del combobox.  osea para saber cual de los porcetajes escojistes

y despues escribes de la siguiente manera:

Label1.Font.Size = 20

por decir algo

de esa manera cambiarias el tamaño de la fuente que es lo que tu quieres. ok

saludos...
nos vemos...

Soultaker:

--- Cita de: "Jamaicol" --- el texto me lo agrande, una especie de zoom que sirva para el texto, como cualquier herramienta pdf tiene.
--- Fin de la cita ---
Que es lo que realmente necesitas porque dices un zoom al texto, pero despues dices como cualquier herramienta pdf, pero estas herramientas no agrandan el texto, acercan la pagina.

 :comp:

Jose Arriagada:
En un formulario de prueba inserta:
- un control text, y con propiedad multiline=true
- un control slider, cargando en referencias el Microsoft Windows Common Control  6.0 (sp)
- un control combobox


Utiliza el siguiente codigo

Private Sub Combo1_Click()
If Combo1.ListIndex >= 0 Then
    Text1.FontSize = Combo1.ItemData(Combo1.ListIndex)
End If
End Sub

Private Sub Form_Load()
Text1.Text = "Coloca aqui todo el texto que deseas probar el Zoom"
Slider1.Orientation = ccOrientationVertical
Slider1.Height = Text1.Height
Slider1.Min = 5
Slider1.Max = 100
For i = 5 To 50
    Combo1.AddItem i
    Combo1.ItemData(Combo1.NewIndex) = i
Next i

End Sub

Private Sub Slider1_Scroll()
Text1.FontSize = Slider1.Value
End Sub

Navegación

[0] Índice de Mensajes