|
-
Jun 25th, 2013, 05:37 PM
#1
New Member
Re: CommonControls (Replacement of the MS common controls)
Thanks for you suggestions.
I've downloaded the latest, and added your suggested code into my UserControl. Now I am seeing some events. I see one ItemSelect Event from your ListView (it arrives as I add the first item into ListView.ListItems). None are received by my UserControl after that. I have debug.prints in your code that report when RaiseEvents are fired by you:
When I click on an item,
You raise I receive
ItemSelect [nothing]
ItemSelect [nothing]
ItemClick [nothing]
When I click on a column header,
You raise I receive
ColumnClick ColumnClick
When I start to resize a column
You raise I receive
ColumnBeforeSize [nothing]
When I click on a row with no item in it,
You raise I receive
ItemSelect [nothing]
MouseUp MouseUp
When I left double-click on a row with no item in it,
You raise I receive
DblClick DblClick
MouseUp MouseUp
I'm fairly sure there is something in my ancient code that is still causing trouble, because I've made an ultimately simple test bed that has a UserControl with your ListView in it that's used on a simple VB6 form, and I get most of the missing Events there. [However, there are other problems --when I add ColumnHeaders, they aren't visible.
Obviously, I'm not asking for you to debug my code, I just hope these symptoms may suggest something...
Thanks for any help you can give.
-
Jun 26th, 2013, 10:39 AM
#2
Re: CommonControls (Replacement of the MS common controls)
 Originally Posted by RichInSoquel
But is there a reason I can't embed your ListView implementation in a VB6 UserControl? ... I'm calling
. . .
in my UserControl_Initialize.
 Originally Posted by RichInSoquel
... and added your suggested code into my UserControl. ... None are received by my UserControl after that.
. . .
... I've made an ultimately simple test bed that has a UserControl with your ListView in it that's used on a simple VB6 form, ...
Just so we're clear, are you saying that you have a User Control that has Krool's ListView User Control in it? That is, a User Control within another User Control?
On Local Error Resume Next: If Not Empty Is Nothing Then Do While Null: ReDim i(True To False) As Currency: Loop: Else Debug.Assert CCur(CLng(CInt(CBool(False Imp True Xor False Eqv True)))): Stop: On Local Error GoTo 0
Declare Sub CrashVB Lib "msvbvm60" (Optional DontPassMe As Any)
-
Jun 26th, 2013, 11:32 AM
#3
New Member
Re: CommonControls (Replacement of the MS common controls)
Right. I'm trying to replace the old VB6 ListView with Krool's ListView inside a big File I/O UserControl I wrote about 10 years ago.
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|