Fenstermanipulator bei transparentem Fenster.

SoEinVBler · 5. November 2023, 18:58

Hallo,

meine "transparente" Fenster weisen ein (für mich) seltsames Verhalten an den Tag.

Es werden vom Hauptfenster 2 Sub-Fenster angezeigt, und mit

VB.NET-Quellcode

Me.TransparencyKey = Color.FromName("Control")

wird das Fenster transparent gemacht.
(Damit der Rand des Fenster sichtbar wird zeichne ich noch mit Graphics ein Rechteck in der Form, ändert aber am Verhalten nichts)

So bald diese Transparenz wirksam ist, und das Sub-Fenster sich teilweise auserhalb des Haupfenster ist, kann das Fenster nur noch bedingt in der Größe geänder werden.
Wenn man mit der Maus an die untere rechte Ecke fährt, wird der "Fenstermanipulator" nicht richtig angezegt.
Er erscheint nur wenn man mit der Maus schon etwas weiter vom Fenster entfernt ist, und auch nur gefühlt für ein Bereich von einem Pixel.

An den anderen Ecken ist das Verhalten wie gewhohnt, und auch wenn die Transparenz ausgeschalten wird, geht es wieder.

Da ich das Verhalten nur schwer erklären kann hab ich ein kleines Vidoe bei Reddit hochgeladen.
(hoffe das ist kein Problem)

Ergänzung: habe es bei .NET Framework 4.5.2 und 4.8 getestet.
Kennt jemand das Problem oder hat eine Idee wie man es lösen könnte?

RodFromGermany · 6. November 2023, 05:21

SoEinVBler schrieb:

(hoffe das ist kein Problem)

Besser istz es, Du lädtst das Projekt in einer abgespeckten Form hoch, das können wir dann direkt in unser Studio laden.

DTF · 6. November 2023, 06:27

Transparenzen und Forms sind keine schöne Kombination. Auch Mouse-Events sind so eine Sache. Wo nichts sichtbar ist, kommen keine MouseEvents an, bzw. dort werden keine ausgelöst. Mach mal ein transparentes leeres Form, abonniere das MouseMove-Event und du wirst sehen dass dieses Abo ein Betrug ist, du wirst nicht beliefert

. Du kannst ja auch durch das Form durchklicken, da wird also irgendwo das Problem entstehen. Ich wüsste da nur das Resizen selbt zu managen, das setzt aber vorraus die Maus zu tracken, wenn das Fenster den Focus hat.

SoEinVBler schrieb:

Color.FromName("Control")

Geht besser: TransparencyKey = SystemColors.Control;

SoEinVBler schrieb:

"Fenstermanipulator"

Das Ding nennt man Cursor, wird nur ein anderer angezeigt, probier mal das aus: [tt]Cursor = Cursors.SizeNS;

-Franky- · 6. November 2023, 07:05

Hi

Anstatt die Form komplett Transparent zu machen hilft evtl. eine Farbe, die nicht zu 100% Transparent ist. z.B. Color.FromArgb(1,0,0,0). Damit bleiben Dir auch die MouseEvents erhalten.

VaporiZed · 6. November 2023, 09:28

Ja, ist schon komisch, dass links und oben das Form veränderbar ist, unten und rechts nur, wenn man das Größenänderungsdreieck in der Ecke erwischt.

@-Franky-: Um mal den WinForms-Compiler zu zitieren: Das Steuerelement unterstützt keine transparenten Hintergrundfarben.

##########

Ich hab's mal bei Microsoft gemeldet, mal sehen, was da kommt. Wahrscheinlich: zur Kenntnis genommen, aber nicht wichtig genug.

DTF · 6. November 2023, 13:15

Die Farbe würde ja nichts bringen, weil der TransparencyKey ein RGB Wert(Drawing.Color) ist und ich meine nur wenn die Werte identisch sind, wird es unsichtbar, da gibt es dann nur sichtbar oder nicht.

-Franky- · 6. November 2023, 14:06

VaporiZed schrieb:

Um mal den WinForms-Compiler zu zitieren: Das Steuerelement unterstützt keine transparenten Hintergrundfarben.

Oha, jau, mein Fehler. Dann kann ich noch folgendes anbieten: stackoverflow.com/questions/51…ckcolor-in-a-windows-form oder direkt per API SetWindowCompositionAttribute. Ersteres ist wohl aber besser (ungetestet).
Auf die schnelle zusammengeklöppelt.

