Please send me an email to email@example.com with this issue.Hi Erel,
I have a problem with the new dll and that no longer works with Visual Basic 2008. With the release of 20.09.2009 it has worked very well.
The error is thrown in this line:
Private WithEvents list As blist
list = New bControls.bList (pnlPanel, 2, 2, pnlPanel.Width - 4, pnlPanel.Height - 4)
What is different with the new version?
Thats only because the simple example code doesn't handle it. Here is the version wich is autoscalable. (additionally needs ControlExDevice.dll for FixX and FixY variables)Good idea ! But don´t work with compile autoscale yet
1. Yes. It will probably be available in together with the next version of Basic4ppc.I have two questions:
1. Will you provide the .cs file in the future so we can merge the dll into the executable?
2. Would it be possible to display something like a position indicator at the right of the list so the user can see if he can scroll up or down any more?
As I told you in private, yes it will most likely do! So thanks cornwin too@Zaam - could this do the trick for you?
blistGPS.New2("Hauptschirm",0,90,120,159) blistGPS.BackColor = cGray blistGPS.ItemHeight=40 blistGPS.AddFromString("Test1", cBlack, cWhite) blistGPS.AddFromString("Test2", cBlack, cWhite) blistGPS.AddFromString("Test3", cBlack, cWhite) blistGPS.Visible=False blistitem.New1 blistitem.CreateNe blistitem.BackColor2 = cBlack blistitem.BackColor1 = cWhite blistitem.isFillGradient=True Sub menu_click blistGPS.visible=true end sub
Sub Globals 'Declare the global variables here. End Sub Sub App_Start Form1.Show bList.New2("form1", 0, 90, 120, 159) blist.ItemHeight = 40 bList.BackColor = cGray bListItem.New1 AddItem("Test1") AddItem("Test2") AddItem("Test3") End Sub Sub AddItem(text) bListItem.Value = bList.AddFromString(text, cBlack, cWhite) 'catch the newly created item bListItem.isFillGradient = True End Sub
item.Value = list.GetItem(i) if item.Text = ...