home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / ProjectX1_562922192002.psc / Modules / modStuffX5.bas < prev    next >
Encoding:
BASIC Source File  |  1997-02-08  |  2.3 KB  |  115 lines
  1. Attribute VB_Name = "modStuffX5"
  2. Option Explicit
  3. Public h(1 To 10) As Long
  4.  
  5. Public Sub SaveForm(Height As Long, FormNumber As Long)
  6. '-----------------------------------
  7. '-   Public Sub SaveForm(Height, FormNumber)
  8. '-
  9. '-        Height is the height of the form
  10. '-  FormNumber is just a number to indicate the form
  11. '-
  12. '-   By T-Virus Creations
  13. '- http://www.tvirusonline.be
  14. '- email: tvirus4ever@yahoo.co.uk
  15. '-
  16. '-
  17. '-----------------------------------
  18. h(FormNumber) = Height
  19. End Function
  20. Public Sub RollInForm(FormD As Form, FormNumber As Long, Freeze As Boolean)
  21. '-----------------------------------
  22. '-   Public Sub RollInForm(FormD, FormNumber, Freeze)
  23. '-
  24. '-     This will 'Roll' a form in
  25. '-
  26. '-       FormD is a form, FormNumber is the number
  27. '-     you used to indicate the form and Freeze is a boolean
  28. '-      that indicates to don't use DoEvents or not
  29. '-
  30. '-   By T-Virus Creations
  31. '- http://www.tvirusonline.be
  32. '- email: tvirus4ever@yahoo.co.uk
  33. '-
  34. '-
  35. '-----------------------------------
  36. FormD.Hide
  37. Dim i As Long
  38. Dim x As Long
  39. x = h(FormNumber)
  40.  
  41. FormD.Show
  42. For i = x To 1 Step -1
  43.  
  44. FormD.Height = i
  45. i = i - 9
  46. If Freeze <> True Then
  47. DoEvents
  48. End If
  49. Next
  50. End Sub
  51. Public Sub RollOutForm(FormD As Form, FormNumber As Long, Freeze As Boolean)
  52. '-----------------------------------
  53. '-   Public Sub RollOutForm(FormD, FormNumber, Freeze)
  54. '-
  55. '-     This will 'Roll' a form out
  56. '-
  57. '-       FormD is a form, FormNumber is the number
  58. '-     you used to indicate the form and Freeze is a boolean
  59. '-      that indicates to don't use DoEvents or not
  60. '-
  61. '-   By T-Virus Creations
  62. '- http://www.tvirusonline.be
  63. '- email: tvirus4ever@yahoo.co.uk
  64. '-
  65. '-
  66. '-----------------------------------
  67. FormD.Hide
  68. Dim i As Long
  69. Dim x As Long
  70. x = h(FormNumber)
  71.  
  72. FormD.Show
  73. For i = 1 To x Step 1
  74.  
  75.  
  76. FormD.Height = i
  77. i = i + 9
  78. If Freeze <> True Then
  79. DoEvents
  80. End If
  81. Next
  82.  
  83. End Sub
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90. '-----------------
  91.  
  92.  
  93.  
  94.  
  95. Public Sub FadeIN(FormS As Form, Start As Long, EndN As Long)
  96.  
  97. With FormS
  98. For i = Start To EndN
  99. .BackColor = RGB(i, i, i)
  100. DoEvents
  101. Next
  102. End With
  103. End Sub
  104.  
  105. Public Sub FadeOUT(FormS As Form, Start As Long, EndN As Long)
  106.  
  107. With FormS
  108. For i = EndN To Start Step -1
  109. .BackColor = RGB(i, i, i)
  110. DoEvents
  111. Next
  112. End With
  113. End Sub
  114.  
  115.