[ Active X Controls ] Tool bar

[mikekal1oo]

Θα ήθελα να προσθέσω μια tool bar στην κεντρική μου φόρμα.Έχω κατεβάσει ένα παράδειγμα από εδώ,αλλά δεν γνωρίζω πώς θα δώσω εντολές σε κάθε κουμπί να κάνει κάτι συγκεκριμένο....π.χ.να ανοίγει μια φόρμα.Σας ευχαριστώ

[alex]

Μιιχάλη Καλημέρα!!!!!

Για να εισαχθεί όπως γράφεις μενού στην φόρμα χρειάζονται 2 στοιχεία ελέγχου ένα να εμφανίζει το μενού και ένα να αλλάζει τις εικόνες.
Το παιγνίδι όλο παίζει και στα 2 στοιχεία ελέγχου απο την ιδιότητα προσαρμοσμένο.Παίξε λίγο με αυτά.
Για να δώσεις εντολή θέλει νομίζω ότι κάπως έτσι θα βάλεις τον κώδικα ΠΧ.

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

Debug.Print Button.Index

End Sub

ή

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

If Button.Index = 1 Then

MsgBox "Thanks for using my program"

Unload Me

End

End If

End Sub

Μέσα από τις ιδιότητες κάθε κουμπί έχει index αριθμό βάση αυτού θα γράψεις κώδικα ανάλογα σε τι αναφέρεται το κάθε κουμπί.

Καλή συνέχεια

Φιλικά/Αλέξανδρος

[alex]

Μιχάλη !!!
Μπορείς να αλλάξεις και background και χρώμα στο μενου

Option Explicit

Private Sub Form_Load()
    ApplyChanges
End Sub

Private Sub ApplyChanges()
    Dim LngNew As Long
    
    'Χρησιμοποίησε εικόνα με  FLAT TB (Toolbar1)
    LngNew = CreatePatternBrush(Picture1.Picture.Handle) 'Δημιουργεί το φόντο από μια Εικόνα Picture Handle
    ChangeTBBack Toolbar1, LngNew, enuTB_FLAT
    
    '΄Αλλαξε το Backcolor to STANDARD TB (Toolbar2)
    LngNew = CreateSolidBrush(RGB(240, 120, 120))        'Δημιουργεί το φόντο από ένα χρώμα (Long)
    ChangeTBBack Toolbar2, LngNew, enuTB_STANDARD
    
    'Screen Refresh για να δείτε τις αλλαγές
    InvalidateRect 0&, 0&, False
End Sub

Private Sub Toolbar1_Click()

End Sub

Αν γνωρίζει κάποιος με περισσότερη εμπειρία ας κάνει κάποια πρόταση.
Ελπίζω να πήρες κάποιες ιδέες.

Φιλικά/Αλέξανδρος

[mikekal1oo]

Αλέξανδρε ευχαριστώ για την βοήθειά σου.Απλά δεν μπορώ να βρω που θα βάλω τον κώδικα.Στο event της toolbar δεν έχει κάπου την εντολή on click.Αν μπορείς βοήθεισέ με που να βάλω τον κώδικα.Νάσε καλά

[alex]

Μιχάλη!!
Πάρε αυτό
Αλέξανδρος

[mikekal1oo]

Αλέξανδρε τι αρχείο είναι αυτό.Δεν μου βγάζει κάτι.Δεν μπορώ να το δω.Συγνώμη αν ενοχλώ.
................Μόλις το άνοιξα αλλά πάλι δεν μπορώ να βρω που έχεις βάλει τον κώδικα.Σε κάποια event της toolbar η της φόρμας.
................Άκυρο,ημιανάς......... ..Το κατάφερα.Καλό Πάσχα

[alex]

Μιχάλη!!
Σου στέλνω το σωστό.
Αλέξανδρος

[alex]

Μιχάλη!!!

Δες την βάση αυτή με το ποντίκι στο μενού μιας και είναι στη φάση αυτή.

Φιλικά/Αλεξανδρος