Sección de códigos , trucos y ejemplos para visual basic

123 - Ejemplo que muestra como clonar una fuente

Este ejemplo muestra como usar el Método Clone del objeto IFont para hacer un clon de una fuente, es decir tenerlo almacenado en una variable de tipo stdFont.

Esto puede servir para almacenar fuentes en variables , colecciones o arrays y luego poder restaurarlas. ( Este ejemplo solo hace una copia.)

Ejemplo

Colocar 1 Control Label1 y 3 Command. El Command1 Realiza la copia o clon. El Command2 restaura la copia de la variable stdFont y se la asigna al Label, el Command3 le cambia las propiedades de fuente

En un módulo bas

Option Explicit ' Variable que almacena la copia o clon de la fuente Private m_OldFont As StdFont 'Sub que hace una copia de la fuente y la almacena en una variable Public Sub Clonar_Fuente(LaFuente As StdFont) Dim Clon_Fuente As IFont If Not (m_OldFont Is Nothing) Then Set m_OldFont = Nothing End If Set Clon_Fuente = LaFuente Set m_OldFont = New StdFont Clon_Fuente.Clone m_OldFont Set Clon_Fuente = Nothing End Sub 'función que retorna un objeto de tipo StdFont Public Function Restaurar_Fuente() As StdFont If m_OldFont Is Nothing Then MsgBox " No hay ninguna fuente para clonar. ", vbExclamation, " Restaurar Fuente " Exit Function End If 'Retornamos la fuente a la fu8nción Set Restaurar_Fuente = m_OldFont End Function

En un Formulario:

Option Explicit Private Sub Command1_Click() ' Clona la fuente Clonar_Fuente Label1.Font Command3.Enabled = True Command1.Enabled = False End Sub Private Sub Command2_Click() On Error GoTo errsub ' Restaura la fuente, es decir el clon hecho anteriormente Set Label1.Font = Restaurar_Fuente Command1.Enabled = True Command2.Enabled = False Command3.Enabled = False Exit Sub errsub: MsgBox Err.Description, vbCritical, " Error " End Sub Private Sub Command3_Click() ' Cambia al azar las propiedades de la fuente del label With Label1 .FontSize = 16 .FontBold = True .FontStrikethru = True .FontUnderline = True End With Command3.Enabled = False Command2.Enabled = True End Sub Private Sub Form_Load() Command1.Caption = " Hacer un clon de la fuente del Label1 " Command2.Caption = " Restaurar la fuente del Label1 " Command3.Caption = " Cambiar las propiedades de la fuente " Command3.Enabled = False Command2.Enabled = False End Sub

Recursos vb 6.0

Buscar en Recursos vb