Now ive got a sub written in were i can load the information and create the labels at runtime, but this is inpractical for me, because i ahve to load all the information through the Form_Load Event, which takes time to process the information, plus i have to Run the project in order to see what it looks like.
Is there any help help you can give me on this
Kind Regards, Devon
P.S I have written a code that allows me to add the items at runtime but, it is not exactly user friendly nor does it give them the option, plus if i want a load of labels withing different controls, its going to take up alot of room on the Form_Load(). Ill show you the code, maybe it can be adapted in some way shape of form. Thanks (Labels Get Stacked Above Each Other Worked with certain amount of space between them) And duplicated the lblCall(0) label and imgCall(0) image.
This Is The Form_Load() code i use to add a label
With wtbInsert .AddItem "Insert DVD", "frmInsertDVD", ilIcons.ListImages.Item(1).Picture End With
And This is the Sub...
Public Sub AddItem(strLabelTitle As String, strFormName As String, _ Optional Picture As IPictureDisp) '//Store The Information With LinkList .FormTitle.Add strFormName .LabelTitle.Add strTitle End With Dim cnt As Integer cnt = LinkList.FormTitle.Count '//Work Out Height of User Control If cnt = 1 Then Height = topImage.Height + 510 Else Height = topImage.Height + lblCall(0).Top + CInt(cnt * 330) + 60 End If '//Load New Versions Of The Image Load imgCall(cnt) Load lblCall(cnt) With imgCall(cnt) If cnt = 1 Then .Top = 120 Else .Top = CInt(CInt(330 * CInt(cnt - 1)) + 120) End If .Picture = Picture .Visible = True .Width = 240 .Height = 240 .Left = 240 End With With lblCall(cnt) .Caption = Chr(32) & strLabelTitle .Visible = True .Left = 480 '//Work Out Top Value If cnt = 1 Then .Top = 120 Else .Top = CInt(CInt(330 * CInt(cnt - 1)) + 120) End If End With End Sub
Hope this helps you.
Kind Regards Again.
This post has been edited by devonknows: 11 February 2008 - 02:34 PM