Как разбить содержимое EditBox на две строки? / FoxPro, Visual FoxPro

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как разбить содержимое EditBox на две строки?

6 сообщений из 6, страница 1 из 1

Как разбить содержимое EditBox на две строки?

#36109067

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

Гость

С ограничением разоблася. Осталось разбиение на две строки.
Содержимое EditBox-а примерно так:

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

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

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

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

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

Помогите, пожалуйста с разбиением.

...

Рейтинг:

0 / 0

27.07.2009, 16:39

| Ответить | Цитировать | Написать

Как разбить содержимое EditBox на две строки?

#36111551

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

Гость

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

Гость

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

Гость

Огромное спасибо Rickitiki .

...

Рейтинг:

0 / 0

28.07.2009, 14:59

| Ответить | Цитировать | Написать

6 сообщений из 6, страница 1 из 1

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как разбить содержимое EditBox на две строки?

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=41&msg=36111584&tid=1586193]:	0ms
get settings:	10ms
get forum list:	13ms
check forum access:	3ms
check topic access:	3ms
track hit:	43ms
get topic data:	10ms
get forum data:	3ms
get page messages:	41ms
get tp. blocked users:	1ms
others:	331ms

total:	458ms