Spoiler anzeigen

VB.NET-Quellcode

Imports System.Runtime.InteropServices
Public Class Form1
Private Enum WindowCompositionAttribute As Integer
WCA_ACCENT_POLICY = &H13
End Enum
Private Enum AnimationId As Integer
None = &H0
End Enum
Private Enum AccentFlags As Integer
Draw00 = &H0
Draw01 = &H1
Draw02 = &H2
Draw04 = &H4
Draw08 = &H8
Draw10 = &H10
DrawLeftBorder = &H20
DrawTopBorder = &H40
DrawRightBorder = &H80
DrawBottomBorder = &H100
DrawAllBorders = DrawLeftBorder Or DrawTopBorder Or DrawRightBorder Or DrawBottomBorder
End Enum
Private Enum AccentState As Integer
ACCENT_DISABLED = &H0
ACCENT_ENABLE_GRADIENT = &H1
ACCENT_ENABLE_TRANSPARENTGRADIENT = &H2
ACCENT_ENABLE_BLURBEHIND = &H3
ACCENT_ENABLE_ACRYLICBLURBEHIND = &H4
ACCENT_ENABLE_HOSTBACKDROP = &H5
ACCENT_ENABLE_TRANSPARENT = &H6
ACCENT_INVALID_STATE = &H7
End Enum
Private Structure GradientColor
Dim R As Byte
Dim G As Byte
Dim B As Byte
Dim A As Byte
End Structure
Private Structure AccentPolicy
Dim eAccentState As AccentState
Dim eAccentFlags As AccentFlags
Dim tGradientColor As GradientColor
Dim eAnimationId As AnimationId
End Structure
Private Structure WindowCompositionAttributeData
Dim Attribute As WindowCompositionAttribute
Dim Data As IntPtr
Dim SizeOfData As Integer
End Structure
<DllImport("user32.dll", EntryPoint:="SetWindowCompositionAttribute")>
Private Shared Function SetWindowCompositionAttribute(<[In]> hwnd As IntPtr,
<[In]> ByRef Data As WindowCompositionAttributeData) As Integer
End Function
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
Me.BackColor = Color.Black
End Sub
Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
Dim accentPolicy As AccentPolicy
Dim gradientColor As GradientColor
Dim windowCompositionAttributeData As WindowCompositionAttributeData
With gradientColor
.A = 0
.R = 0
.G = 0
.B = 0
End With
With accentPolicy
.eAccentState = AccentState.ACCENT_ENABLE_TRANSPARENT
.tGradientColor = gradientColor
.eAccentFlags = AccentFlags.DrawAllBorders
.eAnimationId = 0
End With
Dim sizeOfAccentPolicy As Integer = Marshal.SizeOf(accentPolicy)
Dim pnt As IntPtr = Marshal.AllocHGlobal(sizeOfAccentPolicy)
Marshal.StructureToPtr(accentPolicy, pnt, False)
With windowCompositionAttributeData
.Attribute = WindowCompositionAttribute.WCA_ACCENT_POLICY
.SizeOfData = sizeOfAccentPolicy
.Data = pnt
End With
Debug.Print(SetWindowCompositionAttribute(Me.Handle, windowCompositionAttributeData).ToString)
Marshal.FreeHGlobal(pnt)
End Sub
Private Sub Form1_Click(sender As Object, e As EventArgs) Handles Me.Click
Debug.Print("MouseClick")
End Sub
End Class

SoEinVBler · 6. November 2023, 20:48

Vielen Dank schon mal für die Antworten.

Ok, wenn keine MouseEvents im transparenten Fenster ankommen, könnte das eine Ursache sein, dass der Rand nicht richtig erkannt wird.(Spekulation)
Aber warum es dann geht wenn es das transparente Fenster vor dem Hauptfenster ist, ist schon ein Rätsel.
Bin ja mal gespannt ob von Microsoft eine Antwort kommt

Dass die Mausevents nicht ankommen und man durch die transparente Form klicken kann ist in meinem Fall eigentlich ganz reizvoll.

@-Franky- das Beispiel funktionier und da treten die Problem nicht auf, aber ich verliere auch die Möglichkeit "durch" die Form zu klicken.
Ich muss mir das Beispiel aber noch genau anschauen um nachzuvollziehen was genau geschieht.

SoEinVBler · 6. November 2023, 22:47

Hallo,

