home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / csview / fclipbrd.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-04-05  |  2.2 KB  |  72 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.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    Height          =   4020
  12.    Left            =   330
  13.    LinkTopic       =   "Form2"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   3615
  17.    ScaleWidth      =   4290
  18.    Top             =   2865
  19.    Width           =   4410
  20.    Begin vsInForm VSInForm1 
  21.       BarColor        =   &H00808000&
  22.       BarColorInactive=   &H00808000&
  23.       BarHeight       =   36
  24.       BarStyle        =   3  'Raised
  25.       ButtonsLeft     =   0  '0
  26.       ButtonsRight    =   2  '2
  27.       CapAlign        =   1  'Left Center
  28.       CapColor        =   &H00FFFFFF&
  29.       CapColorInactive=   &H00FFFFFF&
  30.       CapMultiLine    =   -1  'True
  31.       Caption         =   "  Visual Clipboard"
  32.       ClipMon         =   -1  'True
  33.       ConvInfo        =   FCLIPBRD.FRX:0000
  34.       FontBold        =   -1  'True
  35.       FontItalic      =   0   'False
  36.       FontName        =   "Arial"
  37.       FontSize        =   12
  38.       FontStrikethru  =   0   'False
  39.       FontUnderline   =   0   'False
  40.       FrameColor      =   &H00C0C0C0&
  41.       FrameColorInactive=   &H00C0C0C0&
  42.       FrameStyle      =   4  'Raised Frame
  43.       FrameWidth      =   12
  44.       Left            =   735
  45.       MinHeight       =   870
  46.       MinWidth        =   3500
  47.       PictRight0      =   FCLIPBRD.FRX:000B
  48.       PictRight1      =   FCLIPBRD.FRX:0181
  49.       Top             =   1260
  50.    End
  51. Option Explicit
  52. Sub Form_Load ()
  53.   VSinform1.CustomFrame = True
  54.   Me.Show
  55.   MsgBox "Copy something to the clipboard and see it on the Visual Clipboard"
  56. End Sub
  57. Sub vsInForm1_ClickRButton (Button As Integer)
  58.   Select Case Button
  59.     Case 0
  60.       Unload Me
  61.     Case 1    'Clear
  62.       Me.Picture = LoadPicture()
  63.   End Select
  64. End Sub
  65. Sub VSInForm1_NewClipboardData ()
  66.   Me.Picture = clipboard.GetData()
  67.   If clipboard.GetFormat(1) Then
  68.     Cls
  69.     Print clipboard.GetText()
  70.   End If
  71. End Sub
  72.