ein fenster seitlich aus und einfahren

mikeb69 · 3. Mai 2008, 13:11

hallo,

hier ein codebeispiel, wie man ein ein- und ausfahrendes fenster realisieren kann.
das ein - bzw. ausfahren hab ich in einen eigenen thread gepackt, um ein hängen der anwendung zu verhindern.

VB.NET-Quellcode

Imports System.ComponentModel
Public Class Form1
Private f As New Form
Private WithEvents bgw As New BackgroundWorker
Private ausfahren As Boolean = True
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
bgw.RunWorkerAsync(ausfahren)
If ausfahren = True Then ausfahren = False Else ausfahren = True
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
'bgw stoppen falls während des aus oder einfahrens die anwendung geschlossen wird
If bgw.IsBusy = True Then
bgw.CancelAsync()
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'borderstyle setzen
f.FormBorderStyle = Windows.Forms.FormBorderStyle.None
'backgroundworker einrichten
bgw.WorkerReportsProgress = True
bgw.WorkerSupportsCancellation = True
'fenster einrichten
f.Show()
f.Size = New Size(0, Me.Height)
f.Location = New Point(Me.Right, Me.Top)
End Sub
Private Sub Form1_LocationChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LocationChanged
'fester mitbewegen
f.Location = New Point(Me.Right, Me.Top)
End Sub
Private Sub bgw_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bgw.DoWork
'ein und ausfahrbewegung
Select Case e.Argument
Case True
For i As Integer = 0 To 100
'aktuelle position ausgeben
bgw.ReportProgress(i, i)
'warten, damit es auf allen cpu gleichschnell läuft
Threading.Thread.Sleep(20)
Next
Case False
For i As Integer = 100 To 0 Step -1
'aktuelle position ausgeben
bgw.ReportProgress(i, i)
'warten, damit es auf allen cpu gleichschnell läuft
Threading.Thread.Sleep(20)
Next
End Select
End Sub
Private Sub bgw_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bgw.ProgressChanged
'neue größe an das fenster weitergeben
f.Size = New Size(e.UserState, Me.Height)
End Sub
End Class

kommentare erwünscht

gruss

mikeb69

MrLee · 3. Mai 2008, 13:20

kuhl danke, funzt echt super^^

KillerVirus · 8. Juni 2008, 20:53

Ist wirklich klasse :), nur 2 kleine Dinge noch:

1. damit sich beim Ändern der Größe von Form1 auch das ausfahrbare Formblatt verändert, kann man das noch dazu setzen:

VB.NET-Quellcode

Private Sub Form1_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize
f.Location = New Point(Me.Right, Me.Top)
f.Height = Me.Height
End Sub

und in der Form1_Load Sub könnte man das noch einfügen:

VB.NET-Quellcode

f.ShowInTaskbar = False

2. Wenn man zwischendurch ein anderes Fenster in den Vorderfrund holt und danach wieder das eigene Programmfenster, ist die ausfahrbare Form natürlich unter dem anderen Fenster. Wie kann ich den z-Index vom ausfahrbaren Fenster dann wieder auf den vom Hauptfenster ±1 setzen? Ich habe es mit dem Activated-Event versucht, das funktioniert aber nicht wirklich gut und ist ziemlich unsauber.

Viele Grüße

KillerVirus

mikeb69 · 9. Juni 2008, 17:42

hallo killervirus,

an sich kannst du ein fenster mit

VB.NET-Quellcode

Me.BringToFront()

in der z-order ganz nach oben bringen.

wenn wir aber den vorliegenden code hernehmen, würde ein

VB.NET-Quellcode

f.Show(Me)

im Form_Load schon reichen

nachtrag:
wenn ich hier einen code poste ist das nie ein fertiges programm - eher ein gerüst
dieses muss natürlich entsprechend ausgebaut und angepasst werden.

aber - danke für deinen hinweis

gruss

mikeb69

KillerVirus · 9. Juni 2008, 18:38

Hallo,

danke für deine Hilfe, das habe ich gesucht =)

mikeb69 schrieb:

nachtrag:
wenn ich hier einen code poste ist das nie ein fertiges programm - eher ein gerüst
dieses muss natürlich entsprechend ausgebaut und angepasst werden.

Das ist mir klar, dennoch wollte ich es erwähnen, da es mir wichtig erschien.

Viele Grüße

KillerVirus

DJFloG · 14. November 2009, 16:40