ich habe noch etwas mit den Hintergrundfarben für die Transparenz gespielt.
Auch hier sind mir noch ein paar selstsame Dinge aufgefallen.
Bei unterschiedlichen Farben reagiert die Form anders.

Bei Grau- und z.B. Grüntönen kann man durch die Form klicken, und es kommt auch zu dem vorher benanten Effekt.
Bei anderen Farben ist die Form zwar transparent, aber man kann nicht durch die Form durchklicken (MouseEvents kommen)
Bei schwarzer Farbe kann die Form auch nich mehr über die Titelleiste verschoben werden oder beendet werden. Die Titelleiste mit X ist wie deaktiviert.

Dann hab ich noch mit der Rahmengröße, welchen ich in der Form zeichne, um diese besser sichtbar zu machen, gespielt.

Wenn ich den Rand auf 10 oder höher setzte geht das Vergrößern an den Seiten bis zu den Ecken, aber in der Mitte unten geht es immer noch nicht...
Ab einem Rand von ca. 30 geht es auch unten wieder.
(Sieht halt nich schön aus)

Die MausEvents kommen in dem Rahmen teilweise, Richtung Mitte der Form gehen sie irgendwann nich mehr, und im unteren Bereich ist es noch schlechter.

Hier noch mein Beispiel Code.

Spoiler anzeigen

-Franky- · 7. November 2023, 09:43

Hi. Evtl. sollte man wissen das wenn TransparencyKey und/oder Opacity verwendet werden, intern der Form der WindowsStyle WS_EX_LAYERED (oder auch WS_EX_TRANSPARENT) hinzugefügt werden (GetWindowLong/SetWindowLong). Bei WS_EX_LAYERED kommt dann noch die API SetLayeredWindowAttributes mit Flags LWA_COLORKEY (Eigenschaft TransparencyKey) und/oder LWA_ALPHA (Eigenschaft Opacity) zum Einsatz. Im groben schaut das intern dann so aus.

Spoiler anzeigen

VB.NET-Quellcode

Imports System.Runtime.InteropServices
Public Class Form1
Private Const GWL_EXSTYLE As Integer = (-20)
Private Const WS_EX_LAYERED As Integer = &H80000
Private Const LWA_COLORKEY As Integer = &H1
Private Const LWA_ALPHA As Integer = &H2
<DllImport("user32.dll", EntryPoint:="GetWindowLong")>
Private Shared Function GetWindowLong(<[In]> hwnd As IntPtr,
<[In]> nIndex As Integer) As Integer
End Function
<DllImport("user32.dll", EntryPoint:="SetWindowLong")>
Private Shared Function SetWindowLong(<[In]> hwnd As IntPtr,
<[In]> nIndex As Integer,
<[In]> dwNewLong As Integer) As Integer
End Function
<DllImport("user32.dll", EntryPoint:="SetLayeredWindowAttributes")>
Private Shared Function SetLayeredWindowAttributes(<[In]> hwnd As IntPtr,
<[In]> crKey As Integer,
<[In]> bAlpha As Byte,
<[In]> dwFlags As Integer) As Integer
End Function
Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
e.Graphics.FillRectangle(Brushes.Black, 1, 1, 100, 100)
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
SetWindowLong(Me.Handle, GWL_EXSTYLE, GetWindowLong(Me.Handle, GWL_EXSTYLE) Or WS_EX_LAYERED)
SetLayeredWindowAttributes(Me.Handle, Color.Black.ToArgb, 255, LWA_COLORKEY Or LWA_ALPHA)
End Sub
End Class

Allerdings ist das Verhalten unter .NET scheinbar ein wenig anderer als unter VB6 denn da funktioniert das wie es soll. Das wird (ungetestet) mit dem Manifest zusammenhängen da in .NET ja die Forms/Controls sich dem Theme von Windows anpassen. Ich würde aber auch sagen das es sich hier um einen Bug in .Net handelt.

VaporiZed · 8. November 2023, 15:34

Microsoft hat geantwortet: Mit Color.Red für BackColor und TransparencyKey funktioniert es (bei denen und mir) richtig. Aber: Bug bleibt Bug bleibt Fehler.

SoEinVBler · 8. November 2023, 22:10

Hallo,

ich gehe mal davon aus, das richtige Verhalten ist, dass die MausEvents kommen und man nicht durch die transparente Form klicken kann.(macht ja eigentlich Sinn)
Das klappt auch mit anderen Farben, Gelb, Blau oder Orange.
Bei Grau- und Grüntönen ist es (bei mir) anders.

