| Вопрос: Ограничение количества символов | Добавлено: 24.05.06 00:11 |
Автор вопроса:  valentin79
|
|
Вопрос наверно глупый , но как у едитбокса ограничить количество символов вводимых в нем. Пробовал так:
CONTROL ADD TEXTBOX, hDlg, %IDC_TEXTBOX1, "", 20, 20, 135, 15 и использовать SUB Edit_LimitText (BYVAL hEdit AS DWORD, BYVAL chMax AS DWORD) SendMessage hEdit, %EM_LIMITTEXT, chMax, 0 END SUB , но не работает. |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  CyRax   Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #1 | Добавлено: 24.05.06 00:57 |
|
У меня работает. Попробуй послать сообщение перед покаом диалога.
Function ShowDIALOG1(ByVal hParent As Dword) As Long
Local lRslt As Long #PBForms Begin Dialog %IDD_DIALOG1->-> Local hDlg As Dword  ialog New hParent, "ialog1", 70, 70, 201, 121, %WS_POPUP Or %WS_BORDER _
Or %WS_DLGFRAME Or %WS_SYSMENU Or %WS_CLIPSIBLINGS Or %WS_VISIBLE Or _ %DS_MODALFRAME Or %DS_3DLOOK Or %DS_NOFAILCREATE Or %DS_SETFONT, _ %WS_EX_WINDOWEDGE Or %WS_EX_CONTROLPARENT Or %WS_EX_LEFT Or _ %WS_EX_LTRREADING Or %WS_EX_RIGHTSCROLLBAR, To hDlg Control Add TextBox, hDlg, %IDC_TEXTBOX1, "TextBox1", 35, 35, 95, 15 #PBForms End Dialog Control Send hDlg, %IDC_TEXTBOX1, %EM_LIMITTEXT, 10,0 ialog Show Modal hDlg, Call ShowDIALOG1Proc To lRslt
#PBForms Begin CleanUp %IDD_DIALOG1 #PBForms End CleanUp Function = lRslt End Function |
||
Страница: 1 |