InputBox
InputBox to komunikat, który ma wbudowane pole tekstowe. Możemy za jego pomocą wprowadzać dane np. Imię , czy po odpowiednim zadeklarowaniu także liczby.
Spróbujmy - na formatce umieszczamy przycisk i teraz do dzieła:
Dim imię As String
Private Sub wprowadz_Click()
imie = InputBox("Podaj swoje imię")
End Sub
Tak wygląda cały schemat InputBox-a
InputBox("Pytanie","Tytuł", "Domyślna odpowiedź")
No fantastycznie powiedzieliśmy programowi jak się nazywamy, a on jak milczał tak milczy dalej. Musimy ten nasz programik nieco usprawnić, a mianowicie dodać powitanie, zrobimy to za pomocą
już znanej nam instrukcji MsgBox-a.
Dim imie, powitanie As String
Private Sub wprowadz_Click()
imie = InputBox ("Podaj swoje imię","Przywitanie")
powitanie = ("Witaj_" & imie ,vbExclamation,"Przywitanie")
End Sub
Troszeczkę tłumaczeń do tego co na górze.
Deklaracja zmiennych jest chyba dość jasna:). InputBox zadaje pytanie do użytkownika (nasza zmienna imie), przechodzimy do MsgBox-a
- widzimy w nim znaczek & służy on do łączenia łańcuchów, łączy on tekst który znajduje się w cudzysłowie z tym co wpiszemy pod zmienną imie,
tym samym otrzymujemy jeden ciąg znaków, który jest widoczny w MsgBox-ie.