Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Бегущая с...

Тема: Бегущая строка

15.06.2007 21:02:19

Валерий3

43 сообщения

Тема: Бегущая строка

Я извиняюсь, возможно это не столь важно,но меня интересует вот что:
Как сделать чтоб при открытии формы в, предположим, поле "A" была бегущая строка, берущая данные из таблицы?
И не прекращающиеся благодарности вам всем.

P.S. Общий раздел по формам
Автор: Валерий от 15.04.2002 14:20:48 Источник ...

15.06.2007 21:02:19

Николай3

48 сообщения

RE: Бегущая строка

Самый простой способ:
1. создаете поле с выравниваем текста по правому краю
2.устанавливаете таумер формы ~ какая скорость
3.в процедуре таймера меняете текст

Dim strText As String

Private Sub cmdStart_Click()
Me.TimerInterval = 100
End Sub

Private Sub Form_Load()
strText = " Проверка бегущей строки "
End Sub

Private Sub Form_Timer()
Static pos As Long
pos = pos + 1
If pos >= Len(strText) Then pos = 1
If Len(Me.TextBox1.Value) > 127 Then Replace Me.TextBox1.Value, Left$(Me.TextBox1.Value, 1), ""
Me.TextBox1.Value = Me.TextBox1.Value & Mid(strText, pos, 1)
End Sub

ограничение pos=127 -произвольное, чтобы текст не рос бесконечно

P.S. Общий раздел по формам
Автор: Николай от 16.04.2002 4:09:10 Источник ...

Страница 1 из 1

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Бегущая с...

Поиск

Список форумов

Начало | Forums