VBNet - Форум - Глупо, но немогу...

Вопрос: Глупо, но немогу... Добавлено: 07.05.03 21:11

Автор вопроса: Sernij

Воощем дело такое во время выполнения программы надо добалять на форму textbox-ы и label-ы как это сделать? и как рациональнее сделать проверку на ввод в textbox токо чисел
Ответить

Ответы Всего ответов: 3

Номер ответа: 1
Автор ответа:

ZoomerSD

ICQ: 148640473

Вопросов: 135
Ответов: 270

Профиль | | #1

Добавлено: 07.05.03 21:58

на первый вопрос, то помоему некак не добавить, попробуй скинуть их сразу, зделать невидимыми и по мере необходимости открывать их, а на воторой ворося затрудняюсь ответить

Ответить

Номер ответа: 2
Автор ответа:

Padre

ICQ: 346632205

Вопросов: 25
Ответов: 215

Web-сайт: localhost
Профиль | | #2

Добавлено: 08.05.03 00:40

Для динамического создания контрола кинь на форму один такой контрол, выставь у него Индекс=n, а потом при необходимости добавления нового пиши:

load Control1(n+1)

Выставь ему left, top и visible

А вот по поводу ввода только цифр:

Public Function Only_Number(theParam As Integer)
If InStr("1234567890" & Chr(8), Chr(theParam)) > 0 Then
Only_Number = theParam
Else
Only_Number = 0
End If
End Function

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Only_Number(KeyAscii)
End Sub

Ответить

Номер ответа: 3
Автор ответа:

CyRax

Разработчик Offline Client

ICQ: 204447456

Вопросов: 180
Ответов: 4229

Web-сайт: basicproduction.nm.ru
Профиль | | #3

Добавлено: 09.05.03 22:19

Это по первому Возможности метки

По второму попробуй так

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case Asc("0") To Asc("9"), 13, 27
Case Else
KeyAscii = 0
End Select
End Sub

Ответить

Страница: 1 |