Mmh also bei mir gehts nicht...

Hier:

VB.NET-Quellcode

'ein und ausfahrbewegung
Select Case e.Argument
Case True
For i As Integer = 0 To 100
'aktuelle position ausgeben
bgw.ReportProgress(i, i)
'warten, damit es auf allen cpu gleichschnell läuft
Threading.Thread.Sleep(20)
Next
Case Is False
For i As Integer = 100 To 0 Step -1
'aktuelle position ausgeben
bgw.ReportProgress(i, i)
'warten, damit es auf allen cpu gleichschnell läuft
Threading.Thread.Sleep(20)
Next

Bekomm ich n error (bei den Case True und Case False)

Fehler 1 "Option Strict On" lässt Operanden des Typs "Object" für den =-Operator nicht zu. Verwenden Sie den Is-Operator, wenn Sie die Objektidentität testen möchten. C:\Users\Florian\Documents\Visual Studio 2008\Projects\CCCrypt\CCCrypt\Form1.vb 273 18 CCCrypt
Fehler 2 "Option Strict On" lässt Operanden des Typs "Object" für den =-Operator nicht zu. Verwenden Sie den Is-Operator, wenn Sie die Objektidentität testen möchten. C:\Users\Florian\Documents\Visual Studio 2008\Projects\CCCrypt\CCCrypt\Form1.vb 280 18 CCCrypt

kevin89 · 14. November 2009, 16:45

"Is" weg und e.Argument von Typ Object in Boolean casten:

VB.NET-Quellcode

Private Sub bgw_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bgw.DoWork
Select Case CBool(e.Argument)
Case True
For i As Integer = 0 To 100
'aktuelle position ausgeben
bgw.ReportProgress(i, i)
'warten, damit es auf allen cpu gleichschnell läuft
Threading.Thread.Sleep(20)
Next
Case False
For i As Integer = 100 To 0 Step -1
'aktuelle position ausgeben
bgw.ReportProgress(i, i)
'warten, damit es auf allen cpu gleichschnell läuft
Threading.Thread.Sleep(20)
Next
End Select
End Sub

DJFloG · 14. November 2009, 16:53

OK... funzt =) aber: wie bekomm ichs hin dass er statt diesem komischen fenster was er da erzeugt ein eigenes, forgefertigtest nimmt (beispielweise form2)?

MfG

spaxi · 18. November 2009, 12:55

Falls es noch von Interesse ist: Ersetze doch mal die im Beispiel verwendete "Form f" durch deine Form

MfG

manuel87 · 22. Januar 2010, 23:45

Hallo zusammen,

erstmal ein herzliches Danke an mikeb69, der Code funktioniert super!

Bei folgendem Abschnitt habe ich allerdings etwas Schwierigkeiten:

Quellcode

Private Sub bgw_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bgw.ProgressChanged
'neue größe an das fenster weitergeben
f.Size = New Size(e.UserState, Me.Height)
End Sub

um genau zu sein in der Zeile

Quellcode

f.Size = New Size(e.UserState, Me.Height)

Mit dieser Zeile wird die Größe des sich hervorschiebenden Fensters definiert. In diesem Fall
richtet sich die Höhe des Fensters nach der Höhe der "Me".

Ich möchte allerdings die Größe des ausfahrenden Fensters bestimmen können.
Mit einem einfachen Size Code anstelle des Me.Height bekomme ich aber eine Fehlermeldung.

Wenn ich f.Size = New Size(e.UserState, Me.Height) herausnehme und stattdessen

Form3.Height = 270
Form3.Width = 300

verwende, bekomme ich zwar das gewünschte Fenster in der gewünschten Größe, es fährt aber nicht mehr
heraus sondern erscheint sofort komplett.

Außerdem habe ich noch eine weitere Frage:

wie erhöht man die Aus- und Einfahrgeschwindigkeit des Fensters?

Danke im Voraus
Gruß
Manuel

FAtheone · 23. Januar 2010, 16:17

1.

e.UserState ist ein Prozentwert (wieviel Prozent ausgefahren , 0..100)
Den kann man multiplizieren, um bei e.UserState = 100 die volle Größe zu haben

2.

Den Wert bei Threading.Thread.Sleep verändern bzw. die Schrittweite, indem In den For-Schleifen die 100 ersetzt wird.
ACHTUNG: Wenn 100 verändert wird, dann wird auch e.UserState sich verändern.

