home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Visual Basic new SourceCode and Projects / AlbumScreenSaver / IMAGES.BAS < prev    next >
Encoding:
BASIC Source File  |  1999-08-24  |  1.3 KB  |  52 lines
  1. Attribute VB_Name = "sairam"
  2. ' Hi Folks this application is written by
  3. ' Nagalla Anil Choudary
  4. ' Software Engineer
  5. ' s/o N.Ram Babu
  6. ' D.K.Pallem Bapatla-522 101
  7. ' A.P  , India
  8. '
  9. ' u can use this application as a photo album also
  10. ' You can reproduce , customize this code in any manner
  11. ' If u satisfy or modify please leave your suggestions
  12. ' Happy programming
  13.  
  14.  
  15. Option Explicit
  16. Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
  17. Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
  18. Global gDepth As Integer
  19. Public Sub Main()
  20.     If App.PrevInstance Then End
  21.     If InStr(Command, "/s") > 0 Then
  22.         aniCursorOff
  23.         sai.Show
  24.     ElseIf InStr(Command, "/c") > 0 Then
  25.         prop.Show
  26.         
  27.     End If
  28. End Sub
  29.  
  30. Public Sub aniCursorOff()
  31. Dim CCDepth As Integer
  32.     CCDepth = ShowCursor(False)
  33.     gDepth = CCDepth + 1
  34.     Do While CCDepth > -1
  35.         CCDepth = ShowCursor(False)
  36.     Loop
  37. End Sub
  38.  
  39. Public Sub aniCursorOn()
  40. Dim CCDepth As Integer
  41.     CCDepth = ShowCursor(True)
  42.     gDepth = CCDepth + 1
  43.     Do While CCDepth < gDepth
  44.         CCDepth = ShowCursor(True)
  45.     Loop
  46. End Sub
  47.  
  48. Public Sub EndScreenSaver()
  49.     Call aniCursorOn
  50.     End
  51. End Sub
  52.