home *** CD-ROM | disk | FTP | other *** search
/ Best Tools for JAVA / Best Tools for JAVA.iso / VIEWERS / VSVIEW / VSVIEW.ZIP / FCLIPBRD.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-11-04  |  2.1 KB  |  68 lines
  1. VERSION 2.00
  2. Begin Form fClipbrd 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Visual Clipboard"
  5.    ClientHeight    =   3615
  6.    ClientLeft      =   390
  7.    ClientTop       =   3210
  8.    ClientWidth     =   4290
  9.    Height          =   4110
  10.    Left            =   285
  11.    LinkTopic       =   "Form2"
  12.    ScaleHeight     =   3615
  13.    ScaleWidth      =   4290
  14.    Top             =   2820
  15.    Width           =   4500
  16.    Begin vsInForm VSInForm1 
  17.       BarColor        =   &H00808000&
  18.       BarColorInactive=   &H00808000&
  19.       BarHeight       =   36
  20.       BarStyle        =   3  'Raised
  21.       ButtonsLeft     =   0  '0
  22.       ButtonsRight    =   2  '2
  23.       CapAlign        =   1  'Left Center
  24.       CapColor        =   &H00FFFFFF&
  25.       CapColorInactive=   &H00FFFFFF&
  26.       CapMultiLine    =   -1  'True
  27.       Caption         =   "  Visual Clipboard"
  28.       ClipMon         =   -1  'True
  29.       ConvInfo        =   FCLIPBRD.FRX:0000
  30.       FontBold        =   -1  'True
  31.       FontItalic      =   0   'False
  32.       FontName        =   "Arial"
  33.       FontSize        =   12
  34.       FontStrikethru  =   0   'False
  35.       FontUnderline   =   0   'False
  36.       FrameColor      =   &H00C0C0C0&
  37.       FrameColorInactive=   &H00C0C0C0&
  38.       FrameStyle      =   4  'Raised Frame
  39.       FrameWidth      =   12
  40.       Left            =   735
  41.       MinHeight       =   870
  42.       MinWidth        =   3500
  43.       PictRight0      =   FCLIPBRD.FRX:000B
  44.       PictRight1      =   FCLIPBRD.FRX:0181
  45.       Top             =   1260
  46.    End
  47. Option Explicit
  48. Sub Form_Load ()
  49.   VSinform1.CustomFrame = True
  50.   Me.Show
  51.   MsgBox "Copy something to the clipboard and see it on the Visual Clipboard"
  52. End Sub
  53. Sub VSInForm1_ClickRButton (Button As Integer)
  54.   Select Case Button
  55.     Case 0
  56.       Unload Me
  57.     Case 1    'Clear
  58.       Me.Picture = LoadPicture()
  59.   End Select
  60. End Sub
  61. Sub VSInForm1_NewClipboardData ()
  62.   Me.Picture = clipboard.GetData()
  63.   If clipboard.GetFormat(1) Then
  64.     Cls
  65.     Print clipboard.GetText()
  66.   End If
  67. End Sub
  68.