ListBox Control [CONTINUED]

[SllX]

What i am trying to do is use a ListBox in a control and be able to use most of the options the ListBox has from the control. For example i figured out how change the BackColor using somthing like this.

' GET BACKGROUND COLOR
Public Property Get BackColor() As String
    BackColor = List1.BackColor
End Property
Public Property Let BackColor(ByVal NewBackColor As String)
    List1.BackColor = NewBackColor
End Property

My Listbox in the Control is named List1 as you can see from the above code.

What i can't figure out is how to use Let and Get for the " List Feature in the Listbox "
Eg..

idx = List1.ListIndex
           writeINI List1.List(idx), "Index", "ListIdx", App.Path & "\settings.ini"

Can Anyone Help me out In how to get the rest of the features of this listbox to work with my control?

I will be searchign on google until i hear a responce or find an answer..

Thanks in advance for anyone who can help.

[SllX]

Ive been searching the net and i still have not found an answer to my problem. Someone on another forum o was reading said it can be done using a property page. I'm not sure what that is

I guess im going to have to keep looking. No replies on here yet

[dglienna]

What are you tryig to do? Why can't you use the regular listbox?

[SllX]

What are you tryig to do? Why can't you use the regular listbox?

A regular list box scrollbar isnt very touch screen friendly. Unless there is somthign i dont knwo about. Ive been strugling with this issue for a while now and i have not been having any luck.

[dglienna]

Doesn't the touchscreen function like a mouse? Wherever you click is the same as where you touch?

[SllX]

Doesn't the touchscreen function like a mouse? Wherever you click is the same as where you touch?

The scrollbars are rather small on smaller screens making it very hard to actually scroll. Especially for someone with lrger fingers.........

[dglienna]

The listbox doesn't have a scrollbar property. They are automatic. That is a problem. Maybe you could use a slider control?

[SllX]

The listbox doesn't have a scrollbar property. They are automatic. That is a problem. Maybe you could use a slider control?

Ive managed to get a custom scrollbar to scroll the listbox within the control to the value of teh scrollbar. Ive got everythign working great except for the one the isse i have explained above..

[dglienna]

What does WriteINI have to do with it? That is confusing.

[SllX]

What does WriteINI have to do with it? That is confusing.

idx = List1.ListIndex
Label1.caption =  List1.List(idx)

There....
instead of writing the value to an ini file it'll show it in the caption of a label.

What i am doing with the info that the array .list gives doesn't relaly matter its how to make it so i can retrieve the info from the control.

[dglienna]

Send the project, and I'll take a look at it. I don't see any solution right now, but that's because I cant envision how you are making a class of a listbox.

I found this:

http://www.planet-source-code.com/vb...xtCodeId=58629

[brucevde]

Does your version of VB include the ActiveX Control Interface Wizard? If it does, use it. Its a big help when creating user controls. Here is the code the wizard generates to implement the List properties.

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=List1,List1,-1,List
Public Property Get List(ByVal Index As Integer) As String
    List = List1.List(Index)
End Property
 
Public Property Let List(ByVal Index As Integer, ByVal New_List As String)
    List1.List(Index) = New_List
    PropertyChanged "List"
End Property

[brucevde]

And here is the code it generates for the BackColor property. By using As OLE_COLOR instead of As String, the standard Color Dialog box is available in the property page.

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=UserControl,UserControl,-1,BackColor
Public Property Get BackColor() As OLE_COLOR
    BackColor = UserControl.BackColor
End Property
 
Public Property Let BackColor(ByVal New_BackColor As OLE_COLOR)
    UserControl.BackColor() = New_BackColor
    PropertyChanged "BackColor"
End Property

[Tec-Nico]

Excuse me, Bruce... How would that be for a ComboBox named "ComboBox"? Or where can I find that wizard?

[dglienna]

It is in Enterprise Edition. Sorry if I didn't mention that.

[Tec-Nico]

Thank you, David. I found it.

[SllX]

It is in Enterprise Edition. Sorry if I didn't mention that.

I can't seem to find this wizard .. " ActiveX Control Interface Wizard? "

Can you explain to me where to find it please.

For i = 1 To ListView1.Listitems.ListCount
   If ListView1.ListItems(i).Selected = True Then
        ListBox1.AddItem ListView1.selectedItem.ListSubItems(1) & " - " & ListView1.ListItems(i)
        ListBox2.AddItem ListView1.selectedItem.ListSubItems(4)
    End If
Next

I am trying to figure out how to get this option from a listview to work in my control. Taking all the selected items from the listview in my control and taking that info and entering it into ListBox's. I think its similar to the one i was looking for to use in the ListBox, but i am not having any luck.


Any thoughts?

[dglienna]

This one? I thought I posted it before. Just click on Add-Ins, and then Add-In Manager to get this screen.

[SllX]

Thanks David.

The wizard doesnt sho what i am tryig to do. SO there has to be a different way to do this. I managed to get the Listview listitems and subitems to show as single items. There has to be a way to make an array to get the rest of the selected items in the listview list.

Still trying .....................

[SllX]

Someone on this board must know what i am looking for........

[dglienna]

http://www.vbforums.com/showthread.php?t=323620