Member of The Internet Defense League Creative Commons License
This work is licensed under a Creative Commons Attribution-NonCommercial-NoDerivatives 4.0 International License. Paris Koutsioukis | Visual Basic 6

Δημιουργία Περιηγητή με την μηχανή του mozilla για την vb6

                                  (Πολύ) Βασικές Λειτουργίες Ανοίγουμε την visual basic στο παράθυρο δημιουργίας νέου έργου και αφού επιλέξετε το standard exe (ή την επιλογή για εκτελέσιμο αρχείο). Μετά κάνουμε κλικ στο μενού project και µετά επιλέγουμε την επιλογή components. Στο νέο εμφανιζόμενο παράθυρο που θα εμφανιστεί ψάξτε και επιλέξτε το mozilla control 1.0 (στο διπλά κουτί επιλογής να είναι επιλεγμένο) αφού επιλέξετε άλλα αντικείμενα που επιθυμείτε (όπως το tab strip -κάπως έτσι ονομάζεται , θα χρειαστεί για τη δημιουργία της περιήγησης σε καρτέλες).πατήστε στο οκ. Αφού προσθέσατε το (ή τα αντικείμενα ) που επιθυμείτε πατήστε στο κουμπί στην αριστερή εργαλειοθήκη με τα εισαγόμενα αντικείμενα βρείτε το mozilla control και πατήστε σε αυτό, μετά σχεδιάστε το όσο μεγάλο θέλετε. Τώρα µεταβειτε ,έχοντας το επιλεγμένο ,στο παράθυρο ιδιοτήτων του γράψτε ένα όνομα στο αντικείμενο (π.χ. MBrowser)µεταβειτε την ιδιότητα index του ιδίου αντικειμένου και βάλτε την τιμή 0 (αυτό χρειάζεται αν θέλετε να κάνετε τους ιστο χώρους να ανοίγουν και σε καρτέλες) Μετά εισάγετε ένα κουμπί για την κάθε εντολή(αρχική , πίσω , μπρος , παύση , ανανέωση ) Δώστε τους τα καταληλα ονόματα . Κάντε κλικ στο µενού project και επιλέξετε στην επιλογή module. Στο νέο εμφανιζόμενο παράθυρο επιλέξετε την µονή επιλογή που έχει και πατήστε στο οκ. Μεταβείτε στον διαχειριστή έργου και πατήστε στον σταυρό που ßρίσκετε κοντά στις modules µετά κάντε διπλό κλικ στην προς το παρόν άδεια module και γράψτε το παρακάτω κομμάτι κώδικα , µπορείτε να ονομάσετε την συνάρτηση όπως θέλετε. Sub Arxiki (selctedtab as long,EnMbrowser as object)   If enmbrowser is nothing then exit sub   If selctedtab >0 then   Enmbrowser.mbrowser(selctedtab -1).gohome   Else   Exit sub   End if   End sub Επεξήγηση του παραπάνω κώδικα: Selectedtab θα είναι ο αριθμός της καρτέλας (ο οποίος αρχίζει από ένα, σε αντίθεση από τα πιο πολλά αντικείμενα που το index τους αρχίζει από το 0). Επίσης η μεταβλητή που διλώσαμε σαν αντικείμενο η EnMBrowser θα φιλοξενεί την κάθε φόρμα απο την οποία θα κληθει η συνάρτηση. Πάμε μετά την εντολή end sub και γράφουμε το παρκάτω κομάτι κώδικα. Sub Piso (SelectedTab as long,EnMBrowser as object)   if enmbrowser is nothing then exit sub ' Ελεγχός αμα το αντικείμενο enmbrowser ειναι κενό.   If selectedtab > 0 then   enmbrowser.mbrowser(selectedtab-1).goback   else   exit sub   end if   end sub Το παραπάνω κομμάτι κώδικα οπώς το αποκαλύπτει η ονομασία του στέλνει στο αντικείμενο με την ονομάσια mbrowser(selected-1) εντολη για μετάβαση στην προηγούμενη σελίδα. Η 1η γραμμη του κώδικα ελέγχει να η μεταβλητή ειναι κενή, αν ειναι κενή σταματάει, αν δεν ειναι συννεχίζει. Η 3η γραμμή ελέγχει αν η μεταβλητή selectedtab ειναι θετική και μεγαλήτερη απο το 0. Αν είναι θετική μετβαίνει στην επόμενη εντολή και στέλνεται η εντολή στο αντικείμενο mbrowser(selectedtab-1) την εντολη να μεταβει στην προηγουμενη σελίδα . Διαφορετικά πάει 3 γραμμές παρακάτω και ακυρώνει την εντολή που θα στέλνει ο χρήστης μέσο της παρούσας συνάρτησης. Sub mpros(selectedtab as long, enmbrowser as object)   if enmbrowser is nothing then exit sub   if selectedtab > 0 then   enmbrowser.mbrowser(selectedtab-1).goforward   else   exit sub   end if   end sub Η παραπάνω συνάρτηση είναι ίδια όπως η προηγούμενη το μονο που διαφέρει είναι το όνομα και η γραμμή enmbrowser.mbrowser(selectedtab-1).goforward η οποία διατάζει το mbrowser(selectedtab-1) να μεταβεί στην επομενη σελίδα που επισκεπτήκατε(αν είχατε χρησιμοποιησει το πληκτρο που μεταβαίνει στην προηγούμενη σελίδα.) Τώρα ας κάνουμε την συνάρτηση η οποία θα σταματάει το φόρτωμα της σελίδας (εγω την ονομάζω paysi εσεις ονομάστε την οπως θέλετε). Ο κώδικας θα είναι ίδιως οπως και τα ορίσματα της παρούσας συνάρτησης η μονη διαφορά που υπάρχει είναι οτι αντι για enmbrowser.mbrowser(selectedtab-1).goforward θα πρέπει να γράψετε enmbrowser.mbrowser(selectedtab-1).stop Η δημιουργία της επόμενης εντολής η οποία θα κάνει την ανανέωση(ή αλλιως την επαναφόρτηση) της ίστιο σελίδας. Ομοίως η παρούσα συνάρτηση έχει ομοιώτητες με τις προηγούμενες απλώς έχει στην 4η σειρά την εντολή enmbrowser.mbrowser(selectedtab-1).refresh2 .  This work is licensed under a Creative Commons Attribution-NonCommercial-NoDerivs 3.0 Unported License.

