Venus AUEB Forum

Θέλω να κάνω κάτι το πολύ απλό (τουλάχιστον στην vb 6.0 ήταν) αλλά δεν μπορώ. Έχω 2 φόρμες. Όταν ξεκινάει το πρόγραμμα ανοίγουν και οι 2 μαζί. Ο κώδικας για να ανοίξουν βρίσκεται μέσα στην Sub Main και είναι
Dim f1 as new Form1()
Dim f2 as new Form2()
f1.show()
f2.showDialog()
H f2 είναι μια modal form και έχει ενα button το οποίο όταν το πατάω θέλω να κλείνει την f2 και να μένει μόνο η f1.Πώς μπορεί να γίνει αυτό?

Στο event click του button της f2 γιατί δεν βάζεις να εκτελείται η f2.close() ? (κάπως έτσι ελπίζω να λέγεται μιας και έχω αρκετό καιρό να δω VB...)

Δεν παρέχεται η f2.close γιατί το f2 είναι ένα αντικείμενο της form2 το οποίο έχει δηλωθεί μέσα στην Sub Main και έτσι δεν το βλέπει. Στην VB 6.0 αν θυμάμαι καλά μπορούσαμε να πάμε κατευθείαν μέσα στον event click του button στην form2 και να πούμε form2.close αλλά αυτό δεν παρέχεται (ή εκτός και αν κάνω εγώ κανένα λάθος και δεν το βλέπω). Το άλλο που δοκίμασα είναι να πάω στο module που υπάρχει η Main και να ορίσω μια συνάρτηση closeForm η οποία θα έχει σαν κώδικα f2.close (το f2 το έχω ορίσει σαν αντικείμενο μέσα στο module) οπότε μπορώ μέσα στο event click να καλέσω όνομα_module.closeForm και φυσιολογικά θα έπρεπε να μου κλείνει μόνο την f2 και να μου αφήνει την f1,αλλά αυτό τις κλείνει και τις 2 και το πρόγραμμα σταματάει να τρέχει

Δεν υπάρχει κάτι του στυλ me.hide() ώστε να το βάλεις μέσα την f2?

Δεν δουλεύει.....Και πάλι κλείνουν και οι 2 φόρμες. Δεν ξέρω μήπως μπλέκονται τα πράγματα επειδή ανοίγω την f2 με showDialog, μήπως θέλει άλλη διαδικασία για να κλείσει.

Α το βρήκα!!! Μέσα στο event του Button βάλε Unload Me!

To unload Me το υποστηρίζει η 6.0 αλλά όχι η .net. Αντι του unload υπάρχει η συνάρτηση close στην .net αλλά όταν την χρησιμοποιώ κλείνει και τις 2 φόρμες.

Φτου! Κάνε κάτι άλλο... Άνοιξε ένα manual μιας και τα πιο κλασικά τα δοκίμασες

Αυτό κάνω...Έχω ψάξει όλα τα βιβλία που έχω και τώρα ψάχνω στο internet....Και το θέμα είναι ότι το χρειάζομαι για μια απαλλακτική που έχω πάρει σε .NET, οπότε πρέπει να το βρώ οποσδήποτε. Σε ευχαριστώ πάντως

Μου μυρίζει Γιαννακουδάκης ή κάνω λάθος;

Το πέτυχες.Επειδή εγώ να κάτσω να τον διαβάσω για να τον περάσω δεν υπάρχει περίπτωση είπα να πάρω απαλλακτική.....Σε γενικές γραμμές πάντως είναι καλή γιατί έχω μάθει αρκετά πραγματα (και τώρα κόλλησα στο εύκολο)

Για κοίτα καιεδώ και καλό κουράγιο....

Επιτέλους το βρήκα (βασικά σχεδόν ίδιο με αυτά που έκανα ήταν αλλά τωρα δούλεψε!!!!!!). Λοιπόν ο κώδικας για την form1 είναι
Dim frm As Form2
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
frm = New Form2()
Me.Show()
frm.ShowDialog()

End Sub

και για την form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
Ethel ευχαριστώ και πάλι......

Άντε επιτέλους λύθηκε! Τίποτα! καλή συνέχεια....