InputBox

0 отговора 0 прегледа
#1

InputBox

Това, което ще попитам сигурно за повечето тук е елементарно, но за мен не е .
Създал съм форма1 в която съм поставил един текстбокс .когато кликна върху него се активира inputBox . въвеждам числото 2 натискам бутона ОК и се активира друга форма2 в която съм поставил техтбокс и един команден бутон
в появилата се форма2 в текстбоксa въвеждам текст и при натискнето на командбутона от същата форма, въведеният текст да се изтрие и , пак да въведем текст ,след което като натиснем повторно бутона то тогава формата да се скрие.... тоест бутона да има възможност да се натиска толкова пъти ,колкото е стойността въведена в inputBoxa и след това форма2 да се скрива.
Ето кода който написах... до активирането на inputBoxa
Private Sub TextBox29_enter()
Dim strbroi As String
strbroi = InputBox(prompt:="Въведете брой!", Title:="въведете брой ?")
If strbroi = vbNullString Then
MsgBox "не е въведена стойност !": Exit Sub
Else
TextBox29.Text = strbroi
UserForm2.Show
End If
Next j
End Sub

Редактирано от vector_m на

Отговор