Эта программа вытекает из примеров Gambas: ( DataReportExample) , где вы найдете ее в форме Fabout.
Вам нужно поле scrollview на вашей форме, чтобы программа работала. Вы должны положить textlabelfield в поле scrollview. Кроме того, вам нужно 2 клавиши и таймер.
Длинный текст, который будет прокручиваться автоматически, должен быть помещен в textlabel.text Возьмите мой текст и скопируйте его через буфер обмена в это место.
В качестве альтернативы вы также можете положить длинный текст в код, подобно этому: Textlabel1.Text = "long text .........." textlabel1.text = textlabel1.text & "some more text " Возможно вы будете должны позаботиться о CR и LF, добавляя chr(13) и chr(10) .
Код
' Gambas class file
PUBLIC SUB Form_Open()
ME.center
Timer1.Enabled = True
END
PUBLIC SUB Timer1_Timer()
DIM Y AS Integer
Y = ScrollView1.ScrollY
INC ScrollView1.ScrollY
IF Y = ScrollView1.ScrollY THEN ScrollView1.ScrollY = 0
END
PUBLIC SUB Button1_Click()
ME.close
END
PUBLIC SUB Button2_Click()
Timer1.Enabled =FALSE
' stops the automatic Scrollview
END
-- ReinerHoffmann - 22 Sep 2004