New Member
Group: Members
Posts: 2
Member No.: 33793
Joined: 13-April 10
|
Visual Basic 6
| CODE |
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long
Private Const WS_EX_STATICEDGE = &H20000
Private Const WS_EX_TRANSPARENT = &H20&
Private Const WS_CHILD = &H40000000
Private Const CW_USEDEFAULT = &H80000000
Private Const SW_NORMAL = 1
Private Type CREATESTRUCT
lpCreateParams As Long
hInstance As Long
hMenu As Long
hWndParent As Long
cy As Long
cx As Long
y As Long
x As Long
style As Long
lpszName As String
lpszClass As String
ExStyle As Long
End Type
Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long
';AniGIF control Styles
Private Const WAGS_AUTOSIZE = &H1
Private Const WAGS_CENTER = &H2
Private Const WAGS_HYPERLINK = &H4
';AniGIF control messages
Private Const WM_USER = 1024
Private Const WAGM_BASE = WM_USER + 1000
Private Const WAGM_LOADGIFFROMFILE = WAGM_BASE + 0 ';wParam:N/A, lParam:lpFileName
Private Const WAGM_LOADGIFFROMRESOURCE = WAGM_BASE + 1 ';wParam:hInstance, lParam:ResourceID
Private Const WAGM_UNLOADGIF = WAGM_BASE + 2 ';wParam:N/A, lParam:N/A
Private Const WAGM_SETHYPERLINK = WAGM_BASE + 3 ';wParam:N/A, lParam:lpszHyprelink
Private Const WAGM_ZOOM = WAGM_BASE + 4 ';wParam:N/A, lParam:TRUE(Zoom In by 10%)/FALSE(Zoom Out by 10%)
Private Const WAGM_SETBKCOLOR = WAGM_BASE + 5 ';wParam:N/A, lParam:BkColor
Dim mWnd As Long
Private Sub Form_Load()
Dim s As String
Dim result As Long
Dim CS As CREATESTRUCT
s = App.Path & "\AniGif.dll"
result = LoadLibrary(ByVal s)
If result > 0 Then
mWnd = CreateWindowEx(WS_EX_STATICEDGE Or WS_EX_TRANSPARENT, "AniGIF", "AnimatedGif", WS_CHILD + WAGS_HYPERLINK + WAGS_CENTER + WAGS_AUTOSIZE, 0, 0, 50, 50, me.hwnd, 0, App.hInstance, 0)
End If
s = App.Path & "\tiny_red.gif"
SendMessage(mWnd, WAGM_LOADGIFFROMFILE, 0, ByVal s)
ShowWindow mWnd, SW_NORMAL
'Zoom out
SendMessage mWnd, WAGM_ZOOM, 0&, 1
'Zoom in
SendMessage mWnd, WAGM_ZOOM, 0&, 0
End Sub
Private Sub Form_Unload(Cancel As Integer)
DestroyWindow mWnd
End Sub |
This post has been edited by Gunner on Oct 20 2012, 03:47 PM
|
Close Topic Options