TRUCO 1: ¿Cómo ajustar un BitMap al fondo de la pantalla en Visual Basic?.
Aplicable a Microsoft Visual Basic 6
Cree un formulario con un BitMap cualquiera y una etiqueta o Label con los atributos que quiera. Escriba lo siguiente:
Private Sub Form_Paint()
Dim i As Integer
For i = 0 To Form1.ScaleHeight Step Picture1.Height
For j = 0 To Form1.ScaleWidth Step Picture1.Width
PaintPicture Picture1, j, i, Picture1.Width,
Picture1.Height
Next
Next
End Sub
Private Sub Form_Resize()
Picture1.Left = -(Picture1.Width + 200)
Picture1.Top = -(Picture1.Height + 200)
Label1.Top = 100
Label1.Left = 100
End Sub
Truco originalmente publicado en http://www.somser.com/
TRUCO 2: ¿Cómo dibujar letras en tres dimensiones en Visual Basic?.
Aplicable a Microsoft Visual Basic 6
Para dibujar letras en tres dimensiones en Visual Basic lo único que hay que hacer crear un formulario e introducir en él un Command Button con el siguiente código:
Private Sub Command1_Click()
Dim I As Integer, X As Integer, Y As Integer
ForeColor = &HFF0000: X = CurrentX: Y = CurrentY
CurrentX = X: CurrentY = Y: FontSize = 14
For I = 1 To 50
Print "Texto en tres dimensiones"
X = X + 1: Y = Y + 1: CurrentX = X: CurrentY = Y
Next I
ForeColor = &HFF00&
Print "Texto en tres dimensiones" End Sub
Donde en vez de "Texto en tres dimensiones" pondremos el texto que queramos.
Truco originalmente publicado en http://www.somser.com/
TRUCO 3: ¿Cómo obtener el directorio desde donde estamos ejecutando nuestro programa?.
Aplicable a Microsoft Visual Basic 6
Para obtener el directorio desde donde estamos ejecutando nuestro programa lo único que hay que hacer es utilizar este código:
Private Sub Form_Load()
Dim Directorio as String
ChDir App.Path
ChDrive App.Path
Directorio = App.Path
If Len(Directorio) > 3 Then
Directorio = Directorio & "\"
End If
Text1.Text = Directorio
End Sub
En este ejemplo el directorio aparecerá en el cuadro de texto Text1.
Función creada por Eduardo Fórneas. Originalmente publicada en http://www.arrakis.es/~eforneas/breves.htm
TRUCO 4: ¿Cómo colocar la hora y la fecha en la barra de título de una MDI Form?.
Aplicable a Microsoft Visual Basic 6
Para colocar la hora y la fecha en la barra de título de una MDI Form siga estos pasos:
- Coloque un objeto timer en el formulario MDI.
- El valor de la propiedad Interval del objeto timer debe ser 1000.
- Elimine el valor de la propiedad caption de la forma MDI.
- En el procedimiento Timer del objeto escriba el siguiente código:
<NombreForm>.Caption = "<Nombre de la aplicación>" &
Format(Date, "dd-mm-yyyy") & " " & Format(Now, "h:nn:ss AM/PM")
Donde NombreForm el el nombre de su formulario MDI y Nombre de la aplicación es el nombre que le quiere dar.
- En el procedimiento Load del formualario escriba el siguiente código:
timer1.Enabled = true
Función originalmente publicada en http://www.compuconsult.com.ve/
TRUCO 5: ¿Cómo abrir la ventana de Propiedades de agregar o quitar programas?.
Aplicable a Microsoft Visual Basic 5, Visual Basic 6
Para abrir la ventana de Propiedades de agregar o quitar programas desde Visual Basic añada el siguiente código:
Private Sub Command1_Click()
X = Shell("Rundll32.exe shell32.dll,_
Control_RunDLL appwiz.cpl @0")
End Sub
Función creada por Eduardo Fórneas. Originalmente publicada en http://www.arrakis.es/~eforneas/breves.htm
|
Microsoft explorer 6.0 