Ich verwende das ExplorerTreeView 2.6.2 Unicode Steuerelement und suche schon seit Stunden nach einer Lösung für einen seltsamen Effekt.
Denn das Ereignis ItemStateImageChanging bzw. ~Changed wird nicht aufgerufen, obwohl alle Events aktiv (=nicht deaktiviert sind) und auch
ShowStateImages = True ist. Alle anderen Ereignisse (z.B. Click, DblClick, CaretChanged) funktionieren.
Ich vermute nur einen kleinen Fehler dahinter, denn wenn ich ein neues Projekt mit dem ETV aufsetze, dann feuert auch das ItemStateImageChanging Ereginis. (hab auch die Einstellungen beider Steuerelemente verglichen und auch die Referenzierung (GUID) in der jeweiligen Projektdatei überprüft, alles ist identisch)
Bin echt ratlos und würde mich über Hilfe sehr freuen!
Danke!
liebe Grüße
hans
Code: Select all
Private Sub expTV_ItemStateImageChanging(ByVal treeItem As ExTVwLibUCtl.ITreeViewItem, ByVal previousStateImageIndex As Long, newStateImageIndex As Long, ByVal causedBy As ExTVwLibUCtl.StateImageChangeCausedByConstants, cancelChange As Boolean)
' die jeweils nachfolgenden selektieren bzw. deselektieren
Debug.Print "newStateIndex: " & newStateImageIndex
Screen.MousePointer = vbArrowHourglass
DoEvents
expTV.DontRedraw = True
SetSubItemState treeItem, newStateImageIndex
expTV.DontRedraw = False
DoEvents
Screen.MousePointer = vbDefault
End Sub
Hello!
I'm using the ExplorerTreeView 2.6.2 Unicode-Control and I'm suffering on a strange effect with it.
The both events ItemStateImageChanging and ~Changed aren't fired altough that all events are activated (= not disabled)
and the property ShowStateImages is set to TRUE. Every other event (i.e. Click, DblClick, CaretChanged) works flawlessly.
When I set up a new project with the ETV the events will be fired. (I checked all properties and the GUID from the controls in every project file
- but both are identical) I'm clueless now and I'm glad if someone could help me ...
Thanks a lot!
best regards
John
Code: Select all
Private Sub expTV_ItemStateImageChanging(ByVal treeItem As ExTVwLibUCtl.ITreeViewItem, ByVal previousStateImageIndex As Long, newStateImageIndex As Long, ByVal causedBy As ExTVwLibUCtl.StateImageChangeCausedByConstants, cancelChange As Boolean)
' die jeweils nachfolgenden selektieren bzw. deselektieren
Debug.Print "newStateIndex: " & newStateImageIndex
Screen.MousePointer = vbArrowHourglass
DoEvents
expTV.DontRedraw = True
SetSubItemState treeItem, newStateImageIndex
expTV.DontRedraw = False
DoEvents
Screen.MousePointer = vbDefault
End Sub