Naja zumindest weiß man jetzt ungefär wie es sich verhält.

-Franky- · 8. November 2023, 23:41

SoEinVBler schrieb:

ich gehe mal davon aus, das richtige Verhalten ist, dass die MausEvents kommen und man nicht durch die transparente Form klicken kann

Das hängt davon ab welches Verfahren verwendet wird um einen transparenten Bereich in einer Form zu erzeugen. Per Region-APIs (z.B SetWindowRgn), per API SetLayeredWindowAttributes, per API SetWindowCompositionAttribute bzw. per DWM-APIs usw. .NET wird SetLayeredWindowAttributes mit entsprechenden WS_EX-Flags verwenden. Es ist dennoch ein Bug in .NET das unterschiedliche Farben ein unterschiedliches Verhalten hervor ruft.

VaporiZed · 10. November 2023, 09:36

Wie vermutet: Für Microsoft zu uninteressant. Es müssten da schon einige Leute voten, damit es eher angegangen wird, aber das hat ja bei früheren Problemen auch schon nicht funktioniert …

-Franky- · 10. November 2023, 14:09

@SoEinVBler Falls Du das Fenster durchklickbar haben möchtest und dort wo Controls auf der Form sind nicht, dann wäre das per Region und GraphicsPath möglich. Allerding mit einem Nachteil, das Fenster wird im alten Style angezeigt.

Spoiler anzeigen

VB.NET-Quellcode

Public Class Form1
Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
Using OuterPath As New Drawing2D.GraphicsPath
Using InnerPath As New Drawing2D.GraphicsPath
Using CombinedPath As New Drawing2D.GraphicsPath
Dim BorderSize As Integer = (Me.Width - Me.ClientSize.Width) \ 2
Dim CaptionSize As Integer = Me.Height - Me.ClientSize.Height
OuterPath.AddRectangle(New Rectangle(0, 0, Me.Width, Me.Height))
InnerPath.AddRectangle(New Rectangle(BorderSize, CaptionSize - BorderSize,
Me.ClientSize.Width, Me.ClientSize.Height))
CombinedPath.AddPath(OuterPath, True)
CombinedPath.AddPath(InnerPath, True)
Using TransparentRegion As New Region(CombinedPath)
For Each Ctrl As Control In Me.Controls
If Ctrl.Container Is Me.Container Then
TransparentRegion.Xor(New Rectangle(Ctrl.Location.X + BorderSize,
Ctrl.Location.Y + (CaptionSize - BorderSize),
Ctrl.Size.Width,
Ctrl.Size.Height))
End If
Next
Region = TransparentRegion
End Using
End Using
End Using
End Using
End Sub
End Class

@VaporiZed Ich hatte auch mal was an MS gemeldet. Eigentlich ein Sicherheitsproblem beim laden älterer Officedateien (DOC, XLS, usw.) mit Makros obwohl das ausführen der Makros (VBA) untersagt ist. Die Makros wurden dennoch ausgeführt.

Antwort von MS: This is by design. Ja dann.

SoEinVBler · 10. November 2023, 14:12

Also bei TransparencyKey=true wäre es für mich schon das Standardverhalten wenn die Form durchsichtig ist, aber die MausEvents kommen.
(Durch meine durchsichtigen Fenster daheim kann ich auch nicht durch greifen)

Das es sich bei Grau und Grün anders verhält ist klar ein Bug, aber für mich gerade ein netter Nebenefekt den ich nutze.
Mit der Einschränkung die Größe rechts unten nicht so einfach einstellen zu können.(restlichen Ecken gehen ja)

Mit Region-API hab ich getestet, aber dann sehen die Fenster wieder anders aus (ist das dann Win7?)
Die anderen habe ich nicht versucht.

Aktuell bleib ich bei TransparencyKey und lebe mit dem kleinen Nachteil.
Aber danke schon mal für die genzen Tipps.

Hallo,

das mit den Region-API's hat mir doch keine Ruhe gelassen, und habe damit noch ein paar Tests gemacht.

In meine Fenster habe ich nun ein Variable (useRegion) mit der ich wählen kann ob ich TransparencyKey oder lieber die Region-API' nutzen möchte.

