home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / demo / datade / datademo.txt < prev    next >
Encoding:
Text File  |  1995-02-27  |  2.0 KB  |  90 lines
  1. Sub ctData1_ClickCenter ()
  2.    Text1.Text = "Page Up"
  3. End Sub
  4.  
  5. Sub ctData1_MouseCenter ()
  6.    Text1.Text = "Page Up"
  7.  
  8. End Sub
  9.  
  10. Sub ctData1_MouseLeft ()
  11.    Text1.Text = "Beginning of File"
  12. End Sub
  13.  
  14. Sub ctData1_MouseRight ()
  15.    Text1.Text = "Previous"
  16.  
  17. End Sub
  18.  
  19. Sub ctData2_MouseCenter ()
  20.    Text1.Text = "Page Down"
  21. End Sub
  22.  
  23. Sub ctData2_MouseLeft ()
  24.    Text1.Text = "Next"
  25. End Sub
  26.  
  27. Sub ctData2_MouseRight ()
  28.    Text1.Text = "End of File"
  29. End Sub
  30.  
  31. Sub ctData3_ClickLeft ()
  32.    DataFrame(1).Visible = False
  33.    DataFrame(2).Visible = False
  34.    DataFrame(3).Visible = False
  35.    DataFrame(0).Visible = True
  36. End Sub
  37.  
  38. Sub ctData3_ClickRight ()
  39.    If DataFrame(1).Visible = True Then
  40.       DataFrame(1).Visible = False
  41.       DataFrame(0).Visible = True
  42.    End If
  43.    If DataFrame(2).Visible = True Then
  44.       DataFrame(2).Visible = False
  45.       DataFrame(1).Visible = True
  46.    End If
  47.    If DataFrame(3).Visible = True Then
  48.       DataFrame(3).Visible = False
  49.       DataFrame(2).Visible = True
  50.    End If
  51. End Sub
  52.  
  53. Sub ctData4_ClickLeft ()
  54.    If DataFrame(2).Visible = True Then
  55.       DataFrame(2).Visible = False
  56.       DataFrame(3).Visible = True
  57.    End If
  58.    If DataFrame(1).Visible = True Then
  59.       DataFrame(1).Visible = False
  60.       DataFrame(2).Visible = True
  61.    End If
  62.    If DataFrame(0).Visible = True Then
  63.       DataFrame(0).Visible = False
  64.       DataFrame(1).Visible = True
  65.    End If
  66. End Sub
  67.  
  68. Sub ctData4_ClickRight ()
  69.    DataFrame(0).Visible = False
  70.    DataFrame(1).Visible = False
  71.    DataFrame(2).Visible = False
  72.    DataFrame(3).Visible = True
  73. End Sub
  74.  
  75. Sub DataFrame_MouseMove (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  76.    Text1.Text = ""
  77. End Sub
  78.  
  79. Sub Form_Load ()
  80.    DataFrame(1).Visible = False
  81.    DataFrame(2).Visible = False
  82.    DataFrame(3).Visible = False
  83.    DataFrame(0).Visible = True
  84. End Sub
  85.  
  86. Sub Frame1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  87.    Text1.Text = ""
  88. End Sub
  89.  
  90.