home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1995 October / PCPRO_OCT.ISO / code / vb / global~1.txt < prev   
Encoding:
Text File  |  1995-08-08  |  3.8 KB  |  100 lines
  1. æ general declarations section
  2. Option Explicit
  3.  
  4. Global Const CASCADE = 0
  5. Global Const TILE_HORIZONTAL = 1
  6. Global Const TILE_VERTICAL = 2
  7. Global Const ARRANGE_ICONS = 3
  8.  
  9.  
  10. æ procedures
  11. Sub DisplayScrollBars ()
  12.   Dim x, y, state As Integer
  13.   x = 0
  14.   y = 0
  15.  
  16.   frmMDIBitmap.ActiveForm.picMain.Height = frmMDIBitmap.ActiveForm.ScaleHeight
  17.   frmMDIBitmap.ActiveForm.picMain.Width = frmMDIBitmap.ActiveForm.ScaleWidth
  18.   frmMDIBitmap.ActiveForm.picBitmap.AutoSize = True
  19.   
  20.   If frmMDIBitmap.ActiveForm.picBitmap.Height < frmMDIBitmap.ActiveForm.picMain.Height Then
  21.     frmMDIBitmap.ActiveForm.sclVertical.Visible = False
  22.   Else
  23.     x = 1
  24.   End If
  25.   
  26.   If frmMDIBitmap.ActiveForm.picBitmap.Width < frmMDIBitmap.ActiveForm.picMain.Width Then æall one line
  27.     frmMDIBitmap.ActiveForm.sclHorizontal.Visible = False
  28.   Else
  29.     y = 2
  30.   End If
  31.  
  32.   state = x + y
  33.  
  34.   Select Case state
  35.   ' both invisible
  36.   Case 0
  37.     frmMDIBitmap.ActiveForm.picBitmap.Move 0, 0
  38.     frmMDIBitmap.ActiveForm.sclHorizontal.Value = 0
  39.     frmMDIBitmap.ActiveForm.sclVertical.Value = 0
  40.   ' vscroll only
  41.   Case 1
  42.     frmMDIBitmap.ActiveForm.sclVertical.Move frmMDIBitmap.ActiveForm.ScaleWidth - frmMDIBitmap.ActiveForm.sclVertical.Width, 0 æall one line
  43.     frmMDIBitmap.ActiveForm.sclVertical.Height = frmMDIBitmap.ActiveForm.ScaleHeight
  44.     frmMDIBitmap.ActiveForm.sclVertical.Visible = True
  45.     frmMDIBitmap.ActiveForm.sclHorizontal.Value = 0
  46.   ' hscroll only
  47.   Case 2
  48.     frmMDIBitmap.ActiveForm.sclHorizontal.Move 0, frmMDIBitmap.ActiveForm.ScaleHeight - frmMDIBitmap.ActiveForm.sclHorizontal.Height æall one line
  49.     frmMDIBitmap.ActiveForm.sclHorizontal.Width = frmMDIBitmap.ActiveForm.ScaleWidth
  50.     frmMDIBitmap.ActiveForm.sclHorizontal.Visible = True
  51.     frmMDIBitmap.ActiveForm.sclVertical.Value = 0
  52.   ' hscroll and vscroll
  53.   Case 3
  54.     frmMDIBitmap.ActiveForm.sclVertical.Move frmMDIBitmap.ActiveForm.ScaleWidth - frmMDIBitmap.ActiveForm.sclVertical.Width, 0 æall one line
  55.     frmMDIBitmap.ActiveForm.sclVertical.Height = frmMDIBitmap.ActiveForm.ScaleHeight - frmMDIBitmap.ActiveForm.sclHorizontal.Height æall one line
  56.     frmMDIBitmap.ActiveForm.sclHorizontal.Move 0, frmMDIBitmap.ActiveForm.ScaleHeight - frmMDIBitmap.ActiveForm.sclHorizontal.Height æall one line
  57.     frmMDIBitmap.ActiveForm.sclHorizontal.Width = frmMDIBitmap.ActiveForm.ScaleWidth
  58.     frmMDIBitmap.ActiveForm.sclHorizontal.Visible = True
  59.     frmMDIBitmap.ActiveForm.sclVertical.Visible = True
  60.     frmMDIBitmap.ActiveForm.picBitmap.AutoSize = False
  61.     frmMDIBitmap.ActiveForm.picBitmap.Height = frmMDIBitmap.ActiveForm.picMain.Height - frmMDIBitmap.ActiveForm.picBitmap.Top - frmMDIBitmap.ActiveForm.sclHorizontal.Height æall one line
  62.     frmMDIBitmap.ActiveForm.picBitmap.Width = frmMDIBitmap.ActiveForm.picMain.Width - frmMDIBitmap.ActiveForm.picBitmap.Left - frmMDIBitmap.ActiveForm.sclVertical.Width æall one line
  63.   End Select
  64. End Sub
  65.  
  66. Sub EditCopyProc ()
  67. Clipboard.Clear
  68. Clipboard.SetData frmMDIBitmap.ActiveForm.picBitmap.Picture, 8
  69. End Sub
  70.  
  71. Sub EditCutProc ()
  72. Clipboard.Clear
  73. Clipboard.SetData frmMDIBitmap.ActiveForm.picBitmap.Picture, 8
  74. frmMDIBitmap.ActiveForm.picBitmap = LoadPicture()
  75. frmMDIBitmap.ActiveForm.Caption = "View Window"
  76. End Sub
  77.  
  78. Sub EditPasteProc ()
  79. frmMDIBitmap.ActiveForm.picBitmap = Clipboard.GetData(8)
  80. frmMDIBitmap.ActiveForm.Caption = "View Window"
  81. End Sub
  82.  
  83. Sub FileNewProc ()
  84. Dim F As New frmBitmap
  85. F.Show
  86. End Sub
  87.  
  88. Sub FileOpenProc ()
  89.   frmBitmap.cdoBitmap.Filter = "*.BMP (Bitmaps)|*.BMP"
  90.   frmBitmap.cdoBitmap.FilterIndex = 1
  91.   frmBitmap.cdoBitmap.Action = 1
  92.   frmMDIBitmap.ActiveForm.picBitmap.Picture = LoadPicture(frmBitmap.cdoBitmap.Filename)
  93.   frmMDIBitmap.ActiveForm.Caption = frmBitmap.cdoBitmap.Filename
  94.   
  95.   frmBitmap.sclHorizontal.Max = frmBitmap.picBitmap.Width
  96.   frmBitmap.sclVertical.Max = frmBitmap.picBitmap.Height
  97.  
  98.   DisplayScrollBars
  99. End Sub
  100.