Dim i2 As Integer
i2 = Int(Rnd() * (lbDatos2.Items.Count - 1))
lis.lisx.Text = lis.lisx.Text lbDatos2.Items.Item(i2) vbCrLf vbCrLf
gambas
Dim i2 as integer
i2 = int(Rnd()*(lbDatos2.Count-1)
txtB.Text = lbDatos2[i2] \n\n
that's all :)
Thx all for help XD
Dmxa wrote:
I have a doubt, not long ago I started with the gambas2 and I am proving
of passing 1 program Rnd of VB08 to gambas2 but when doing the function
Rnd from a listbox to a textbox I do not obtain to leave.
in VB08 use:
Dim i2 As Integer
i2 = Int(Rnd() *
I have a doubt, not long ago I started with the gambas2 and I am proving of
passing 1 program Rnd of VB08 to gambas2 but when doing the function Rnd
from a listbox to a textbox I do not obtain to leave.
in VB08 use:
Dim i2 As Integer
i2 = Int(Rnd() * (lbDatos2.Items.Count - 1))
lis.lisx.Text =