Πρώτα Βήματα - Desktop Applications

Απ: Αλλαγή "Startup frm " σε "Run time"

sharizanis — Mon, 25 May 2009 16:19:58 GMT

Johnnyxp64:
οκ κανε κατι ποιο απλο,

ανοιξε τα 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 και με το που την ανοιγεις βαλε κωδικα μεσα της να κλεινει αυτοματα αμεσως. απλα μην εχεις ωρισει να τερματιζεται η εφαρμωγη με την πρωτη φορμα. καλητερα με την τελαυταια που θα κλεινεις,

Σ' ευχαριστώ για τη βοήθεια

το προβλημα μου έχει επιλυθεί!!

Απ: Αλλαγή "Startup frm " σε "Run time"

Johnnyxp64 — Mon, 25 May 2009 06:40:28 GMT

οκ κανε κατι ποιο απλο,

ανοιξε τα properties tou project σου στην πρωτη καρτελα "application" πατα το "view application events"

εκει μεσα θα γραψουμε κωδικα στο event startup και θα κανουμε τον ελεγχο με το που ξεκινα η εφαρμογη. Εγω σου φτιαχνω για τις αναγκες του παραδειγματος ενα απλο inputbox οπου θα δωσεις "a" ή "b" και αναλογα θα θταξω στα γρηγορα 2 φορμες και θα τις ανοιξω, εσυ απλα καλεσε απο εκει με τον ιδιο τροπο οποια φορμα σε ενδιαφερει.

τον ελεγχο για τον κωδικο δεν ξερω πως ακριβως τον κανεις τωρα (αν εχεις καποια φορμα κτλ) αλλα σιγουρα θα μπορεσεις να φτιαξεις κατι εκει μεσα να κανεις τον ελεγχο.

λογικα θα εχεις ενα αποτελεσμα σαν το ακολουθω μεσα στα properties:

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 και με το που την ανοιγεις βαλε κωδικα μεσα της να κλεινει αυτοματα αμεσως. απλα μην εχεις ωρισει να τερματιζεται η εφαρμωγη με την πρωτη φορμα. καλητερα με την τελαυταια που θα κλεινεις,

Απ: Αλλαγή "Startup frm " σε "Run time"

sharizanis — Sun, 24 May 2009 20:11:54 GMT

Johnnyxp64:

Γεια σου φιλε,

θες αν καταλαβα σωστα απλα αναλογα με το ποιος μπαινει στην εφαρμογη μεσα απο την splashscreen να καλεις μια διαφορετικη φόρμα.

αν και δεν μας λες το λογο δεν βρισκω τροπο να κανεις ακριβως αυτο αλλα απλα φτιαξε μεσα σε μια κλαση-φορμα την μεθοδο MAIN() και γραψε εκει μεσα οτι κωδια για ελεγχους θες και ορισε αυτη την μεθοδο ως startup,

μεσα στον κωδικα σου μπορεις να καλεσεις την επομενη φορμα ως application.run(formname).

καλο θα ηταν να δωσεις περισσοτερες πληφοροριες για τον τελικο σου στοχο να σε βοηθησουμε καλητερα παντος.

Θέλω συγκεκριμένα μετά από τη "Splash screen" άν υπάρχει κωδικός πρόσβασης να ξεκινάει η εφαρμογή με τη "Form1"( Φόρμα εισαγωγής κωδικού πρόσβασης)

και άν δέν υπάρχει κωδικός πρόσβασης να ξεκινάει η εφαρμογή με τη "Form2"

Όσο για τη μεθοδο MAIN() νομίζω πως θα μου λήσει το πρόβλημα μου αλλα δεν γνωρίζω τον τρόπο ορίσμού της ως μεθοδο ως startup (στη VB 2005)

Απ: Αλλαγή "Startup frm " σε "Run time"

Johnnyxp64 — Sun, 24 May 2009 17:50:23 GMT

Γεια σου φιλε,

θες αν καταλαβα σωστα απλα αναλογα με το ποιος μπαινει στην εφαρμογη μεσα απο την splashscreen να καλεις μια διαφορετικη φόρμα.

αν και δεν μας λες το λογο δεν βρισκω τροπο να κανεις ακριβως αυτο αλλα απλα φτιαξε μεσα σε μια κλαση-φορμα την μεθοδο MAIN() και γραψε εκει μεσα οτι κωδια για ελεγχους θες και ορισε αυτη την μεθοδο ως startup,

μεσα στον κωδικα σου μπορεις να καλεσεις την επομενη φορμα ως application.run(formname).

καλο θα ηταν να δωσεις περισσοτερες πληφοροριες για τον τελικο σου στοχο να σε βοηθησουμε καλητερα παντος.

Απ: Αλλαγή "Startup frm " σε "Run time"

sharizanis — Sun, 24 May 2009 05:55:37 GMT

nikolaosk:

δεν κατάλαβα ....

τί είναι το Startup frm? το caption της φόρμας? το όνομα της φόρμας?

"Sori" 'Οχι "Startup frm" αλλά "Startup Form" και είναι η ιδιώτητητα που πέρνει σαν τιμή τo όνομα της φόρμα με την οποία ξεκινά το " Project"

Απ: Αλλαγή "Startup frm " σε "Run time"

nikolaosk — Sun, 24 May 2009 03:30:32 GMT

δεν κατάλαβα ....

τί είναι το Startup frm? το caption της φόρμας? το όνομα της φόρμας?

Αλλαγή "Startup form " σε "Run time"

sharizanis — Sat, 23 May 2009 23:05:12 GMT

Πώς θ' αλάξω την τιμή της ιδιότητα "Startup frm" σε ένα Project ( Γράφω σε VB 2005 ) σε χρόνο "run time"

Συγκεκριμένα ( μέσα από μια διαδικασία της " Splash screen " , όταν για παράδειγμα υπάρχει κωδικός πρόσβασης, ή το αντίθετο.)