Ejemplos usando el Api de windows para Visual basic

149 - DrawText - Ejemplos de Scroll de texto en visual basic

Volver al Listado Api - Anterior - Siguiente

---

 

 

 

 

Contenido

• Ejemplo 1
• Ejemplo 2
• Ejemplo 3
• Relacionados

 

 

---

Ejemplo 1

Ejemplo que utiliza el Api DrawText para hacer un Scroll de texto en un formulario o pictureBox para las pantallas de créditos

A la Rutina Comenzar_Scroll pasarle los siguientes parámetros: el formulario o control Picture, el texto a mostrar, la velocidad en milisegundos y el color de la fuente.

Form con el scroll de texto

 

El formulario necesita los siguientes controles :

Un PictureBox llamado Picture1. Un text1, un Combobox y dos CommandButton

Además agregar un módulo bas

 

Código fuente en el formulario:

Option Explicit Private Sub Command1_Click() Call Comenzar_Scroll(Picture1, _ Text1, _ CLng(Combo1), _ vbYellow) End Sub Private Sub Command2_Click() Finalizar = True End Sub Private Sub Form_Load() Command1.Caption = " Comenzar Scroll " Command2.Caption = " Detener Scroll " Dim i As Integer 'agrega los valores para la velocidad For i = 0 To 100 Step 10 Combo1.AddItem i Next Combo1.Text = "20" End Sub Private Sub Form_Unload(Cancel As Integer) Finalizar = True End Sub

 

Código fuente el módulo bas:

'Declaraciones Api '------------------------------ 'Dibuja el texto Private Declare Function DrawText Lib "user32" Alias "DrawTextA" ( _ ByVal hdc As Long, _ ByVal lpStr As String, _ ByVal nCount As Long, _ lpRect As RECT, _ ByVal wFormat As Long) As Long ' Para el intervalo de tiempo Private Declare Function GetTickCount Lib "kernel32" () As Long 'Estructura para usar con el api DrawText Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Public Finalizar As Boolean Public Sub Comenzar_Scroll(Objeto_Scroll As PictureBox, _ Texto As String, _ Velocidad As Long, _ Color_Fuente As Long) Dim r_Height_Texto As Long Dim ObjetoRect As RECT Dim t_Vel As Long Dim Ret As Long 'Propiedades para el picture o form With Objeto_Scroll .ScaleMode = vbPixels .AutoRedraw = True 'Cambiar las propiedades de la fuente .ForeColor = Color_Fuente .FontSize = 16 End With Ret = DrawText(Objeto_Scroll.hdc, _ Texto, -1, ObjetoRect, &H400) If Ret = 0 Then MsgBox " Error ", vbCritical: Exit Sub With ObjetoRect 'Posición inicial del área donde dibujar el texto .Top = Objeto_Scroll.ScaleHeight .Left = 0 .Right = Objeto_Scroll.ScaleWidth r_Height_Texto = .Bottom .Bottom = .Bottom + Objeto_Scroll.ScaleHeight End With 'Esta variable si está en True detiene el scroll Finalizar = False While Finalizar = False If (GetTickCount() - t_Vel) > Velocidad Then ' Borra el contenido Objeto_Scroll.Cls ' Dibuja el texto Call DrawText(Objeto_Scroll.hdc, _ Texto, -1, _ ObjetoRect, &H1 Or &H10) With ObjetoRect .Top = .Top - 1 .Bottom = .Bottom - 1 ' Si llegó arriba de todo comienza de nuevo el scroll _ reseteando los valores top y bottom If .Top < -(r_Height_Texto) Then .Top = Objeto_Scroll.ScaleHeight .Bottom = r_Height_Texto + Objeto_Scroll.ScaleHeight End If End With t_Vel = GetTickCount() End If DoEvents Wend End Sub

 

---

Ejemplo 2

Tabla Marquee.

código fuente enviado por Miguel Nuñez, de una tabla Marquee, que hace un efecto de marquesina de texto horizontal sobre un form

Descargar

---

Ejemplo 3

Usando un Frame y un timer

Otro ejemplo muy simple con pocas líneas de código, que usa un Frame donde se pueden colocar los datos del crédito, el título del programa, autor, versión imagenes, y mediante el timer se va cambiando el valor de la propiedad TOP del frame

Descargar

 

---

Enlaces relacionados

• Ocx vb Scroller

---

Buscar en Recursos vb

---

Recursos visual basic - Buscar - Privacidad - Copyright © 2005 - 2009 - www.recursosvisualbasic.com.ar