|
| |
Fragen & Antworten rund um sev-Komponenten| OutBar reagiert nicht auf jeden ItemClick | |  | | Autor: spatzimatzi | | Datum: 18.11.17 16:37 |
| Hallo,
setze OutBar schon seit längerer Zeit ein.
Das Produkt ist super. Ich würde nicht schreiben, wenn mir nicht eine Kleinigkeit aufgefallen wäre.
Die Gestaltung der OutBar habe ich überwiegend von Hand gestaltet.
Hier gibt es auch keine Probleme.
Einen anderen Teil, der beim Start des Programmes gestaltet wird, hat Ladehemmungen.
Das Aussehen und die grundsätzliche Funktion funktionieren einwandfrei.
Leider musste ich feststellen, das die Items nicht bei jedem Anklicken auslösen.
Dieses Verhalten tritt immer auf. Es ist auch nicht so, dass mein Code falsch abläuft, sondern das Ereignis wird nicht ausgelöst.
Dabei wird beim Klicken wie geplant das Aussehen des Item verändert, aber eben nicht weitergeleitet.
Wichtig zu sagen wäre auch noch, dass es immer unterschiedliche Items sind, die das Ereignis nicht auslösen. Spätestens beim 2. Klick reagiert OutBar.
Gibt es von anderen Anwender ähnliche Erfahrungen?
Wenn nein, dann muss es wohl an meiner Programmierung liegen. Was ich mir nicht vorstellen kann
OutBar 4.0
Windows 7
Visual Studio 2013 / Basic
Viele Grüße
spatzimatzi | |
| Re: OutBar reagiert nicht auf jeden ItemClick | | | | Autor: spatzimatzi | | Datum: 20.11.17 10:51 |
| Hallo Dieter,
leider kann ich kein lauffähiges Beispiel zusenden.
Aber ich habe Daten, mit dem ich die OutBar erweitere.
Die Daten werden aus einer Datenbank gelesen und dann Zeile für Zeile verarbeitet.
Aufbau der Tabelle:
SMLIdent;SMLNummer;Bezeichnung;HauptgruppenIdent;Hauptgruppe;GlobalSML;Anzahl
26;T 1;Alle unterschiedlichen Box-Typen;2;Artikel;0;7
21;A 1;Allgemeine Artikel;2;Artikel;0;12
1;F 1; Fliesen;2;Artikel;0;13
25;F 2;Fugenmittel;2;Artikel;0;5
24;K 1;Kleber;2;Artikel;0;6
23;P 1;Profile und Zubehör;2;Artikel;11
Aus den Informationen der Tabelle sollen die Items generiert werden.
Die Anzahl der Records ist variabel.
Dafür habe ich folgenden Code
OutBar.BeginUpdate()
With Me.OutBar.GroupItems(1)
Dim intHG As Integer = -1
Dim intUG As Integer = -1
' Alle SML werden gelesen
For Each DR As DataRow In dsSMLOutBar.Tables("SMLOutBar").Rows
' Ausgeben der Hauptgruppen
If DR("HauptgruppenIdent") <> intHG Then
Dim HGMenuItem As sevSoft.OutBar.MenuItem = New _
sevSoft.OutBar.MenuItem
With HGMenuItem
.Tag = DR("SMLIdent")
.Text = DR("HauptGruppe")
.Key = DR("SMLIdent")
.ToolTipTitle = "Hauptgruppe"
.ToolTipText = DR("HauptGruppe")
.ToolTipIcon = System.Windows.Forms.ToolTipIcon.Info
.FontBold = True
.Visible = True
.Enabled = False
End With
.MenuItems.Add(HGMenuItem)
intHG = DR("HauptgruppenIdent")
End If
Dim strStern As String = ""
Dim MenuItem As sevSoft.OutBar.MenuItem = New sevSoft.OutBar.MenuItem
With MenuItem
.Tag = DR("SMLIdent")
.Text = IIf(DR("GlobalSML") = True, " " & DR("Bezeichnung") & "" & _
"<Global>", " " & DR("Bezeichnung")) & " " & strStern
.Key = DR("SMLIdent")
.ToolTipText = DR("Bezeichnung")
.ToolTipTitle = "SML-Nr: " & DR("SMLNummer")
.ToolTipIcon = System.Windows.Forms.ToolTipIcon.Info
.Enabled = IIf(DR("Anzahl") > 0, True, False)
End With
.MenuItems.Add(MenuItem)
Next
End With
OutBar.EndUpdate()Über die einzelnen Items werden dann in einem DataGridView technische Daten angezeigt.
Das Auslösen des Ereignisses durch Klick betrifft nicht immer die selben Items.
Aber es sind immer 1 oder 2 Items dabei, die nicht beim 1. Klick reagieren.
Da ich immer noch Anfänger bin, gehe ich davon aus, dass das eigenartige Verhalten wahrscheinlich an meinem Script liegt.
Vielen Dank für Deine Bemühungen
Viele Grüße
spatzimatzi | |
| Re: OutBar reagiert nicht auf jeden ItemClick | | | | Autor: mumpel | | Datum: 20.11.17 11:39 |
| Hallo!
Wie sieht bei Dir der Code im Ereignis "OutBar2_ItemClick" aus?
Gruß, René | |
| Re: OutBar reagiert nicht auf jeden ItemClick | | | | Autor: spatzimatzi | | Datum: 20.11.17 14:27 |
| Hallo Rene,
wenn das Problem auftritt, dann wird das Ereignis ItemClick auch nicht ausgelöst.
Beim Klicken wird schon reagiert, aber nur an der Oberfläche.
Es geschieht genau das, was am auch erwartet (Farbe ändert sich, ...).
Aber das Ereignis wird nicht ausgelöst.
Wahrscheinlich ist ein blöder Fehler in meinem Code
Viele Grüße
spatzimatzi | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
sevAniGif (VB/VBA) 
Anzeigen von animierten GIF-Dateien
Ab sofort lassen sich auch unter VB6 und VBA (Access ab Version 2000) animierte GIF-Grafiken anzeigen und abspielen, die entweder lokal auf dem System oder auf einem Webserver gespeichert sind. Weitere InfosTipp des Monats TOP Entwickler-Paket 
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR...
Jetzt nur 599,00 EURWeitere Infos
|
| |
|
Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Mai 2024
Sie sind aktuell nicht angemeldet.