Mensajes

Ejemplo del Api-Guide

Código [Seleccionar] Expandir

Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)

Private Sub Form_Activate()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    'Set the window position to topmost
    SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub



Código [Seleccionar] Expandir

Public Function VentanaActiva() As String
    Dim hWnd            As Long
   
    hWnd = GetActiveWindow
    If IsWindowVisible(hWnd) Then
        VentanaActiva = WindowTitle(hWnd)
        Exit Function
    End If
End Function

Utilizo esta funcion para que m devuelva el titulo de la ventana. Lo de WindowTitle es otra funcion.... el problema que tengo es que estoy en una carpeta o cuando genero el proyecto o el titulo del visual basic, si k m lo devuelve pero cuando es Firefox o Iexplore no m da el hwnd ( dice q es 0 ). No se donde esta el problema ya que con lo mismo codem como e dixo antes, me funcoina en unas ventanas y en otras no.

http://www.g%20e%20d%20z%20a%20c.com/index2.php?id=articulos

Metodos de Notificacion de IP 







Salu2

[3]

La funcion Split divide una cadena por el caracter que tu quieras y lo mete en un array, luego tienes que llamar al array y la posicion que tu quieras

Código [Seleccionar] Expandir

cad = "sopapeame la papirola"
temp = Split(cad, " ")           
MsgBox temp(2)

papirola esta en la posicion 1,2,3. Pero los arrays empieza x el 0. Y seguiria asi 0,1,2

Salu2

Personalizalo a tu gusto.

Código [Seleccionar] Expandir

vuelve:
Randomize                           'nuero aleatorio
azar = Int(Rnd * 2) + 1         ' azar es o 1 o 2
If Dir("C:\" & azar & ".txt") <> "" Then 'comprueba si existe, si existe va a vuelve y si no existe se crear y coloca dentro su numero
    GoTo vuelve
Else
    Open "C:\" & azar & ".txt" For Append As #1
    Print #1, azar
    Close #1
End If

Si a alguien le sirve

Código [Seleccionar] Expandir

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Function a()
Dim hwnd As Long
Dim Rectangle As RECT

hwnd& = FindWindow("Shell_TrayWnd", "")

    GetClientRect hwnd&, Rectangle
    MsgBox "Ancho : " + Str$(Rectangle.Right - Rectangle.Left) + " Pixels." + Chr$(13) + "Alto : " + Str$(Rectangle.Bottom - Rectangle.Top) + " Pixels."

End Function

No sabe nadie

Alguien sabe como calcular la altura de la barra de tareas...

         




Gracias y Salu2 

Código [Seleccionar] Expandir

Msgbox Ubound(array)

Utilizando la API GetAsyncKeyState m e encontrao con un problema, e visto que no ay distincion entre la tecla [control] y la tecla [alt gr]

Alguien sabria como distinguir estas dos teclas??






Salu2