<userform name>.Show
'example frmHome.Show
Tag: user interface
What is the syntax to clear a listbox?
<listbox name>.Clear
'if clearing a userform's listbox from outside the userform
<userform name>.<listbox name>.Clear
'example formHome.lstOutput.Clear
What is the syntax to add to a listbox?
<listbox name>.AddItem <value to be added>
'example - userform called formHome exists formHome.lstGuests.AddItem "Tristan Smith"
What is the syntax to change a button’s display text?
<button name>.Caption = "<new text>"
'example btnPause.Caption = "Resume"
What is the syntax to open a userform in the top-right screen corner?
Me.StartUpPosition = 0
Me.Top = Application.Top + 25
Me.Left = Application.Left + Application.Width - Me.Width - 25
'example - place in UserForm_Activate procedure
Private Sub UserForm_Activate() 'when form opens
Me.StartUpPosition = 0
Me.Top = Application.Top + 25
Me.Left = Application.Left + Application.Width - Me.Width - 25
End Sub
Tips for User Interface Design [updating]
- Use simple dialog understandable by your target user (ie) no jargon
- Rely little on user memory (ex) lesser steps for user to memorize/follow
- Output meaningful error messages (ex) when error happens, tell them using normal english vs something like “error code 1035”
- Avoid limitless choices (ex) Give them a limit of choices as often as possible, vs an open text field that could produce all sorts of data mismatch errors
- Always have an exit (ie) never put user in a place where they cannot go back or get out
- Exploit consistency (ie)Â familiarity equates speedy learning
- Provide continuous feedback (ex) instead of just a loading bar, have a label underneath that tells the user what step the computer is on
- Purpose (not beauty) dictates design (ex) look at how ugly but popular sites like Reddit, Craigslist are
What is the syntax to auto-move days on a calendar?
<calendar name>.Value = <calendar name>.Value <+/-> <number of days you want to move forward or back>
‘examples myCalendar.Value = myCalendar.Value + 1 'move forward one day monthview.Value = monthView.Value -5 'move backward 5 days
