ZONA EXTREMA
LA PRACTICA HACE AL MAESTRO

BLOC DE NOTAS

 

 

bloc de notas

Private Sub cbMayusculas_Click()
If Text1.Text = UCase(Text1) Then
Text1.Text = LCase(Text1)
Else
Text1.Text = UCase(Text1)
End If
End Sub

Private Sub cbTachado_Click()
If Text1.FontStrikethru = True Then
Text1.FontStrikethru = False
Else
Text1.FontStrikethru = True
End If
End Sub

Private Sub cmbFuente_Click()
If cmbFuente.Text = “Arial” Then
    Text1.FontName = “Arial”
End If
    If cmbFuente.Text = “Arial Black” Then
        Text1.FontName = “Arial Black”
    End If
        If cmbFuente.Text = “Castellar” Then
            Text1.FontName = “Castellar”
        End If
            If cmbFuente.Text = “Forte” Then
                Text1.FontName = “Forte”
            End If
                If cmbFuente.Text = “Garamond” Then
                    Text1.FontName = “Garamond”
                End If
                    If cmbFuente.Text = “Georgia” Then
                        Text1.FontName = “Georgia”
                    End If
                        If cmbFuente.Text = “Goudy stout” Then
                            Text1.FontName = “Goudy stout”
                        End If
End Sub

Private Sub cmbTamaño_Click()
If cmbTamaño.Text = “8” Then
    Text1.FontSize = “8”
End If
    If cmbTamaño.Text = “10” Then
        Text1.FontSize = “10”
    End If
        If cmbTamaño.Text = “12” Then
            Text1.FontSize = “12”
        End If
            If cmbTamaño.Text = “14” Then
                Text1.FontSize = “14”
            End If
                If cmbTamaño.Text = “16” Then
                    Text1.FontSize = “16”
                End If
                    If cmbTamaño.Text = “18” Then
                        Text1.FontSize = “18”
                    End If
                        If cmbTamaño.Text = “20” Then
                            Text1.FontSize = “20”
                        End If
End Sub
Private Sub cmdNegrita_Click()
If Text1.FontBold = True Then
    Text1.FontBold = False
Else
    Text1.FontBold = True
End If
End Sub

Private Sub cmdCursiva_Click()
If Text1.FontItalic = True Then
    Text1.FontItalic = False
Else
    Text1.FontItalic = True
End If
End Sub

Private Sub cmdSubrayado_Click()
If Text1.FontUnderline = True Then
    Text1.FontUnderline = False
Else
    Text1.FontUnderline = True
End If

End Sub

Private Sub cmdIzquierda_Click()
Text1.Alignment = 0
End Sub

Private Sub cmdCentrar_Click()
Text1.Alignment = 2
End Sub

Private Sub cmdDerecha_Click()
Text1.Alignment = 1
End Sub

Private Sub cmdSalir_Click()
res = MsgBox(“Estas seguro”, vbOKCancel, “Salir”)
If res = vbOK Then
End
Else
End If
End Sub

Private Sub Command1_Click()
Printer.Print “text1.text”
End Sub


Private Sub obRojo_Click()
Text1.ForeColor = vbRed
End Sub

Private Sub obAzul_Click()
Text1.ForeColor = vbBlue
End Sub

Private Sub obNegro_Click()
Text1.ForeColor = vbBlack
End Sub

 

 

 

Ninguna respuesta to “BLOC DE NOTAS”

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: