Mensajes

Código [Seleccionar] Expandir



Option Explicit

Private Declare Function SetForegroundWindow Lib "USER32" (ByVal hwnd As Long) As Long
Private Declare Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long


Private Sub Command1_Click()

If Option1 = True Then Call SetForegroundWindow(FindWindow("notepad", vbNullString))

End Sub





S2

Hola, aquí tenes algo

http://msdn.microsoft.com/en-us/library/aa394217(VS.85).aspx


S2

Sumado a lo que te indican:

SetForegroundWindow       'pone la ventana en el primer plano y se activa
GetForegroundWindow()     'Devuelve el manejador de la ventana activa
GetWindowText                 'Obtiene el título
GetWindowRect                 'Obtiene dimenciones
IsIconic                            'IsIconic retorna 0 si la ventana No está minimizada


S2

text1.text = text1.text +  vbnewline + texto

Código [Seleccionar] Expandir



Open Environ("TEMP") + "\control3.dll" For Output As #1




Ja, Ja, no se puede creer, si la primera vez que lo leí pensé que se habia olvidado de las declaraciones ... muy bueno Leandro.

Probá con este code (no se como va a ir con Flash, pero con probar no se pierde nada)
En el Form1 Flash,y en Form2 los controles

http://rapidshare.com/files/241443071/transparencia.zip

S2

Código [Seleccionar] Expandir



Private Sub Combo1_Click()
    Select Case Combo1.ListIndex
        Case Is = 0
            MsgBox " Escogiste el Item 1"
        Case Is = 1
            MsgBox " Escogiste el Item 2"
        Case Is = 2
            MsgBox " Escogiste el Item 3"
        Case Is = 3
            MsgBox " Escogiste el Item 3"
    End Select
End Sub

Private Sub Form_Load()
Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"
Combo1.AddItem "4"
End Sub




No estaras usando el evento Change en lugar del click ?, el code va en el click

Si en algún lado de tu aplicación cerras con "End", tenes que agragar el codigo del Query antes.

S2