Vis et budskab om hilsen
Gennem en lille kode, vi kan byde velkommen brugeren afhængigt af tidspunktet du åbner formularen. I dette eksempel kan vi se tre forskellige budskaber:
1-Morning indtil 12:00;
2-Up klokken 19:00 God eftermiddag;
3-Mellem 19:00 og 00:00 God aften.
Bare brug en lille kode, der er som følger:
Public Function hilsen ()
Dim strMsg As StringHvis tiden <# 12:00:00 # Derefter
strMsg = "Hej! Hav en dejlig dag! "
ElseIf Time <= # 07:00:00 # Derefter
strMsg = "Hej! God eftermiddag! "
Else
strMsg = "Hej! Hav en god aften! "End If
Overholdelse = strMsg
End Function
Så at kalde den kode, bruger vi en tekstboks, og som oprindelsen til kontrol med overholdelse skrive = ().
Download: Overholdelse






























godt! + Option jeg ønskede!
måske i løbet af de næste vcs kan hjælpe mig!
ass: Lala
Bare tilpasse og sætte flere muligheder ...
Hvilke muligheder er han ønskede at se i dette eksempel?