I finally found the solution.
"Private lblHt[11] As Label"
should be
Private lblHt[11] As New Label
It's amazing how easy it is to fix a problem when you can access the help
files.
--
View this message in context:
http://gambas.8142.n7.nabble.com/Cotrols-don-t-show-tp44970p44989.html
Sent fro
Ah. I wasn't aware of that. I've only newly arrived from VB.NET
VonZorch wrote, On 01/02/2014 15:23:
This line "lblHt[Loop1] = New Label(Me)" tells the program where to put the
control in Gambas.
In this case it puts the control on the calling form. Oddly on my main form
I can display c
This line "lblHt[Loop1] = New Label(Me)" tells the program where to put the
control in Gambas.
In this case it puts the control on the calling form. Oddly on my main form
I can display compound controls built on their own form.
--
View this message in context:
http://gambas.8142.n7.nabble.com/
On Thu, 2014-01-02 at 15:06 -0500, ISS Boss wrote:
> Are you telling the Labels WHERE to show? In VB you'd have to do something
>like:
>With frmMainForm
> ' put your loop here
>End With
>VonZorch wrote, On 01/02/2014 15:00:
>
> "lblHt[Loop1].Visible = True" that was the firs
Are you telling the Labels WHERE to show? In VB you'd have to do something
like:
With frmMainForm
' put your loop here
End With
VonZorch wrote, On 01/02/2014 15:00:
"lblHt[Loop1].Visible = True" that was the first thing I tried, didn't help.
Thanks for the quick reply.
--
"lblHt[Loop1].Visible = True" that was the first thing I tried, didn't help.
Thanks for the quick reply.
--
View this message in context:
http://gambas.8142.n7.nabble.com/Cotrols-don-t-show-tp44970p44973.html
Sent from the gambas-user mailing list archive at Nabble.com.
--
Would a "lblHt[Loop1].Visible = True" help?
VonZorch wrote, On 01/02/2014 14:41:
Running Gambas 3.1.1 on Mint Linux 16.
The code
' Gambas class file
Private lblHt[11] As Label
Public Sub _new()
Dim Loop1 As Byte
For Loop1 = 0 To 10
lblHt[Loop1] = New Label(Me)
lblHt[Loop1].x = 2
Running Gambas 3.1.1 on Mint Linux 16.
The code
' Gambas class file
Private lblHt[11] As Label
Public Sub _new()
Dim Loop1 As Byte
For Loop1 = 0 To 10
lblHt[Loop1] = New Label(Me)
lblHt[Loop1].x = 20
lblHt[Loop1].y = 20 + (Loop1 * 30)
lblHt[Loop1].Text = Str(Loop1)
lblHt[Loop
