• Home
 · 
• Windows System Services
 · 
• Shows how to grab and set clipboard data.

Shows how to grab and set clipboard data.

Shows how to grab and set clipboard data.

API Declarations


' first put one richtextbox and picture box in the form and also put threee
'command button at the bottom and named them display clipboard data,clearclipboarddata,savedata in clipboard and see the effect



Rate Shows how to grab and set clipboard data.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

   
   RichTextBox1.Text = ""
   RichTextBox1.TextRTF = ""
   
   If Clipboard.GetFormat(vbCFText) Then
    
         MsgBox "The Clipboard contains only text.", vbSystemModal, "Clipboard"
         RichTextBox1.Visible = True
         Image1.Visible = False
         RichTextBox1.Text = Clipboard.GetText()
            
   ElseIf Clipboard.GetFormat(vbCFBitmap) Then
        
          RichTextBox1.Visible = False
          Image1.Visible = True
          MsgBox "The Clipboard contains the Bitmap.", vbSystemModal, "Clipboard"
          Picture = Clipboard.GetData()
          Image1.Picture = Picture

   ElseIf Clipboard.GetFormat(vbCFDIB) Then
   
          Image1.Visible = False
          RichTextBox1.Visible = True
          MsgBox "The Clipboard contains only rich text.", vbSystemModal, "Clipboard"
          RichTextBox1.TextRTF = Clipboard.GetText()
   
   ElseIf Clipboard.GetFormat(vbCFRTF) Then
            
         Image1.Visible = False
         RichTextBox1.Visible = False
         MsgBox "There is nothing on the Clipboard.", vbSystemModal, "Clipboard"
   
   End If
   
End Sub

Private Sub Command2_Click()

    Clipboard.Clear

End Sub

Private Sub Command3_Click()

If RichTextBox1.Visible = True Then

    Clipboard.SetText RichTextBox1.Text

Else

    Clipboard.SetData Image1.Picture
    
End If

End Sub

Private Sub Form_Load()
    
    Image1.Visible = False
    RichTextBox1.Visible = False
    
End Sub