manuel87 · 23. Januar 2010, 17:59

ok Danke!

Cr4ckY · 15. Februar 2010, 14:02

Wenn ich statt "f.FormBorderStyle = Windows.Forms.FormBorderStyle.None" sowas hier benutze: "
f.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle", dann sieht man die 2. Form sofort nach dem Start und es fährt auch nicht mehr ein wenn ich den Button drücke? Erst wenn ich es wieder auf "none" setzte geht es wieder richtig

markushettmann · 15. Februar 2010, 22:07

Wie kann ich form f denn nach links ausfahren lasen

Mangafreak1995 · 16. Februar 2010, 15:05

also ich schreib hier jetzt keinen ganzen Code
aber das sollte dir weiterhelfen (es bezieht sich auf den vorhandenen Code von mike)

VB.NET-Quellcode

f.Size = New Size(e.UserState, Me.Height)
f.Left -= 1

NscMike · 2. Mai 2010, 12:35

Könnte mir wer helfen damit die Form nach links ausfährt??
Klappt bei mir nämlich ned
Ich hab den Code so umgeschrieben:

VB.NET-Quellcode

Imports System.ComponentModel
Public Class Form1
Private f As New Form
Private WithEvents bgw As New BackgroundWorker
Private ausfahren As Boolean = True
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
bgw.RunWorkerAsync(ausfahren)
If ausfahren = True Then ausfahren = False Else ausfahren = True
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
'bgw stoppen falls während des aus oder einfahrens die anwendung geschlossen wird
If bgw.IsBusy = True Then
bgw.CancelAsync()
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'borderstyle setzen
f.FormBorderStyle = Windows.Forms.FormBorderStyle.None
'backgroundworker einrichten
bgw.WorkerReportsProgress = True
bgw.WorkerSupportsCancellation = True
'fenster einrichten
f.Show()
f.Size = New Size(0, Me.Height)
f.Location = New Point(Me.Left, Me.Top)
End Sub
Private Sub Form1_LocationChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LocationChanged
'fester mitbewegen
f.Location = New Point(Me.Left, Me.Top)
End Sub
Private Sub bgw_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bgw.DoWork
'ein und ausfahrbewegung
Select Case e.Argument
Case True
For i As Integer = 0 To 100
'aktuelle position ausgeben
bgw.ReportProgress(i, i)
'warten, damit es auf allen cpu gleichschnell läuft
Threading.Thread.Sleep(20)
Next
Case False
For i As Integer = 100 To 0 Step -1
'aktuelle position ausgeben
bgw.ReportProgress(i, i)
'warten, damit es auf allen cpu gleichschnell läuft
Threading.Thread.Sleep(20)
Next
End Select
End Sub
Private Sub bgw_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bgw.ProgressChanged
'neue größe an das fenster weitergeben
f.Size = New Size(e.UserState, Me.Height)
f.left-=1
End Sub
End Class

Könnte mir wer bitte sagen wo noch was verändert werden muss?
danke im voraus
mfg Mike

Samus Aran · 2. Mai 2010, 14:44

If ausfahren = True Then ausfahren = False Else ausfahren = True

wtf.

SeriTools · 3. Mai 2010, 14:43

Lol. Einfach ausfahren = Not ausfahren xD

NscMike · 3. Mai 2010, 18:02

ne klappt irgendwie nicht...
trotzdem danke
sonst wer nen vorschlag?

spaxi · 3. Mai 2010, 18:17

NscMike schrieb:

ne klappt irgendwie nicht...
trotzdem danke
sonst wer nen vorschlag?

Hallo,

ändere mal deine 2 Events folgendermaßen um:

VB.NET-Quellcode

Private Sub bgw_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bgw.ProgressChanged
'neue größe an das fenster weitergeben
f.Size = New Size(e.UserState, Me.Height)
If ausfahren Then
f.Left += 1
Else
f.Left -= 1
End If
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
bgw.RunWorkerAsync(ausfahren)
ausfahren = Not ausfahren ' zur Vereinfachung ;)
End Sub

So sollte es jedenfalls klappen, falls nicht, sag Bescheid.

MfG, spaXi

ein fenster seitlich aus und einfahren

ein fenster seitlich aus und einfahren

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

mikeb69 schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Quellcode

Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

NscMike schrieb:

VB.NET-Quellcode

Ähnliche Themen

13 Benutzer haben hier geschrieben