Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Option Explicit
Dim Filltest As Integer
Const Text1Full As Integer = 1
Const Text2Full As Integer = 2
Const Text3Full As Integer = 4
Private Sub Command1_Click()
Select Case Filltest
Case 0
MsgBox "No boxes with text"
Case 1
MsgBox "Box 1 has text"
Case 2
MsgBox "Box 2 has text"
Case 3
MsgBox "Box 1 and 2 have text"
Case 4
MsgBox "Box 3 has text"
Case 5
MsgBox "Box 1 and 3 have text"
Case 6
MsgBox "Box 2 and 3 have text"
Case 7
MsgBox "Box 1,2 and 3 have text"
Case Else
MsgBox "Error"
End Select
End Sub
Private Sub Form_Load()
Filltest = 0
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Text1_Change()
If Len(Text1.Text) > 0 Then
Filltest = Filltest Or Text1Full
Else
Filltest = Filltest And (7 - Text1Full)
End If
End Sub
Private Sub Text2_Change()
If Len(Text2.Text) > 0 Then
Filltest = Filltest Or Text2Full
Else
Filltest = Filltest And (7 - Text2Full)
End If
End Sub
Private Sub Text3_Change()
If Len(Text3.Text) > 0 Then
Filltest = Filltest Or Text3Full
Else
Filltest = Filltest And (7 - Text3Full)
End If
End Sub