by PRIYA KELUSKAR (2 Submissions)
Category: OLE/COM/DCOM/Active-X
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Sat 16th September 2000
Date Added: Mon 8th February 2021
Rating: (1 Votes)
CODING FOR CHECKING VALID MONTH AND DATE INPUTED BY THE USER
===========================================
1. FIRST CLICK ON FILE THEN SELECT NEW -ACTIVEX CONTROL
CHANGE THE NAME(BY SELECTING PROPERTY)TO DATE
CHANGE THE NAME OF THE PROJECT TO DATE
2. THEN CLICK ON PROJECT-COMPONENTS -SELECT
MICROSOFT MASKEDIT CONTROL 6.0
3. INSERT THE ABOVE CONTROL WHICH IS DISPLAY IN THE
TOOLBOX AUTOMATICALLY ON YOUR FORM.
4. CHANGE THE MASK PROPERTY OF MASKEDITBOX1 TO ##-##-####
5. THEN REDUCE THE SIZE OF ACTIVEX FORM AS PER THE SIZE
OF MASKEDITBOX.
6. THEN GO TO THE CODE WINDOW . SELECT LOST_FOCUS EVENT OF
MASKEDITBOX CONTROL
7. WRITE THE FOLLOWING CODING ON LOST FOCUS OF MASKEDBOX1 CONTROL
Private Sub MaskEdBox1_LostFocus()
TP = MaskEdBox1.Text
If Mid(TP, 1, 2) <= 0 Or Mid(TP, 1, 2) > 12 Then
MsgBox "ENTER YEAR BETWEEN 1 TO 12"
End If
If Mid(TP, 1, 2) = 1 Or Mid(TP, 1, 2) = 3 Or Mid(TP, 1, 2) = 5 Or Mid(TP, 1, 2) = 7 Or Mid(TP, 1, 2) = 8 Or Mid(TP, 1, 2) = 10 Or Mid(TP, 1, 2) = 12 Then
If Mid(TP, 4, 2) <= 0 Or Mid(TP, 4, 2) > 31 Then
MsgBox "ENTER DAYS BETWEEN 1 TO 31"
End If
Else
If Mid(TP, 1, 2) = 4 Or Mid(TP, 1, 2) = 6 Or Mid(TP, 1, 2) = 9 Or Mid(TP, 1, 2) = 11 Then
If Mid(TP, 4, 2) <= 0 Or Mid(TP, 4, 2) > 30 Then
MsgBox "ENTER DAYS BETWEEN 1 TO 3O"
End If
Else
If Mid(TP, 1, 2) = 2 Then
If Mid(TP, 4, 2) <= 0 Or Mid(TP, 4, 2) > 28 Then
MsgBox "ENTER DAYS BETWEEN 1 TO 28"
End If
End If
End If
End If
END SUB
8. SAVE THE PROJECT AS DATE.VBP
9. SAVE THE FILE AS DATE.FRM
10. THEN CLICK ON FILE -SELECT MAKE DATE.OCX SUBMENU
11. SAVE THE FILE IN SYSTEM32 FOLDER OR SYSTEM FOLDER AS DATE. BECAUSE ALL THE OCX FILES OF VB ARE STORED IN SYSTEM32
IT IS NT AND SYSTEM IF IT IS WIN95 OR WIN98
12. THEN CLOSE THE ENTIRE PROJECT
13. SELECT THE ENTIRE NEW PROJECT(STANDARD EXE)
14. GO TO PROJECT-COMPONENTS -SELECT DATE
15. INSERT IT OF YOUR FORM , INSERT ONE COMMAND BUTTON AND THEN RUN THE FORM