Thread: List Boxes?

Originally Posted by portreathbeach

When you make your controls out of labels, do you have the facility to change the font size after the control is initialized. ie. If you had 10 labels in your control and then changed to a larger fontsize, you would end up with labels close together or even overlapped text.

In my listbox you can only set the options at initialization time but I have created an "BuildList" routine to initialize the listbox. This is called when loading the form its used in. By doing this I can change whatever I want and then just rebuild the list using "BuildList". This would then delete the previously created controls (labels) and then add new ones with the new data.

So how the control behaves when you're changing to a bigger fontsize would be up to the coding of the usercontrol (ie. you).

Cheers
Borte

Am I missing something? Why wouldn't you be able to change the font size after initialization? If I'm not mistaken, shouldn't you just be able to set the font size on the control itself, and the labels inherit it automatically? (assuming you're not basing the label size off of the font size)

I am basing the label size of the font size (I actually use autosize to get the correct height). This is easier instead of calculating the correct height.
I could change the font directly but this wouldnt rescale the labels unless I use "BuildList" afterwards...

Cheers
Borte

Thanks for your contributions. I've started to make my control. I have got it to build labels to fill the size of the control automatically on load-up. I use a FOR NEXT loop to place the labels and name them, label1, label2, label3.... I cannot get a click event to work with any of these labels.

I used the same syntax to declare the sub click event that is normally generated when you first double click a label that you drag into the form, but it doesn't work.

Sorry if this is a stupid question, but I've only been programming VB.Net for 10 weeks, and I have managed everything else, Winamp control, volume control, radio etc. using handles and sendmessages, but haven't done anything with custom controls.

thanks again

One thing that would make your coding easier is to use an Control array.
Unless you're already using it though...

If it's of any help I wouldn't mind sharing what I created so far. It's not complete on all aspects but it is working (but programmed in VB6 not .Net).

Cheers
Borte

How far have you got with your project Borte? As mentioned before. I have coded a module to control Winamp, one to control Radiator (for my radio), the volume control and have now finished my Listbox thing that I was trying to create at the start of this thread. What are you using for DVD. I have tried to use Windows Media Player, but it causes my computer to crash and reboot 50% of the time.

Do you read MP3 file and get the TAG data from them. I can do it with ID3 v 1 but not with v2. I have donwloaded lots of code samples from the internet, but nothing works with all of my MP3s.

As I've said before, I've only been programming VB.Net for 10 weeks, had to start from scratch, but I used to program Basic years ago, and I've eventually grasped Object Orientated Programming. It took a while!

What version of the WMP SDK are you using? You can get/set the tags using an axWMP_lib object, but I believe it still would require an embedded Media Player on your form.

portreathbeach:
I'm not developing a frontend (yet), i'm currently trying to make my own navigation software so I'm not able to help you out on the frontend issues. Sorry! I could help you out on the listbox issue since I just had created my own.

Cheers
Borte

I am subclassing a ListBox and drawing my own items, including album art for each item.

The scrollbar is a separate control and is also owner drawn.



This is the code I use to remove the scrollbar.

Code:

Declare Function ShowScrollBar Lib "user32" (ByVal hwnd As IntPtr, ByVal wBar As Integer, ByVal bShow As Integer) As Integer
Public Const WM_NCCALCSIZE As Integer = &H83

Protected Overrides Sub WndProc(ByRef m As Message)
        Try
            If m.Msg = WM_NCCALCSIZE Then
                    ShowScrollBar(Me.Handle, 1, False)
            End If
            MyBase.WndProc(m)
        Catch ex As Exception
        End Try
End Sub

And as for ID3 tags I use UltraID3Lib... works great with all flavors of tags.
http://home.fuse.net/honnert/hundred/UltraID3Lib/