|
Partner
|
|
|
VB-Startformular wechseln
Autor:
Hans-Joachim me0ner
|
Sprache:
VB.NET
|
Bewertung:
noch nicht bewertet
|
Anzahl der Aufrufe:
1614
|
Beschreibung:
Bei einer WinForms-Anwendung in VB and aktiviertem Framework wird beim Schlie0en des Startformulars die Anwendung geschlossen, wenn der Modus für das Herunterfahren auf "beim Schließen des Startformulars festgelegt ist. Dies ist dann nicht erwünscht, wenn das Startformular nur ein Anmeldungs- und/oder Auswahlmenüformular ist, das beim Starten des "Arbeitsformulars" geschlossen und lediglich beim Schließen des Arbeitsformulars wieder angezeigt werden soll.
Hier ein Hinweis für C#-Anwender: Das Snippet betrifft nur VB-Entwickler, weil Gegenstand des Snppets das VB-Anwendungsframework für Winforms-Anwendungen ist.
Die Klasse "Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase" enthält eine auslesbare und beschreibbare Eigenschaft "MainForm", die eben dieses Startformular enthält.
Eine Instanz einer von dieser Klasse abgeleiteten Klasse ist unter "My.Application" zugänglich. Leider ist aber die MainForm-Eigenschaft als "protected" deklariert und somit nicht direkt zugänglich.
Die Klassendefinition für My.Application kann in der Datei "Application.Designer.vb" eingesehen werden; dort befindet sie sich unter "Partial Friend Class MyApplication". Zwar darf diese Datei nicht von Hand editiert werden, weil die Klassendefinition als "Partial" definiert ist, kann sie in jeder sonstigen Code-Datei des Projekts ergänzt werden, wie folgt:
Abgelegt unter: Startformular, WinForms.
|
| Visual Basic |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
Namespace My
Friend Class MyApplication
Sub ChangeMainForm(NewMainForm As Form)
Me.MainForm = NewMainForm
End Sub
End Class
End Namespace
'Beispiel für die Verwendung:
'Aus dem Menü/Anmeldungsformular:
'Dies ist ein Fragment aus dem im Projekt festgelegten
'Startformular, das hier MenuForm genannt ist, aber
'beliebige Namen tragen kann.
'Friend Class MenuForm
'... (sonstiger Code)
' Sub StartWork()
' Dim working As New WorkingForm()
' 'Sonstiger Initialisierungscode
' Me.Hide()
' My.Application.ChangeMainForm(working)
' working.Show()
' Me.Close()
' End Sub
'... (sonstiger Code)
'End Class
'und umgekehrt:
'Friend Class WorkingForm
'... (sonstiger Code)
' Sub EndWork()
' Dim menue As New MenuForm()
' Me.Hide()
'Sonstiger Code zum Speichern und Aufräumen
' My.Application.ChangeMainForm(menue)
' menue.show()
' Me.Close()
' End Sub
'... (sonstiger Code)
'End Class
|
|
Kommentare:
(Zum Schreiben von Kommentaren bitte anmelden.)
|
|
Diese Snippets könnten für Sie interessant sein:
|
|
|
|
|
|
|
|
|