|
| Autor |
Nachricht |
DFJ_
Poster
Anmeldedatum: 15.10.2007
Beiträge: 156
|
OutBar von sev wie button click auswerden
Verfasst am: 15.01.2008, 17:11 |
|
|
Hallo, ich habe eine outbar mit sevoutbar gemacht und mit coolxp outbar
nun die buttons oder icons bekomme ich natürlich rein aber wie kann man jetzt die icons oder buttons zu einer akiton bewegen also z.b das bei klicken auf den button einstellung ein auktion bassiert.
bei standart commanbutton ist ja klar aber wie geht das in der outbar ?
weiß jemand das ?
gruß
DFJ
Spam bot
Zuletzt bearbeitet von DFJ_ am 18.01.2008, 12:57, insgesamt einmal bearbeitet |
|
| |
|
 |
ZiG_
Überflieger
Anmeldedatum: 07.03.2007
Beiträge: 1248
|
Verfasst am: 15.01.2008, 18:04 |
|
|
SevOutbar hab ich grad nicht installiert, aber die CoolXP Outbar.
Ist aber ziemlich sicher sehr ähnlich.
Bei der CoolXP ... gibts einen xpOutBar1_ItemDown Event.
Da bekommst du die Nummern des Buttons usw. zurück, der geklickt wurde.
Also per Select Case auswerten was gedrückt wurde.
Bei Sev ist das nicht anders.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde) |
|
| |
|
|
DFJ_
Poster
Anmeldedatum: 15.10.2007
Beiträge: 156
|
Verfasst am: 15.01.2008, 18:19 |
|
|
mh irgend wie bin ich zu doof 
es gibt item click aber wie ich das verwenden soll kein plan
| Zitat: |
ItemClick-Ereignis
Beschreibung:
Wird beim Klick auf eines der Gruppen-Elemente ausgelöst.
Syntax:
Private Sub OutBar1_ItemClick (ByVal Group As Long, ByVal Item As Long, Button As Integer)
Die Syntax des ItemClick-Ereignisses besteht aus folgenden Teilen:
Parameter
Group Gruppe, in der sich der Menüeintrag befindet.
Item Index des Symbols der Menügruppe.
Button Zeigt an, welche Maustaste gedrückt wurde. Hierbei hat Button den Wert 1 (vbLeftButton), wenn die linke Maustaste gedrückt wurde bzw. den Wert 2 (vbRightButton), falls die rechte Maustaste gedrückt wurde.
Anmerkung:
Das ItemClick-Ereignis wird auch dann ausgelöst, wenn der Eintrag nicht durch den Anwender (Mausklick), sondern durch Setzen der ItemCur-Eigenschaft oder durch Setzen der Checked-Eigenschaft des Item-Objekts ausgewählt wurde.
Über den Parameter Button können Sie abfragen, ob der Anwender mit der linken oder mit der rechten Maustaste auf das Bildsymbol geklickt hat.
|
Spam bot |
|
| |
|
|
ZiG_
Überflieger
Anmeldedatum: 07.03.2007
Beiträge: 1248
|
Verfasst am: 15.01.2008, 18:54 |
|
|
Ich hab schon geschrieben das es xpOutBar1_ItemDown heißt.
Das ist die bessere Wahl als ItemClick
Edit//
Falls du es noch nicht geschafft hast.
Group gibt dir den Index zurück, in welcher Group der geklickt Button ist.
Und Item einfach den Button Index.
Kannst du alles einfach per Select case abfragen.
Wenn du willst auch per If.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde) |
|
| |
|
|
DFJ_
Poster
Anmeldedatum: 15.10.2007
Beiträge: 156
|
Verfasst am: 18.01.2008, 12:54 |
|
|
also ich habe das so jetzt gemacht bei sev
| Code: |
Private Sub OutBar1_ItemClick(ByVal Group As Long, ByVal Index As Long, Button As Integer)
If Button = vbLeftButton Then
Select Case 22 ' das ist der keyname der groupe von mir
Case pl_personlichemenü ' so heißt der key des buttons
Frame1.Caption = "hallo"
End Select
End If
End Sub
|
funktioniert nicht
was mache ich falsche ;(
Spam bot |
|
| |
|
|
ZiG_
Überflieger
Anmeldedatum: 07.03.2007
Beiträge: 1248
|
Verfasst am: 18.01.2008, 13:25 |
|
|
Mit Select Case hast du dich wohl noch nie befasst.
Außerdem kann man was ich gesehen habe den Gruppen bzw. den Items keinen Key zuweisen.
Und es wird auch kein key im Event übergeben sondern nur der Index.
Du könntest dir aber Konstanten erstellen stattdessen.
| Code: |
Private Sub OutBar1_ItemClick(ByVal Group As Long, ByVal Index As Long, Button As Integer)
If Button = vbLeftButton Then
Select Case Group
Case 1 ' Index der Gruppe nehmen
select case Index
case 1 ' Richtigen Index nehmen
Frame1.Caption = "hallo"
end select
End Select
End If
End Sub
|
Du kannst auch einfach If Abfragen nehmen statt dem zweiten select case.
Das erste würde ich lassen, da es übersichtlicher ist.
| Code: |
Private Sub OutBar1_ItemClick(ByVal Group As Long, ByVal Index As Long, Button As Integer)
If Button = vbLeftButton Then
Select Case Group
Case 1 ' Index der Gruppe nehmen
If Index = 1 then ' Richtigen Index nehmen
Frame1.Caption = "hallo"
Elseif Index = 2 then
'...
End if
End Select
End If
End Sub
|
Zu guter letzt habe ich jetzt noch entdeckt, dass bei dem Event garkeine Variable "Button" übergeben wird.
Einfach selbst hinzufügen kannst du das nicht.
Also scheitert es schon an der Abfrage ob die linke Maustaste gedrückt wurde.
Und ich sags gerne nochmal. Nimm lieber das ItemDown oder MouseDown Event.
| Code: |
Private Sub xpOutBar1_ItemDown(ByVal Group As Long, ByVal Item As Long, Button As Integer, Shift As Integer)
If Button = vbLeftButton Then
Select Case Group
Case 1 'Group1
If Item = 1 Then 'Item1
Call MsgBox("Ja geht")
ElseIf Index = 2 Then
'...
End If
End Select
End If
End Sub
|
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde) |
|
| |
|
|
DFJ_
Poster
Anmeldedatum: 15.10.2007
Beiträge: 156
|
Verfasst am: 18.01.2008, 19:01 |
|
|
danke zig bist ein schatz
das hat gleich funktionier
| Code: |
If Button = vbLeftButton Then
Select Case Group
Case 1 ' Index der Gruppe nehmen
select case Index
case 1 ' Richtigen Index nehmen
Frame1.Caption = "hallo"
end select
End Select
End If
|
vielen viel dank  und zig mit case habe ich mich beschäftig aber ich kann visual basic immer noch nicht selbst programmieren muss noch sehr viel abschreiben lernen ja nur aus beispielen , und tutorials ich sollte mir mal irgend wann ein buch kaufen [/code]
Spam bot |
|
| |
|
|
|
|
Registrieren
Login