Wenn die Region-API 's genutzt werden ändert sich bei mir die Darstellung der Form, es ist dann nicht mehr die "flach" Form von "Win10"( oder was es ist), sondern hat einen "3D-Rand"
Mit hilfe der Regionen schneide ich aber außen etwas vom Rand ab, zusätzlich setze ich trotzsem den TransparencyKey, und zwar aktuell auf die Farbe SystemColors.InactiveBorder
Somit ist der Rahmen kleiner und nur bei aktivier Form sichtbar.
Die Form kann aber ringsum vergrößert oder verkleinert werden.

Hier noch 3 Bilder um den Vergleich zu sehen.

Und hier der Code den ich verwende:

Spoiler anzeigen

VB.NET-Quellcode

Public Class Form1
Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Integer, ByVal hSrcRgn1 As Integer, ByVal hSrcRgn2 As Integer, ByVal nCombineMode As Integer) As Integer
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer) As Integer
Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As IntPtr, ByVal hRgn As Integer, ByVal bRedraw As Boolean) As Integer
Private Const RGN_DIFF = 4
Private useRegion As Boolean = False
Private FormRand As Int16 = Convert.ToInt16(Math.Round((Me.Width - Me.ClientSize.Width) / 2, 0))
Private Randverkleinern As Int16 = 4
Private innererRahmen As Int16 = 4
Private RahmenFarbe As Color = Color.Red
Private innerSize As Rectangle
Private TitelHoehe As Integer
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If useRegion Then
getInnerSize()
Me.BackColor = RahmenFarbe
Me.TransparencyKey = SystemColors.InactiveBorder
Else
Me.BackColor = Color.Gray
Me.TransparencyKey = Me.BackColor
End If
Me.FormBorderStyle = FormBorderStyle.SizableToolWindow
Me.TopMost = True
End Sub
Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
If useRegion Then
Dim r1, r2 As Integer
r1 = CreateRectRgn(Randverkleinern, Randverkleinern, Me.Width - Randverkleinern, Me.Height - Randverkleinern)
r2 = CreateRectRgn(innerSize.Left, innerSize.Y, innerSize.Width, innerSize.Height)
CombineRgn(r1, r1, r2, RGN_DIFF)
SetWindowRgn(Me.Handle, r1, True)
Else
Dim stift As New Pen(RahmenFarbe, innererRahmen)
e.Graphics.DrawRectangle(stift, stift.Width / 2, stift.Width / 2, Me.ClientRectangle.Width - stift.Width, Me.ClientRectangle.Height - stift.Width)
End If
End Sub
Private Sub Form1_Resize(sender As Object, e As EventArgs) Handles Me.Resize
getInnerSize()
If innerSize.Width - innerSize.Left <= 0 Then Me.Width = 1 + 2 * FormRand + 2 * innererRahmen
If innerSize.Height - innerSize.Top <= 0 Then Me.Height = 1 + TitelHoehe + FormRand + 2 * innererRahmen
Me.Invalidate()
End Sub
Private Sub getInnerSize()
TitelHoehe = (Me.Height - Me.ClientSize.Height - FormRand)
innerSize.X = FormRand + innererRahmen
innerSize.Y = TitelHoehe + innererRahmen
innerSize.Width = Me.Width - innererRahmen - FormRand
innerSize.Height = Me.Height - innererRahmen - FormRand
End Sub
End Class

Beiträge zusammengefügt. ~Thunderbolt

-Franky- · 10. November 2023, 23:41

Hi. Das mit der Region ist eher was für Forms mit BorderStyle = None. Dann zeichnet man sich den Border, die CaptionBar usw. selber. Forms mit BorderStyle = None zu verschieben und in der Größe zu verändern ist das kleinste Problem.

Edit: Die Region-APIs brauchst nicht wirklich da das in .NET vorhanden ist (siehe dazu mein Bsp. mit GraphisPath und Region). Deine API-Deklarationen sind auch nicht korrekt. CreateRectRgn gibt ein Handle auf eine Region zurück (hRgn). Daher IntPtr. Entsprechend müssen dann bei CombineRgn alle hXxxRgn auch IntPtr sein und es fehlt die API DeleteObject um die erzeugte hRgn nach Gebrauch zu löschen (in .NET -> Dispose).

SoEinVBler · 11. November 2023, 13:20

Hallo,

@-Franky- ich muss gestehen, das mit deinem Beispiel ist mir irgendwie untergegangen.

In einem vorherigen Post habe ich was mit API gelesen und mir gleich ein altes Beispiel von mir mit den API rausgezogen. (War damals unter Excel VBA)

