title image


Smiley Re: Da gab es doch irgendwo was, wie man animierte GIFS auf einer Form einbinde
Kloar, Du musst nur die Windowstyles setzen wie WS_Popup, WS_CHild, WS_Border und Co.

Wenn es WS_Child verpasst bekommt benimmt es sich wie ein Control und fügt sich in den Parent ein ggf. mit Setparent nachhelfen ;)



Übrigens: Die ATL.dll muss nicht mitgeliefert werden: Sie ist genauso Standard wie die Kernel32.dll ;)) Sie ist auf jeder Windows Platform drauf.



Dann sieht das so aus:







      

Private Declare Sub AtlAxWinInit Lib "Atl.dll" ()



Private Declare Function CreateWindowEx Lib "user32.dll" 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, _

     ByRef lpParam As Any) As Long

     

Private Declare Function SetParent Lib "user32.dll" ( _

     ByVal hWndChild As Long, _

     ByVal hWndNewParent As Long) As Long



Private Const WS_VISIBLE As Long = &H10000000

Private Const WS_CHILD As Long = &H40000000

Private Const WS_POPUP As Long = &H80000000





Private Sub Form_Load()

    Dim hAxW As Long

    Dim sWin As String

    

    AtlAxWinInit

    'sWin = "file://C:\Dein_File.gif"

    'oder

    sWin = "http://www.visualbasic.at/forum/files//26710-JumpBall.gif"

    hAxW = CreateWindowEx(0, "AtlAxWin", sWin, WS_VISIBLE Or WS_CHILD Or WS_POPUP, 0, 0, 100, 100, Me.hwnd, 0, App.hInstance, ByVal 0)

    If hAxW Then SetParent hAxW, Me.hwnd

    

End Sub

 



Code eingefügt mit Syntaxhighlighter 3.0








geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: