Hey Leute ;D
mikeb69 aus vb-paradise hat einen schönen Code gepostet
Der Code ermöglicht uns eine zweite form hinter der Main Form auszufahren
Code:
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
Was ihr dazu braucht
eine Form eure Haupt Form
und 1 Button
---
Ihr könnt das auch per Timer machen.
einen Timer hinzufügen und
der Code vom Button 1 hin den Timer hauen
Hänge euch auch ein Beispiel dran
---
Ihr könnt auch die Farbe des genarierten Form's ändern
z.B
f.BackColor = Color.Black
Nein ich weißt auch gerade nicht bei welchem Programm ich das gesehen habe
Also ich versuch es noch einmal zu beschreiben
Es sieht so auf das wenn man Doppelklich oben auf die Form machen wo Auch _ [] X
ist fährt es sich auf dem Desktop nach links weg soweit das nur noch ein kleiner Rand
(Der Zum verändern der Größe des Programms) zu sehen ist.
Macht man da ein Doppelklick drauf taucht das Programm wieder auf.
An sich mit einem Timer umsetzbar nur soll das auch nicht leggen pder buggen wie
der Aufblende modus
Nimm doch einfach das Beispiel vom 1. Beitrag und passe es an deine Wünsche an..dann wird da auch nichts ruckeln..wie du die Position des Fensters veränderst, weißt du ja hoffentlich. Das ganze noch mit einer Schleife und fertig.
BR FENSTER 08/04/2011 - S4 League - 20 Replies ICH KANN ES NICHT MIT ESC SCHLIEßEN.
Ich mache erst diesen trainer hack and und dann öffne nicht denn launcher logg mich ein und dann kommt br und esc geht nicht!
HILFE
[Mod] Log-In Fenster 03/13/2011 - Wolfteam - 31 Replies Hallo leute hab hier mal ein Log_in fensterMod ;D (selber gemacht )
Bild:http://picload.org/image/adlioi/fgdfg.png
Download: hier könnt ihr es downloaden
Vt:Hier die Virustotal 0/43
NPC fenster 05/20/2010 - Last Chaos - 1 Replies hi wisst ihr ob man bzw. wie man es verhindern kann, das die NPC fenster sich wieder schliesst wenn man vom npc weggeht?
WoW Fenster 05/01/2006 - World of Warcraft - 6 Replies Also wenn das Spiel läuft ist ja ein Fenster offen und wenn man in die Leiste geht steht bei dem Fenster ja "WORLD OF WARCRAFT"
Gibts ne Möglichkeit das in "Microsoft Word" (bsp. ^^) umzubenennen?
DOS-Fenster 12/17/2005 - Technical Support - 9 Replies kein plan ob das nen wirklicher fehler ist, oder nur so eingestellt.. jednfalls schließt sich jedes dos fenster automatisch wieder sofort.. also meinetwegn wenn ich sone .exe starte wo sichn dos-fenster öffnet un dort text enthaltn is den ich lesn will, komm ich nicht dazu, weil sich das fenster automatisch sofort wieder schließt
Wie kann ich dies denn umstelln, sodass des fenster offn bleibt ?
![[VB.NET] ein Fenster seitlich aus und einfahren](https://www.elitepvpers.com/forum/iconimages/coding-tutorials/vb-net-ein-fenster-seitlich-aus-und-einfahren_ltr.gif){kind=small}
