| Вопрос: как создать шабдон формата строки? | Добавлено: 23.03.08 11:06 |
Автор вопроса:  Сергей
|
| Надо вводить номер автомобиля с одним прробелом между буквами и цифрами -- ровно двенадцать знаков. Говорят-можно, а как - не говорят. |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:    Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #1 | Добавлено: 23.03.08 11:09 |
| Тебе надо проверку, правильно ли введены данные? Регулярные выражения. | ||
|
Номер ответа: 2 Автор ответа: Сергей Вопросов: 2 Ответов: 1 |
Профиль | | #2 | Добавлено: 23.03.08 11:22 |
| мне бы хотелось чтобы данные вводились правильно независимо от того,как они введены. | ||
|
Номер ответа: 3 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #3 | Добавлено: 23.03.08 11:34 |
|
Private Sub Command1_Click()
Text1 = Format$(Text1, "@ @@@ @@ @@@" 
End Sub |
||
|
Номер ответа: 4 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #4 | Добавлено: 23.03.08 11:43 |
|
ну или что-нить вроде этого
Dim LastKey As Integer
Private Sub Text1_Change() If LastKey = 8 Then Exit Sub Select Case Text1.SelStart Case 1, 5, 8 Text1 = Text1 & " " Text1.SelStart = Len(Text1) End Select End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) LastKey = KeyCode End Sub |
||
|
Номер ответа: 5 Автор ответа: Lion ICQ: 367220539 Вопросов: 13 Ответов: 55 |
Web-сайт: Профиль | | #5 | Добавлено: 24.03.08 10:47 |
| MaskEdBox Юзай | ||
Страница: 1 |