Zeichnen in UserForm

Hallo an Alle!
Zunächst möchte ich mich erstmal für die zahllosen guten Tipps und Lösungen bedanken, die von so vielen Mitgliedern gegeben werden! Deshalb ist dieses Forum auch immer wieder der erste Anlaufpunkt, wenn ich nicht weiter komme.
Ich habe über die Forensuche schon viel über das Zeichnen in einer Userform gelesen. Ich bin positiv überrascht, dass ich einfache Figuren (Kreise, Rechtecke usw.) über diverse API-Funktionen in eine Form zeichnen kann.
Aber ein Problem konnte ich bisher absolut nicht lösen: Ich lasse nach dem öffnen der UserForm vor dem Zeichnen eine MsgBox "blabla" anzeigen und zeichne dann diverse Elemente. Alles gut!
Lasse ich aber den Aufruf für die MsgBox weg, bleibt die UserForm leer und keine der Figuren wird angezeigt. ich habe ein hWnd = GetForegroundWindow() ausprobiert, weil meine Vermutung dahin ging, dass ich nicht in das richtige Handle zeichne. Mit den diversen "Application.ScreenUpdating"-Sachen habe ich auch etliches ausprobiert, half alles nichts.
Hat jemand dazu eine Idee? Notfalls muss ich eine zeitlich begrenzte MsgBox (von einer Sekunde oder so) verwenden, möchte das aber nicht wirklich...
Ich würde mich über einen Tipp sehr freuen ;-)
Grüße an Alle!

Hallo Klaus,
hier einige Gedanken, die mir so kommen:
Ich würde das handle der UF nicht über GetForegroundwindow holen sondern über FindWindow(vbNullString, Userform1.Caption) o.ä.
Dann hast Du auf jeden Fall das richtige handle.
Hieraus dann den DeviceConext holen und zeichnen.....
Damit das gut klappt, setze noch ein DoEvents rein. s.code (Beispiel)
Übrigens, Repaint sendet eine Neuzeichnungsanforderung via Excel an Windows und zeichnet die UF ohne deine extern durchgeführten Malaktivitäten neu. (s.Beispiel)
Das müsstest Du dann selber machen.

Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" ( _

        ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr

Private Declare PtrSafe Function GetDC Lib "user32" (ByVal hwnd As LongPtr) As LongPtr

Declare PtrSafe Function Rectangle Lib "gdi32" (ByVal hdc As LongPtr, ByVal X1 As Long, _

     ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub test()

 UserForm1.Show vbModeless

 Dim hwnd As LongPtr, hMapDC As LongPtr

 hwnd = FindWindow(vbNullString, UserForm1.Caption)

 hMapDC = GetDC(hwnd)

 DoEvents

 Rectangle hMapDC, 10, 10, 200, 200

 Sleep 2000

 UserForm1.Repaint

End Sub

viele Grüße
Karl-Heinz

Forumthread: Zeichnen in UserForm

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial

Zeichnen in einer UserForm mit Excel VBA

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)