 |
|
Модераторы: Akina |
 
|
|
Ввод пароля в TextBox, Пароль в зависимости от количества 
| begemot125 |
|
|||
 Рядовой Профиль Группа: Участник Сообщений: 27 Регистрация: 13.2.2010 Где: Россия Репутация: нет Всего: нет |
Здравствуйте. Подскажите пожалуйста, как сделать?
Есть форма, на которой есть text1 и кнопка. Text1 служит для ввода пароля. Как сделать так чтобы при нажатии на кнопку она проверяла наличие пароля в Text1 и при этом правильным паролем являлось бы любое восьмизначное значение, которое может состоять из цифр и букв. То есть мне нужно, чтобы пользователь ввел любой пароль состоящий именно из восьми значений и это значение являлось бы правильным, а если он введет меньше или больше восьми знаков – то неправильным. |
|||
|
||||
Загрузка ...
| Dexx |
|
|||
|
Опытный  Профиль Группа: Участник Сообщений: 292 Регистрация: 13.6.2005 Репутация: 5 Всего: 7 |
Function:
Len Description: Returns a Long containing the length of the specified string Syntax: Len(string) Where string is the string whose length (number of characters) is to be returned. Example: lngLen = Len("Visual Basic") ' lngLen = 12 Это сообщение отредактировал(а) Dexx - 9.8.2011, 20:21 -------------------- |
|||
|
||||
| begemot125 |
|
|||
|
Рядовой Профиль Группа: Участник Сообщений: 27 Регистрация: 13.2.2010 Где: Россия Репутация: нет Всего: нет |
Спасибо. Извиняюсь, но я не могу понять, что куда вставлять. Я в бейсике еще новичек, объясните плиз что куда вставлять. Я все это копирую и вставляю в кнопку - половина горит красным. Всталяю в (General) - тоже горит красным.
|
|||
|
||||
| vbCrLf |
|
|||
 Шустрый Профиль Группа: Участник Сообщений: 54 Регистрация: 3.5.2006 Где: Севастополь Репутация: 1 Всего: 1 |
Это не код, это описание функции, с которой вам нужно работать.
Напрягите немножко мозг, программа очень легкая. |
|||
|
||||
| begemot125 |
|
|||
|
Рядовой Профиль Группа: Участник Сообщений: 27 Регистрация: 13.2.2010 Где: Россия Репутация: нет Всего: нет |
Разобрался! спасибо за советы.
Private Sub Command1_Click() P$ = Text1.Text Text2.Text = Len(P$) End Sub |
|||
|
||||
| Данкинг |
|
|||
 Yersinia pestis Профиль Группа: Завсегдатай Сообщений: 8302 Регистрация: 7.11.2006 Где: მოსკოვი Репутация: нет Всего: 130 |
Наверное, как-то так:
-------------------- There's nothing left but silent epitaphs. |
|||
|
||||
|
|
| Правила форума "VB6" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | VB6 | Следующая тема » |
[ Время генерации скрипта: 0.0424 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |