|
| |
VB.NET - Ein- und Umsteiger| Re: Form auf die unterste Ebene bringen und zurück | |  | | Autor: Hannibal | | Datum: 13.10.10 16:34 |
| Hab hier mal den Code von der Topmost Eigenschaft von Forms aus dem .Net Framework. Hier wird ebenfalls die SetWindowPos verwendet, werde allerdings auch nicht schlauer.
<DefaultValue(False), SRDescription("FormTopMostDescr"), SRCategory( _
"CatWindowStyle")> _
Public Property TopMost As Boolean
Get
Return (Me.formState.Item(Form.FormStateTopMost) <> 0)
End Get
Set(ByVal value As Boolean)
If Not Me.IsRestrictedWindow Then
If (MyBase.IsHandleCreated AndAlso Me.TopLevel) Then
Dim hWndInsertAfter As HandleRef = IIf(value, _
NativeMethods.HWND_TOPMOST, NativeMethods.HWND_NOTOPMOST)
SafeNativeMethods.SetWindowPos(New HandleRef(Me, _
MyBase.Handle), hWndInsertAfter, 0, 0, 0, 0, 3)
End If
If value Then
Me.formState.Item(Form.FormStateTopMost) = 1
Else
Me.formState.Item(Form.FormStateTopMost) = 0
End If
End If
End Set
End PropertyUnd hier die SetWindowPos Funktion auf dem Framework
<DllImport("user32.dll", CharSet:=CharSet.Auto, ExactSpelling:=True)> _
Public Shared Function SetWindowPos(ByVal hWnd As HandleRef, ByVal _
hWndInsertAfter As HandleRef, ByVal x As Integer, ByVal y As Integer, ByVal cx _
As Integer, ByVal cy As Integer, ByVal flags As Integer) As Boolean
End FunctionHat den keiner von euch schon mal eine Form auf die unterste Ebene also den Desktop gebracht. Die Topmost Funktion muss ja genauso arbeiten nur mit der obersten Ebene.
Gruß
Hannibal
_____________________________________________________
Programmieren ist heute ein Wettrennen zwischen Programmierern, die versuchen bessere und idiotensicherere Programme zu entwickeln und dem Universum, dass versucht bessere Idioten zu entwickeln | |
| Form auf die unterste Ebene bringen und zurück | | | | Autor: Hannibal | | Datum: 09.10.10 17:58 |
| Hallo,
brauche wieder eure Hilfe,
habe folgenden Code gefunden der mir eine Form auf die unterste Ebene, also den Desktop unter alle Fenster zu bringen.
Declare Function SetWindowPos Lib "user32.dll" (ByVal hwnd As IntPtr, ByVal _
hWndInsertAfter As Int32, _
ByVal x As Int32, ByVal y As Int32, ByVal cx As Int32, _
ByVal cy As Int32, ByVal wFlags As Int32) As Int32
Const SWP_NOSIZE As Int32 = &H1
Const SWP_NOMOVE As Int32 = &H2
Const SWP_NOZORDER As Int32 = &H4
Const SWP_NOACTIVATE As Int32 = &H10
Const SWP_DRAWFRAME As Int32 = &H20
Const SWP_SHOWWINDOW As Int32 = &H40
Const SWP_HIDEWINDOW As Int32 = &H80
Const HWND_TOPMOST As Int32 = -1 'bringt ein fenster an die oberste stelle
Const HWND_NOTOPMOST As Int32 = -2 'bringt ein fenster an die unterste
' stelle eines containers
Const HWND_BOTTOM As Int32 = 1 'bringt ein fenster an die unterste position
' aller fenster
Private Sub frmMain_GotFocus(ByVal sender As Object, ByVal e As _
System.EventArgs) Handles Me.GotFocus
SetWindowPos(Me.Handle, HWND_BOTTOM, 0, 0, 0, 0, SWP_NOMOVE Or _
SWP_NOSIZE)
End SubNun will ich dies mit einer Checkbox im Haupformular steuern können, doch eine einfache If Abfrage funktioniert nicht.
Private Sub frmMain_GotFocus(ByVal sender As Object, ByVal e As _
System.EventArgs) Handles Me.GotFocus
If frmHauptform.chkOnTopVordergrund.Checked = False Then
SetWindowPos(Me.Handle, HWND_BOTTOM, 0, 0, 0, 0, SWP_NOMOVE Or _
SWP_NOSIZE)
Else
SetWindowPos(Me.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or _
SWP_NOSIZE)
End If
End SubZumal ist mir auch nicht ganz klar wann GotFocus ausgeführt wird, klar "wenn das Steuerelement den Fokus erhält", aber wann ist das?
Habs schon mit Haltepunkten probiert aber in diesen Sub komme ich garnicht.
Wie bekomme ich also die zweite Form in den Vordergrund bzw. Hintergrund wenn in der Hauptform die Checkbox aktiviert bzw. deaktiviert ist?
Gruß
Hannibal
_____________________________________________________
Programmieren ist heute ein Wettrennen zwischen Programmierern, die versuchen bessere und idiotensicherere Programme zu entwickeln und dem Universum, dass versucht bessere Idioten zu entwickeln | |
| Re: Form auf die unterste Ebene bringen und zurück | | | | Autor: Hannibal | | Datum: 16.10.10 17:28 |
| Hi Dave,
vielen Dank, die Funktionen machen glaube ich das was ich gesucht habe.
Hier noch der Code aus dem Framework der beiden Funktionen
Public Sub SendToBack()
If (Not Me.parent Is Nothing) Then
Me.parent.Controls.SetChildIndex(Me, -1)
ElseIf (Me.IsHandleCreated AndAlso Me.GetTopLevel) Then
SafeNativeMethods.SetWindowPos(New HandleRef(Me.window, Me.Handle), _
NativeMethods.HWND_BOTTOM, 0, 0, 0, 0, 3)
End If
End SubPublic Sub BringToFront()
If (Not Me.parent Is Nothing) Then
Me.parent.Controls.SetChildIndex(Me, 0)
ElseIf ((Me.IsHandleCreated AndAlso Me.GetTopLevel) AndAlso _
SafeNativeMethods.IsWindowEnabled(New HandleRef(Me.window, Me.Handle))) _
Then
SafeNativeMethods.SetWindowPos(New HandleRef(Me.window, Me.Handle), _
NativeMethods.HWND_TOP, 0, 0, 0, 0, 3)
End If
End SubSendToBack, BringToFront und TopMost benutzen also auch die SetWindowPos Funktion, aber warum es nicht funktioniert wenn ich die SetWindowPos Funktion selbst deklariere und verwende ist mir ein Rätsel.
Ebenfalls verstehe ich immer noch nicht was es mit Me.GotFocus aufsich hat.
Gruß
Hannibal
_____________________________________________________
Programmieren ist heute ein Wettrennen zwischen Programmierern, die versuchen bessere und idiotensicherere Programme zu entwickeln und dem Universum, dass versucht bessere Idioten zu entwickeln | |
| Re: Form auf die unterste Ebene bringen und zurück | | | | Autor: Hannibal | | Datum: 19.10.10 18:46 |
| Hi Dave,
klar schaut man zuerst in die Hilfe, aber ein Blick in das Framework kann ja auch nicht schaden. Die Hilfe kann mir zwar sagen was gemacht wird aber nicht wie.
Zum Fokus,
bin heute zufällig bei einem Projekt in Excel in der Hilfe über das hier gestolpert
[u]Fokus
Die Fähigkeit, zu einem Zeitpunkt Mausklicks oder Tastatureingaben zu empfangen. In der Microsoft Windows-Umgebung kann nur ein einziges Fenster, ein einziges Formular oder ein einziges Steuerelement diese Fähigkeit zu einem gegebenen Zeitpunkt besitzen. Das Objekt, das "den Fokus besitzt", wird normalerweise durch eine hervorgehobene Überschrift oder Titelleiste angezeigt. Der Fokus kann vom Benutzer oder von der Anwendung gesetzt werden.
Denke das sollte für VB.Net noch genauso oder so ähnlich gelten.
Gruß und nochmal Danke
Hannibal
_____________________________________________________
Programmieren ist heute ein Wettrennen zwischen Programmierern, die versuchen bessere und idiotensicherere Programme zu entwickeln und dem Universum, dass versucht bessere Idioten zu entwickeln | |
 | 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 |
 |
|
TOP! Unser Nr. 1 
Neu! sevDataGrid 3.0
Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. Weitere InfosTipp des Monats Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
Mai 2024
Sie sind aktuell nicht angemeldet.