Rnd equivalente a gambas?
Publicado por hadoc (2 intervenciones) el 02/11/2009 17:21:54
estoy haciendo 1 programa con rnd que coje 1 item de un listbox y lo pega en un textbox, pero me quedo trabado ya que se poco de programación, en VB08 uso esto:
Dim i2 As Integer
i2 = Int(Rnd() * (lbDatos2.Items.Count - 1))
lis.lisx.Text = lis.lisx.Text & lbDatos2.Items.Item(i2) & vbCrLf & vbCrLf
despues de mirar el help descubri ke "vbCrLf" es "\n" en gambas pero no consigo hacer que funcione porve:
Dim i2 As Integer
i2 = Int(Rnd() * (lbDatos2.Count - 1))
lis.lisx.Text = lis.lisx.Text & lbDatos2.list(i2) & "\n"
y no funciono, probe lbDatos2.count(i2), lbDatos2.add(i2), lbDatos2(i2), pero no consigo salirme... alguien sabe como se puede hacer?
Dim i2 As Integer
i2 = Int(Rnd() * (lbDatos2.Items.Count - 1))
lis.lisx.Text = lis.lisx.Text & lbDatos2.Items.Item(i2) & vbCrLf & vbCrLf
despues de mirar el help descubri ke "vbCrLf" es "\n" en gambas pero no consigo hacer que funcione porve:
Dim i2 As Integer
i2 = Int(Rnd() * (lbDatos2.Count - 1))
lis.lisx.Text = lis.lisx.Text & lbDatos2.list(i2) & "\n"
y no funciono, probe lbDatos2.count(i2), lbDatos2.add(i2), lbDatos2(i2), pero no consigo salirme... alguien sabe como se puede hacer?
Valora esta pregunta


0