Laboratorio Tecnologico Experimetal
Visual Basic
Crear un visualizador de fuentes con Visual Basic
Apr 28th
Con un sencillo código podremos ver las fuentes que tenemos instaladas en nuestro equipo y las podremos “testear”.
Para llevar acabo este sencillo programita necesitaremos lo siguiente:
Visual Basic:
-
Private Sub Command1_Click()
-
Dim font As Integer
-
-
List1.Clear
-
-
For font= 0 To Screen.FontCount - 1
-
List1.AddItem Screen.Fonts(font)
-
Next font
-
-
List1.ListIndex = 0
-
End Sub
-
-
Private Sub List1_Click()
-
Text1.Text = List1.List(List1.ListIndex)
-
Text1.Font = List1.List(List1.ListIndex)
-
End Sub
List1.Clear: esta línea es importante ya que con ella limpiaremos la pantalla cada que demos click en el CommandButton, de lo contrario se cargaran las fuentes una y otra vez(de pendiendo de los click) pero "encimadas", esto quiere decir que si le das 3 click sin la linea List1.Clear tendras 3 arial.
(No Ratings Yet)
Loading ...Tabla de Multiplicar en Visual Basic 6.0
Apr 10th
Con este codgo crearemos una tabla de multiplicar, es un codigo muy sencillo, realmente no se necesitan muchos conocimientos para hacer este sencillo programita, para esto utilizaremos 2 botones de comando ( o solo uno ya que solo en uno escribiremos el codigo para general la tabla), 2 etiquetas ( o una tambien como quieran, una etiqueta solo nos serviria para poner algo asi como “ingrese la tabla que quiere calcular”) y 1 cuadro de texto, que es de donde vamos a tomar el valor, aquí el codigo:
Visual Basic:
-
Private Sub Command1_Click()
-
a = 1
-
R = 0
-
Label2.Caption = ” “
-
For a = 1 To 10
-
Label2.Caption = Label2.Caption + Trim(Str(a)) + ” *” + Str(Text1.Text) + ” =” + Str(a * Text1.Text) + Chr(10) + Chr(13)
-
Next a
-
End Sub
(No Ratings Yet) Loading ...
Últimos Comentarios