οκ κανε κατι ποιο απλο,
ανοιξε τα properties tou project σου στην πρωτη καρτελα "application" πατα το "view application events"
εκει μεσα θα γραψουμε κωδικα στο event startup και θα κανουμε τον ελεγχο με το που ξεκινα η εφαρμογη. Εγω σου φτιαχνω για τις αναγκες του παραδειγματος ενα απλο inputbox οπου θα δωσεις "a" ή "b" και αναλογα θα θταξω στα γρηγορα 2 φορμες και θα τις ανοιξω, εσυ απλα καλεσε απο εκει με τον ιδιο τροπο οποια φορμα σε ενδιαφερει.
τον ελεγχο για τον κωδικο δεν ξερω πως ακριβως τον κανεις τωρα (αν εχεις καποια φορμα κτλ) αλλα σιγουρα θα μπορεσεις να φτιαξεις κατι εκει μεσα να κανεις τον ελεγχο.
λογικα θα εχεις ενα αποτελεσμα σαν το ακολουθω μεσα στα properties:
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
| Namespace My
' The following events are available for MyApplication:
'
' Startup: Raised when the application starts, before the startup form is created.
' Shutdown: Raised after all application forms are closed. This event is not raised if the application terminates abnormally.
' UnhandledException: Raised if the application encounters an unhandled exception.
' StartupNextInstance: Raised when launching a single-instance application and the application is already active.
' NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected.
Partial Friend Class MyApplication
Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
Dim aaa As String = InputBox("dose a or b na deis diafora", "title me")
If aaa = "a" Then
Dim form1 As New Form
form1.Text = "FORM1"
form1.Show()
Else
Dim form2 As New Form
form2.Text = "form2"
form2.Show()
End If
End Sub
End Class
End Namespace |
goodluck i hope it helps
Υ.Γ αν θες ντε και καλα να ανοιγεις μια φορμα οπως η splah screen γιατι εκει κανεις τον ελεγχο για τον κωδικο, τοτε ξεδήλωσε την απο τις ιδιοτητες να μην ειναι sc και καλεσε την απο δω! (παραπανω)
φτιαξε και μια μικροσκοπικη φορμα και βαλε αυτη ως startup και δωσε visible=false και με το που την ανοιγεις βαλε κωδικα μεσα της να κλεινει αυτοματα αμεσως. απλα μην εχεις ωρισει να τερματιζεται η εφαρμωγη με την πρωτη φορμα. καλητερα με την τελαυταια που θα κλεινεις,
This Business Is Binary. You are a 1 or a 0. Alive or Dead.-