• Home
 · 
• Custom Controls/Forms/Menus
 · 
• This is a simple program.Based on traffic signals.You can arrange all the picture in a rite place.

This is a simple program.Based on traffic signals.You can arrange all the picture in a rite place.

This is a simple program.Based on traffic signals.You can arrange all the picture in a rite place.

Rate This is a simple program.Based on traffic signals.You can arrange all the picture in a rite place.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
'Unallowable drop; return sign to original location
Source.Visible = True
End Sub

Private Sub Form_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
'set sign to invisible when dragging begins
Source.Visible = False
End Sub

Private Sub Form_Load()
'center from on desktop
frmTraffic.Top = (Screen.Height - frmTraffic.Height) / 2
frmTraffic.Left = (Screen.Width - frmTraffic.Width) / 2
'set dragicons for signs
For Index = 0 To 4
imgsign(Index).DragIcon = imgsign(Index).Picture
Next
End Sub

Private Sub imgcontainer_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single)
'Check for correct drop ( indexes match)
If Source.Index = Index Then
   'Place sign in container; increment NumCorrect%
   imgcontainer(Index).Picture = Source.Picture
   NumCorrect% = NumCorrect% + 1
   'check  for  last  sign
   If NumCorrect% = 5 Then
   'display message ; Clear signs
   MsgBox "Well  Done", vbExclamation, "Traffic  Signs"
   mnuClear_Click
   End If
   Else
   'incorrect  drop; return sign to original location
   Source.Visible = True
   End If
   End Sub

Private Sub imgsign_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single)
'Unallowable drop; return sign to original location
Source.Visible = True
End Sub

Private Sub Label1_DragDrop(Source As Control, X As Single, Y As Single)
'Unallowable drop; return sign to original location
Source.Visible = True
End Sub



Private Sub Label2_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single)
'Unallowable drop; return sign to original location
Source.Visible = True
End Sub

Private Sub mnuClear_Click()
'clear containers and rest signs to original locations
For Index = 0 To 4
   imgcontainer(Index).Picture = ImgBlank.Picture
   imgsign(Index).Visible = True
   Next
   'reset counter
   NumCorrect% = 0
End Sub

Private Sub mnuQuiz_Click()
Const instruction$ = "Type  the  letter  of  the  correct  response and click ok. " & vbNewLine & _
                     "Click Cancle to Skip this question." & vbNewLine & vbNewLine
Const Choice$ = vbNewLine & vbNewLine & "a. Stop" & vbNewLine & _
                 "b. Do Not Enter" & vbNewLine & "c. Slippery  Road"
Dim QuesNum%, Question$, CorrectAnswer$, Response$
'Hide  traffic form
frmTraffic.Hide
'loop for three questions

For QuesNum% = 1 To 3
'Assign value to variable Question$ and variable CorrectAnswer$
Select Case QuesNum%
      Case Is = 1
                Question$ = "1. Which Sign has a diamond shape?" & Choice$
                CorrectAnswer$ = "C"
      Case Is = 2
               Question$ = "2. Which Sign has an octagonal shape?" & Choice$
                CorrectAnswer$ = "A"
       Case Is = 3
               Question$ = "3. Which Sign has a round shape?" & Choice$
                CorrectAnswer$ = "B"
 End Select
 Response$ = InputBox(instruction$ & Question$, "Traffic Sign Shape Quiz")
  'Select Case QuesNum%
  'Case Is = 1
' If Response$ = "A" Or "B" Then
 'MsgBox ("ur choice is wrong")
 'Else
 'MsgBox ("U R RIGHT")
 'End If
 'End Select
  'Select Case QuesNum%
   'C ase Is = 2
   'If Response$ = "B" Or "C" Then
 'MsgBox ("ur choice is wrong")
'Else
'MsgBox ("U R RIGHT")
'End If
'End Select
'Select Case QuesNum%
' Case Is = 3
 'If Response$ = "A" Or "C" Then
 'MsgBox ("ur choice is wrong")
'End If
'End Select
 Next
 frmTraffic.Show
  End Sub
  

Private Sub mnuShow_Click()
'move all signs to correct containers
For Index = 0 To 4
imgcontainer(Index).Picture = imgsign(Index).Picture
imgsign(Index).Visible = False
Next
End Sub