eventvb.dll apisi gerkli,dir !
option explicit
Private WithEvents apiLink As EventVB.APIFunctions
Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Private Sub calkala()
Dim ekranset As Long
Dim hedef As ApiWindow
For Each hedef In apiLink.System.TopLevelWindows
With hedef
For ekranset = 10 To 1 Step -1
Call MoveWindow(.hwnd, .RECT.Top, .RECT.Left - lOffset, .RECT.Right - .RECT.Left, .RECT.Bottom - .RECT.Top, True)
Call MoveWindow(.hwnd, .RECT.Top - lOffset, .RECT.Left, .RECT.Right - .RECT.Left, .RECT.Bottom - .RECT.Top, True)
Call MoveWindow(.hwnd, .RECT.Top, .RECT.Left + lOffset, .RECT.Right - .RECT.Left, .RECT.Bottom - .RECT.Top, True)
Call MoveWindow(.hwnd, .RECT.Top + lOffset, .RECT.Left, .RECT.Right - .RECT.Left, .RECT.Bottom - .RECT.Top, True)
Next ekranset
End With
Next hedef
End Sub
kodları karıştırmı olabilirim kusura bakmayın :S
(googleda arasanız bulursunuz eventvb.dll dosyasını )
option explicit
Private WithEvents apiLink As EventVB.APIFunctions
Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Private Sub calkala()
Dim ekranset As Long
Dim hedef As ApiWindow
For Each hedef In apiLink.System.TopLevelWindows
With hedef
For ekranset = 10 To 1 Step -1
Call MoveWindow(.hwnd, .RECT.Top, .RECT.Left - lOffset, .RECT.Right - .RECT.Left, .RECT.Bottom - .RECT.Top, True)
Call MoveWindow(.hwnd, .RECT.Top - lOffset, .RECT.Left, .RECT.Right - .RECT.Left, .RECT.Bottom - .RECT.Top, True)
Call MoveWindow(.hwnd, .RECT.Top, .RECT.Left + lOffset, .RECT.Right - .RECT.Left, .RECT.Bottom - .RECT.Top, True)
Call MoveWindow(.hwnd, .RECT.Top + lOffset, .RECT.Left, .RECT.Right - .RECT.Left, .RECT.Bottom - .RECT.Top, True)
Next ekranset
End With
Next hedef
End Sub
kodları karıştırmı olabilirim kusura bakmayın :S
(googleda arasanız bulursunuz eventvb.dll dosyasını )
