If <textbox name>.Value = "<value textbox should be>" Then <code to be run, provided correct textbox value was entered> End If
'example If txtName.Value = "" Then Msgbox ("No name was entered!") End If
If <textbox name>.Value = "<value textbox should be>" Then <code to be run, provided correct textbox value was entered> End If
'example If txtName.Value = "" Then Msgbox ("No name was entered!") End If
Dim cntrl as Control For Each cntrl In <userformname>.Controls 'goes through all controls in form If TypeOf cntrl Is Image Then 'if control is image cntrl.Picture = LoadPicture(<picture's filepath here>) End If Next 'moves onto next control
'example - updates the tiles (which are images) in a connect-3 game 'there are 90 image controls, all with naming convention: r<row>c<column> '(ex) r01c01, r01c02, r01c03...r09c10 'there are 7 random colours a tile can be, the random number is stored in a sheet Private Sub updateDisplay() 'call this procedure whenver display wanted to update Dim cntrl As Control Dim rr, cc As Integer 'for rows and columns Dim strPath(7) As String strPath(0) = "C:\Users\Documents\connect3\images\Yellow.jpg" strPath(1) = "C:\Users\Documents\connect3\images\Green.jpg" strPath(2) = "C:\Users\Documents\connect3\images\Pink.jpg" strPath(3) = "C:\Users\Documents\connect3\images\White.jpg" strPath(4) = "C:\Users\Documents\connect3\images\Red.jpg" strPath(5) = "C:\Users\Documents\connect3\images\Cyan.jpg" strPath(6) = "C:\Users\Documents\connect3\images\Orange.jpg" For Each cntrl In frmConnect.Controls If TypeOf cntrl Is Image Then 'cntrl.Name is in form r01c01, r01c02...r09c10 rr = Int(Mid(cntrl.Name, 2, 2)) 'returns 3 if r03c04 cc = Int(Mid(cntrl.Name, 5, 2)) 'returns 4 if r03c04 cntrl.Picture = LoadPicture(strPath(Cells(rr, cc).Value)) rr = rr + 1 cc = cc + 1 End If Next End Sub
<image control name>.Picture = LoadPicture(<file path in string form>)
'examples profileImg.Picture = LoadPicture("C:\Users\john\Documents\johnsface.jpg") strPath = "C:\Users\bob\Pictures\Landscapes\picoftrees.jpg" image1.Picture = LoadPicture(strPath)
Helpful Tips
With <combobox menu’s name> .AddItem “option 1” .AddItem “option 2” … End With
<radio button name>.Value = <true or false>
‘example If radioVegetarian.Value = true Then MsgBox(“Your dinner will be a salad”) End If