vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Re: Gif - Anzeigen 
Autor: MMAdmin
Datum: 11.03.05 17:55
Ich hab ne Lösung gefunden: Einfach das Webbrowsercontrol (Web) einbinden und folgenden Code ausführen (im Form_Load): 

Private Declare Function SetCursorPos Lib "user32" (ByVal _
        X As Long, ByVal y As Long) As Long
 
Private Declare Function GetCursorPos Lib "user32" _
        (lpPoint As POINTAPI) As Long
 
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags _
        As Long, ByVal dx As Long, ByVal dy As Long, ByVal _
        cButtons As Long, ByVal dwExtraInfo As Long)
 
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_ABSOLUTE = &H8000
 
Private Type POINTAPI
  X As Long
  y As Long
End Type
 
Private Sub Form_Load()
  SetGif "C:\Gif.gif"
End Sub
 
Private Sub SetGif(P as String)
        Wi = Me.Width
        He = Me.Height
        WIS = Me.WindowState
 
'        Me.Picture = LoadPicture(App.Path & "\Smileys\" & Mid(URL, Len( 
' "about:Addno:") + 1))
        Clipboard.Clear
'        Clipboard.SetData Me.Picture
        Open App.Path & "\Paste.HTML" For Output As #23
            Print #23, "<html><img src=" & Chr(34) & App.Path & "\Smileys\" _
              & Mid(URL, Len("about:Addno:") + 1) & Chr(34) & "></html>"
        Close #23
        Web.Navigate App.Path & "\Paste.HTML"
        Me.Show
        Web.SetFocus
        Call GetCursorPos(PA)
        Call SetCursorPos((Me.Left + Web.Left + (Web.Width / 2)) / _
          Screen.TwipsPerPixelX, (Me.Top + Web.Top + (Web.Height / 2)) / _
          Screen.TwipsPerPixelY)
        Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
        Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
        For i = 0 To 30
            DoEvents
        Next i
        SendKeys "^(a)", True
        For i = 0 To 40
            DoEvents
        Next i
        SendKeys "^(c)", True
        For i = 0 To 400
            DoEvents
        Next i
        Me.WindowState = 1
        DoEvents
        SendKeys "^(v)", True
        For i = 0 To 999
            DoEvents
        Next i
        Me.WindowState = WIS
        If Me.WindowState <> 2 And Me.WindowState <> 1 Then Me.Width = _
          Wi: Me.Height = He
        Me.Show vbModeless
        Me.Hide
'        Me.Show vbModal
        Me.Show vbModeless
        Web.SetFocus
        Call SetCursorPos((Me.Left + Web.Left + 100) / Screen.TwipsPerPixelX, ( _
          Me.Top + Web.Top + 600) / Screen.TwipsPerPixelY)
        DoEvents
        Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
        Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
 
        Call SetCursorPos(PA.X, PA.y)
        Clipboard.Clear
End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Gif - Anzeigen769MMAdmin09.03.05 20:36
Re: Gif - Anzeigen537ModeratorDieter09.03.05 23:20
Re: Gif - Anzeigen520RapID23o511.03.05 16:58
Re: Gif - Anzeigen506MMAdmin11.03.05 17:55
Sry528MMAdmin11.03.05 18:01

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel