Mensajes

Código [Seleccionar] Expandir

    If Dir("C:\Tuarchivo.jpg") <> "" Then
        MsgBox "El archivo existe."
    Else
        MsgBox "El archivo no existe."
    End If

[[MANUAL] Montar un servidor FTP]

[MANUAL] Montar un servidor FTP
http://foro.elhacker.net/index.php/topic,92068.0.html

[SendMessage]

Sino queres utilizar el SendKeys (por el echo de que puede aparecer otra ventana adelante, etc) podes usar la API SendMessage de la siguiente forma:

Código [Seleccionar] Expandir


Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SYSCOMMAND = &H112
Private Const SC_CLOSE = &HF060&


Call SendMessage("VENTANA", WM_SYSCOMMAND, SC_CLOSE, ByVal 0&)


Saludos.-

Muchas gracias.-

[Unload Ventana]

Hola a todos:
En mi programa necesito ir creando diferentes forms iguales por lo que utilizo el siguiente codigo:

Código [Seleccionar] Expandir


Dim Ventana as Form
Set Ventana = New Form2
Ventana.Show


Lo que necesito hacer es cerrar todas esas ventanas abiertas, ya que si pongo Unload Ventana solo se cierra la ultima ventana creada.
Por favor si alguien sabe como hacerlo que me de una mano.

Gracias de antemano.

Deja de preguntar todo y lee un manual. Son cosas muy basicas las que preguntas... Fijate en las propiedades del from.

Poner en un Form (Form1) el siguiente codigo:

Código [Seleccionar] Expandir


Set Fromito = New Form1
Fromito.Show


Saludos.-

Código [Seleccionar] Expandir


Private Sub Command2_Click()
Shell Text1.Text
End Sub


Una forma seria poner un boton que no se vea (no funciona con la propiedad visible en False, lo podes poner en coordenadas negativas) y en los eventos MouseUp de tus botones pones:

Código [Seleccionar] Expandir


Private Sub cmbBotonComun_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    cmdOculto.SetFocus
End Sub



Espero que te sirva, saludos.-

Si conectas la impresora y pones esto

Código [Seleccionar] Expandir


form1.PrintForm


¿Qué es lo que sucede?