ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как разбить содержимое EditBox на две строки?
6 сообщений из 6, страница 1 из 1
Как разбить содержимое EditBox на две строки?
    #36109067
Kulakov Oleg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kulakov Oleg
Гость
Имеется EditBox:
Width=310
Height=60
FontName=Courier New
FontSize=10
ScrollBars=0
Мне необходимо ограничить ввод не более двух строк (2 строки по 20 символов) и разбить содержимое EditBox-а на две строки. Я знаю, что содержимое EditBoxa-а это одна строка.
Чтоб ограничить ввод в InteractiveChange EditBox-а указываю :
Код: plaintext
1.
2.
3.
4.
if this.SelStart=> 40 
this.SelStart= 40 
thisform.edit1.ReadOnly=.t.
endif

А в MouseUp :
Код: plaintext
1.
2.
3.
if len(alltrim(this.value))<> 0 
thisform.edit1.readonly=.f.
keyboard´{Ctrl+end}´
endif
ReadOnly меня не устраивает. А как разбить на две строки?
...
Рейтинг: 0 / 0
25.07.2009, 10:44
| Ответить | Цитировать | Написать  
Как разбить содержимое EditBox на две строки?
    #36111506
Kulakov Oleg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kulakov Oleg
Гость
С ограничением разоблася. Осталось разбиение на две строки.
Содержимое EditBox-а примерно так:

Пример 1:
EBoxStr="Поломка клавиатуры и мыши."

Пример 2:
EBoxStr="Неправильный ввод пароля."

Хочу получить такие строки:

Пример 1:
LbBoxStr1="Поломка клавиатуры и"
LbBoxStr2="мыши."

Пример 2:
LbBoxStr1="Неправильный ввод"
LbBoxStr2="пароля"

Помогите, пожалуйста с разбиением.
...
Рейтинг: 0 / 0
27.07.2009, 16:39
| Ответить | Цитировать | Написать  
Как разбить содержимое EditBox на две строки?
    #36111551
Rickitiki
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rickitiki
Гость
Kulakov Oleg,

Код: plaintext
1.
2.
3.
4.
for i =  1  to GetWordCount(edit1.text, ' ')
if ATC(" ",  edit1.text, i) >  20 
edit1.value = STRTRAN(edit1.text, ' ' , CHR( 13 ) , i- 1  ,  1  )
endif
endfor

попробуй
...
Рейтинг: 0 / 0
27.07.2009, 16:54
| Ответить | Цитировать | Написать  
Как разбить содержимое EditBox на две строки?
    #36111565
Rickitiki
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rickitiki
Гость
RickitikiKulakov Oleg,

Код: plaintext
1.
2.
3.
4.
for i =  1  to GetWordCount(edit1.text, ' ')
if ATC(" ",  edit1.text, i) >  20 
edit1.value = STRTRAN(edit1.text, ' ' , CHR( 13 ) , i- 1  ,  1  )
endif
endfor

попробуй

перед endif поставь EXIT
...
Рейтинг: 0 / 0
27.07.2009, 16:57
| Ответить | Цитировать | Написать  
Как разбить содержимое EditBox на две строки?
    #36111584
Rickitiki
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rickitiki
Гость
Kulakov OlegИмеется EditBox:
Width=310
Height=60
FontName=Courier New
FontSize=10
ScrollBars=0
Мне необходимо ограничить ввод не более двух строк (2 строки по 20 символов) и разбить содержимое EditBox-а на две строки. Я знаю, что содержимое EditBoxa-а это одна строка.
Чтоб ограничить ввод в InteractiveChange EditBox-а указываю :
Код: plaintext
1.
2.
3.
4.
if this.SelStart=> 40 
this.SelStart= 40 
thisform.edit1.ReadOnly=.t.
endif

А в MouseUp :
Код: plaintext
1.
2.
3.
if len(alltrim(this.value))<> 0 
thisform.edit1.readonly=.f.
keyboard´{Ctrl+end}´
endif
ReadOnly меня не устраивает. А как разбить на две строки?

ограничение по вводу

Control.MaxLength [= nMaxLength]
- где nMaxLength - кол-во символов (тоесть 40)
...
Рейтинг: 0 / 0
27.07.2009, 17:01
| Ответить | Цитировать | Написать  
Как разбить содержимое EditBox на две строки?
    #36113537
Kulakov Oleg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kulakov Oleg
Гость
Огромное спасибо Rickitiki .
...
Рейтинг: 0 / 0
28.07.2009, 14:59
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как разбить содержимое EditBox на две строки?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]