Das die Deklerationen nicht ganz stimmen war mir fast klar, da hänge ich immer... (muss ich irgendwann mal aufarbeiten)
Das die Regionen auch wieder gelösch werden sollte ist mir auch aufgefallen, aber die API DeleteObject ist mir dazu nicht eingefallen, bzw. hab das bisher meißt vernachlässigt.
(Ich hatte bei Microsoft nach den Regions-APIs geschaut aber so was wie DelRgn nicht gefunden...)

Mit deinem Beispiel geht es natürlich auch, und ich denke das ist auch "Sicherer" wie mit API'S

Aktuell teste ich nun mit BorderStyle = None und einem Label als "Titelleiste"
Das Verschieben/Vergrößern bekomme ich zwar hin, vermute aber dass es da was einfacheres gibt.

Bisher teste ich wo die Maus sich befindet, am Rand links, rechts, oben, unten, und setzte dann Variablen.
Diese werte ich dann aus um entweder den Curser zu setzen oder die Form dann zu verchieben/vergrößern.

Da das Label ganz oben über die ganze Formbreite geht habe ich den Code nun doppelt drin,einmal für das Label und dann die Form.
Das würde ich jetzt noch versuchen in eine SUB zu bringen.
Außerdem ist noch ein Bug drin, wenn die Form zu klein wird begrenze ich das zwar, aber dann geht das mit dem Vergrößern nicht mehr richtig...

Spoiler anzeigen

VB.NET-Quellcode

Public Class Form1
Dim BorderSize As Integer = 10
Dim CaptionSize As Integer
Private MinSize As Int16 = 5
Private tx As Integer = -1
Private ty As Integer = -1
Private fx As Integer = -1
Private fy As Integer = -1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
Me.TopMost = True
Me.FormBorderStyle = FormBorderStyle.None
Me.BackColor = Color.Red
lbTitel.Left = 0
lbTitel.Top = 0
lbTitel.Width = Me.Width
lbTitel.Height = Math.Max(lbTitel.Height, BorderSize + 10)
CaptionSize = lbTitel.Height
End Sub
Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
Using OuterPath As New Drawing2D.GraphicsPath
Using InnerPath As New Drawing2D.GraphicsPath
Using CombinedPath As New Drawing2D.GraphicsPath
OuterPath.AddRectangle(New Rectangle(0, 0, Me.Width, Me.Height))
InnerPath.AddRectangle(New Rectangle(BorderSize, CaptionSize + BorderSize, Me.Width - 2 * BorderSize, Me.Height - 2 * BorderSize - CaptionSize))
CombinedPath.AddPath(OuterPath, True)
CombinedPath.AddPath(InnerPath, True)
Using TransparentRegion As New Region(CombinedPath)
Region = TransparentRegion
End Using
End Using
End Using
End Using
End Sub
Private Sub Form1_Resize(sender As Object, e As EventArgs) Handles Me.Resize
If Me.Width < MinSize + 2 * BorderSize Then Me.Width = MinSize + 2 * BorderSize
If Me.Height < MinSize + CaptionSize + 2 * BorderSize Then Me.Height = MinSize + CaptionSize + 2 * BorderSize
Me.Invalidate()
End Sub
Private Sub lbTitel_MouseMove(sender As Object, e As MouseEventArgs) Handles lbTitel.MouseMove
Static Dim ou, lr As Integer
If tx >= 0 Then
If (lr = 0 And ou = 0) Or lr = -1 Then Me.Left += e.X - tx
If lr <> 0 Then Me.Width += lr * (e.X - tx)
If lr > 0 Then tx = e.X
If ou = -1 Or (ou = 0 And lr = 0) Then Me.Top += e.Y - ty
If ou <> 0 Then Me.Height += ou * (e.Y - ty)
Else
If e.X > lbTitel.Width - BorderSize Then
lr = 1
ElseIf e.X < BorderSize Then
lr = -1
Else
lr = 0
End If
If e.Y < BorderSize Then ou = -1 Else ou = 0
If ou = -1 Then
If lr = 1 Then
lbTitel.Cursor = Cursors.SizeNESW
ElseIf lr = -1 Then
lbTitel.Cursor = Cursors.SizeNWSE
Else
lbTitel.Cursor = Cursors.SizeNS
End If
Else
If lr <> 0 Then
lbTitel.Cursor = Cursors.SizeWE
Else
lbTitel.Cursor = Cursors.SizeAll
End If
End If
End If
End Sub
Private Sub lbTitel_MouseDown(sender As Object, e As MouseEventArgs) Handles lbTitel.MouseDown
tx = e.X
ty = e.Y
End Sub
Private Sub lbTitel_MouseUp(sender As Object, e As MouseEventArgs) Handles lbTitel.MouseUp
tx = -1
ty = -1
End Sub
Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove
Static Dim ou, lr As Integer
If fx >= 0 Then
If (lr = 0 And ou = 0) Or lr = -1 Then Me.Left += e.X - fx
If lr <> 0 Then Me.Width += lr * (e.X - fx)
If lr > 0 Then fx = e.X
'If ou = 1 Then Me.Top += e.Y - ty
If ou <> 0 Then Me.Height += ou * (e.Y - fy)
If ou > 0 Then fy = e.Y
Else
If e.X > Me.Width - BorderSize Then
lr = 1
ElseIf e.X < BorderSize Then
lr = -1
Else
lr = 0
End If
If e.Y > Me.Height - BorderSize Then ou = 1 Else ou = 0
If ou = 1 Then
If lr = 1 Then
Me.Cursor = Cursors.SizeNWSE
ElseIf lr = -1 Then
Me.Cursor = Cursors.SizeNESW
Else
Me.Cursor = Cursors.SizeNS
End If
Else
If lr <> 0 Then
Me.Cursor = Cursors.SizeWE
Else
End If
End If
End If
End Sub
Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown
fx = e.X
fy = e.Y
End Sub
Private Sub Form1_MouseUp(sender As Object, e As MouseEventArgs) Handles Me.MouseUp
fx = -1
fy = -1
End Sub
End Class

-Franky- · 11. November 2023, 14:37

Hi. Intern verwendet. NET auch die Region-APIs. Von daher ist es egal ob per API oder per .NET. Am Ende kommt das gleiche Ergebnis raus.

Form ohne Titelleiste bewegen: activevb.de/tipps/vbnettipps/tipp0045.html wobei auch hier die APIs nicht ganz korrekt sind. Falls Du das Systemmenü bei Form mit FormBorderStyle = None benötigst: activevb.de/tipps/vbnettipps/tipp0123.html Oha, mit Visual Studio 2005 mal gebastelt. Lang lang ist es her.

SoEinVBler · 11. November 2023, 15:50

Da ich kein Systemmenü benötige reicht erst mal der 1. Tipp.
Das spart schon einiges an Arbeit, jetzt geht bewegen und Größe ändern wie gewünscht.

Falls es mal jemand brauchen kann, hier mein Code für ein transparentes Fester
Das Fenster hat eine "Titeleiste" (Label) und einen Rahmen durch den man auch hindurchcklicken kann.
Benutz werdenn kann es z.B. um anzuzeigen von welchem Bereich des Bildschrims ein Screenshot gemacht wird.

Im Fenter ein Label hinzufügen und dieses in lbTitel umbenennen.

Spoiler anzeigen

VB.NET-Quellcode

Imports System.Runtime.InteropServices
Public Class Form1
<DllImport("user32.dll")>
Private Shared Function ReleaseCapture() As Boolean
End Function
<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
Private Shared Function SendMessage(ByVal hWnd As IntPtr,
ByVal Msg As UInteger,
ByVal wParam As Integer,
ByVal lParam As Integer) As Integer
End Function
Private Const HTNOWHERE As Short = 0
Private Const HTCAPTION As Short = 2
Private Const HTLEFT As Short = 10
Private Const HTRIGHT As Short = 11
Private Const HTTOP As Short = 12
Private Const HTTOPLEFT As Short = 13
Private Const HTTOPRIGHT As Short = 14
Private Const HTBOTTOM As Short = 15
Private Const HTBOTTOMLEFT As Short = 16
Private Const HTBOTTOMRIGHT As Short = 17
Private Const WM_NCLBUTTONDOWN As Short = &HA1S
Private Const WM_SYSCOMMAND As Short = &H112S
Private SizeMoveConst As Integer
Private CaptionSize As Integer
Private MinSize As Int16 = 5
Private BorderSize As Short = 10
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
Me.TopMost = True
Me.FormBorderStyle = FormBorderStyle.None
Me.BackColor = Color.Red
lbTitel.AutoSize = False
lbTitel.BorderStyle = BorderStyle.FixedSingle
lbTitel.Anchor = AnchorStyles.Left Or AnchorStyles.Top Or AnchorStyles.Right
lbTitel.BackColor = SystemColors.ButtonHighlight
lbTitel.TextAlign = ContentAlignment.MiddleLeft
lbTitel.Text = Me.Text
lbTitel.Left = 0
lbTitel.Top = 0
lbTitel.Width = Me.Width
lbTitel.Height = Math.Max(lbTitel.Height, BorderSize + 20)
CaptionSize = lbTitel.Height
Me.Left = 500
Me.Top = 500
End Sub
Private Sub Form1_TextChanged(sender As Object, e As EventArgs) Handles Me.TextChanged
lbTitel.Text = Me.Text
End Sub
Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
Using OuterPath As New Drawing2D.GraphicsPath
Using InnerPath As New Drawing2D.GraphicsPath
Using CombinedPath As New Drawing2D.GraphicsPath
OuterPath.AddRectangle(Me.DisplayRectangle)
InnerPath.AddRectangle(New Rectangle(BorderSize, CaptionSize + BorderSize, Me.Width - 2 * BorderSize, Me.Height - 2 * BorderSize - CaptionSize))
CombinedPath.AddPath(OuterPath, True)
CombinedPath.AddPath(InnerPath, True)
Using TransparentRegion As New Region(CombinedPath)
Region = TransparentRegion
End Using
End Using
End Using
End Using
End Sub
Private Sub Form1_Resize(sender As Object, e As EventArgs) Handles Me.Resize
If Me.Width < MinSize + 2 * BorderSize Then Me.Width = MinSize + 2 * BorderSize
If Me.Height < MinSize + CaptionSize + 2 * BorderSize Then Me.Height = MinSize + CaptionSize + 2 * BorderSize
Me.Invalidate()
End Sub
Private Sub lbTitel_MouseMove(sender As Object, e As MouseEventArgs) Handles lbTitel.MouseMove
lbTitel.Cursor = HitTest(e.Location)
End Sub
Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove
Me.Cursor = HitTest(e.Location)
End Sub
Private Sub lbTitel_MouseDown(sender As Object, e As MouseEventArgs) Handles lbTitel.MouseDown
If SizeMoveConst <> 0 Then
ReleaseCapture()
SendMessage(Me.Handle, WM_NCLBUTTONDOWN, SizeMoveConst, 0)
End If
End Sub
Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown
If SizeMoveConst <> 0 Then
ReleaseCapture()
SendMessage(Me.Handle, WM_NCLBUTTONDOWN, SizeMoveConst, 0)
End If
End Sub
Private Function HitTest(MouseCoord As Point) As Cursor
Dim UpDownPos, LeftRightPos As Int16
If MouseCoord.X > Me.Width - BorderSize Then
LeftRightPos = 1
ElseIf MouseCoord.X < BorderSize Then
LeftRightPos = -1
End If
If MouseCoord.Y > Me.Height - BorderSize Then
UpDownPos = 1
ElseIf MouseCoord.Y < BorderSize Then
UpDownPos = -1
End If
If UpDownPos = 1 Then
If LeftRightPos = 1 Then
HitTest = Cursors.SizeNWSE
SizeMoveConst = HTBOTTOMRIGHT
ElseIf LeftRightPos = -1 Then
HitTest = Cursors.SizeNESW
SizeMoveConst = HTBOTTOMLEFT
Else
HitTest = Cursors.SizeNS
SizeMoveConst = HTBOTTOM
End If
ElseIf UpDownPos = -1 Then
If LeftRightPos = 1 Then
HitTest = Cursors.SizeNESW
SizeMoveConst = HTTOPRIGHT
ElseIf LeftRightPos = -1 Then
HitTest = Cursors.SizeNWSE
SizeMoveConst = HTTOPLEFT
Else
HitTest = Cursors.SizeNS
SizeMoveConst = HTTOP
End If
Else
If LeftRightPos = 1 Then
HitTest = Cursors.SizeWE
SizeMoveConst = HTRIGHT
ElseIf LeftRightPos = -1 Then
HitTest = Cursors.SizeWE
SizeMoveConst = HTLEFT
Else
HitTest = Cursors.SizeAll
SizeMoveConst = HTCAPTION
End If
End If
End Function
End Class

Fenstermanipulator bei transparentem Fenster.

Fenstermanipulator bei transparentem Fenster.

VB.NET-Quellcode

SoEinVBler schrieb:

SoEinVBler schrieb:

SoEinVBler schrieb:

VaporiZed schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

SoEinVBler schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Benutzer online 1

Tags

Ähnliche Themen

5 Benutzer haben hier geschrieben