home *** CD-ROM | disk | FTP | other *** search
/ The Best of Select: Windows 95 Special 2 / WIN95_2.bin / utils / envelop / envelop.6 / Tools / Bootcamp / basic / clpboard / clpboard.eto < prev    next >
Encoding:
Text File  |  1996-07-08  |  3.7 KB  |  133 lines
  1. Type ClipBoardMasterForm From SampleMasterForm
  2.   Dim Clip As XferData
  3.   Dim txtViewText As New TextBox
  4.   Dim cmdCopyText As New Button
  5.   Dim cmdViewText As New Button
  6.   Dim cmdCopyImage As New Button
  7.   Dim cmdViewPicture As New Button
  8.   Dim imgViewPicture As New Image
  9.   Dim BitmapSource As New Bitmap
  10.  
  11.   ' METHODS for object: ClipBoardMasterForm
  12.   Sub cmdCopyText_Click()
  13.     Dim xf as New XferData
  14.     xf.Text = txtViewText.Text
  15.   End Sub
  16.  
  17.   Sub DragStart(xf as XferData, x As Single, y As Single)
  18.     xf.SetData Clip
  19.     xf.Drag(1)
  20.   End Sub
  21.  
  22.   Sub cmdViewText_Click()
  23.     Dim xf as New XferData
  24.     txtViewText.Text = xf.Text
  25.   End Sub
  26.  
  27.   Sub ResetApplication_Click()
  28. '    txtViewText.ScrollBars = 3
  29. '    txtViewText.BorderStyle = 1
  30.     txtViewText.Text = ""
  31.   
  32.     ' Clear the bitmap
  33.     BitmapSource.LoadType = "FileBased"
  34.     BitmapSource.FileName = ""
  35.     imgViewPicture.Refresh
  36.   End Sub
  37.  
  38.   Sub imgViewPicture_DragAndDrop(source As XferData, x As Single, y As Single, state As OleDropState, effect As OleDropEffect)
  39.     DragAndDrop(source, x, y, state, effect)
  40.   End Sub
  41.  
  42.   Sub cmdCopyImage_Click()
  43.     XferData.SetPicture BitmapSource.GetPicture
  44.   End Sub
  45.  
  46.   Sub ClipInfo()
  47.     BitmapSource.SetPicture Clip.GetPicture
  48.     RefreshBitmap
  49.   
  50.     txtViewText.Text = Clip.Text
  51.   End Sub
  52.  
  53.   Sub DragAndDrop(source As XferData, x As Single, y As Single, state As OleDropState, effect As OleDropEffect)
  54.     If state == 3 Then 
  55.       Clip = source.GetData
  56.       ClipInfo()
  57.     ElseIf state == 4 Then 
  58.       BitmapSource.LoadType = "FileBased"
  59.       BitmapSource.FileName = source.FileName
  60.       RefreshBitmap
  61.       Clip = BitmapSource.GetPicture
  62.     End If
  63.   End Sub
  64.  
  65.   Sub cmdViewPicture_Click()
  66.     Clip = XferData.Copy
  67.     BitmapSource.SetPicture Clip.GetPicture
  68.     RefreshBitmap
  69.   End Sub
  70.  
  71.   Sub RefreshBitmap
  72.     With imgViewPicture
  73.       .ScaleX = 1
  74.       .ScaleY = 1
  75.       .CropXOffset = 0
  76.       .CropYOffset = 0
  77.       .Refresh
  78.     End With
  79.   End Sub
  80.  
  81. End Type
  82.  
  83. Begin Code
  84. ' Reconstruction commands for object: ClipBoardMasterForm
  85. '
  86.   With ClipBoardMasterForm
  87.     With .txtViewText
  88.       .Move(300, 300, 6150, 1350)
  89.       .WordWrap = True
  90.       .ScrollBars = "Both"
  91.       .MultiLine = True
  92.     End With  'ClipBoardMasterForm.txtViewText
  93.     With .cmdCopyText
  94.       .Caption = "Copy Text to Clipboard"
  95.       .Move(300, 1800, 2550, 450)
  96.     End With  'ClipBoardMasterForm.cmdCopyText
  97.     With .cmdViewText
  98.       .Caption = "View Text in Clipboard"
  99.       .Move(3900, 1800, 2550, 450)
  100.     End With  'ClipBoardMasterForm.cmdViewText
  101.     With .cmdCopyImage
  102.       .Caption = "Copy Image to Clipboard"
  103.       .Move(300, 5700, 2550, 450)
  104.     End With  'ClipBoardMasterForm.cmdCopyImage
  105.     With .cmdViewPicture
  106.       .Caption = "View Image in Clipboard"
  107.       .Move(3900, 5700, 2550, 450)
  108.     End With  'ClipBoardMasterForm.cmdViewPicture
  109.     With .imgViewPicture
  110.       .Caption = "imgViewPicture"
  111.       .BackColor = 16777215
  112.       .Move(300, 2550, 6150, 3000)
  113.       .BevelOuter = "Line"
  114.       .BevelWidth = 1
  115.       .AutoInitCropRect = False
  116.       .Picture = ClipBoardMasterForm.BitmapSource
  117.       .ResizeMode = "Clip"
  118.       .CropYOffset = 173
  119.     End With  'ClipBoardMasterForm.imgViewPicture
  120.     With .BitmapSource
  121.     End With  'ClipBoardMasterForm.BitmapSource
  122.     With .helpfile
  123.       .FileName = "W:\Examples\clpboard\clpboard.hlp"
  124.     End With  'ClipBoardMasterForm.helpfile
  125.     .FileDrop = True
  126.     .Caption = "BOOT CAMP ClipBoard Viewer"
  127.     .Move(5280, 1530, 6855, 7140)
  128.     .Clip = Nothing
  129.     .SampleDir = "W:\Examples\clpboard\"
  130.     .SampleName = "clpboard"
  131.   End With  'ClipBoardMasterForm
  132. End Code
  133.