Έλεγχος Ύπαρξης Αντικειμένου με την vb6.

Πολλές φορές χρειάσθηκε να κάνουμε έναν πίνακα από αντικείμενα σε μια φόρμα για να κάνουμε την ζωή μας πιο εύκολη. Σε αυτόν τον πίνακα όταν προσθέταμε ένα νέο αντικείμενο ή όταν το χρησιμοποιούσαμε δεν υπήρχε κανένα πρόβλημα. Το πρόβλημα που δημιουργούνταν από την στιγμή που σβήναμε ένα στοιχείο του πίνακα που δεν ήταν το τελευταίο άλλα είτε ήταν στο ενδιάμεσο είτε στην αρχή του πίνακα. Το πρόβλημα αυτό αν και φαίνεται δύσκολο στο να το λύσεις, λύνεται με την δημιουργία μιας συνάρτησης η οποία θα δέχεται σαν όρισμα ένα αντικείμενο το οποίο θα προσπαθεί να το χρησιμοποιήσει με κάποιον τρόπο (π.χ. να ελέγξει αν η ιδιότητα visible είναι true) και με έλεγχο ύπαρξης του σφάλματος με κωδικό αριθμό 340 να επιστρέφει κάποια τιμή (π.χ. εδώ επιλέγω να επιστρέφει είτε true είτε false). Ας πάμε στον κώδικα: Function ElenxosAntikeimenou(antikeimeno As Object) As Boolean Dim DenYparxei As Boolean On Error GoTo Error DenYparxei=false antikeimeno.Visible = True Error: If Err.Number = 340 Then DenYparxei = True Else DenYparxei = False End If ElenxosAntikeimenou = DenYparxei End Function Ορίζουμε μια μεταβλητή boolean. Μετά λέμε με την γραμμή On Error GoTo Error στο πρόγραμμα να τρέξει στο Error (τον χείριστη σφαλμάτων) οπού εκεί γίνεται η κυρίως δουλεία του προγράμματος. Η γραμμή antikeimeno.Visible = True προσπαθεί να εμφανίσει το αντικείμενο που δίνουμε σαν όρισμα στην συνάρτηση. Αν δεν υπάρχει επιστρέφει true ενώ false αν συμβεί οποιοδήποτε άλλο σφάλμα ή επιστρέφει false αν δεν συμβεί κάποιο σφάλμα.This work is licensed under a Creative Commons Attribution Non-commercial No Derivatives license.