AllSyntax.com: » Code » Visual Basic » 6 » Cut And Paste


	Nearly all men can stand adversity, but if you want to test a man's character, give him power. - Abraham Lincoln

[login] | [Register]

Cut and Paste

by: bs0d

Description:

VB program allows you to cut, copy and paste information from the clipboard. Check out this code if you're interested in how to copy information with Visual Basic. - (2 txt boxes, 2 labels, edit menu).

See Full Size

Code:

Private Sub Form_Load()
'Will center the form on the screen

frmClippboard.Top = (Screen.Height - frmClippboard.Height) / 2
    frmClippboard.Left = (Screen.Width - frmClippboard.Width) / 2
    
End Sub
Private Sub mnuCopy_Click()
'Will copy text.

Clipboard.Clear
    Clipboard.SetText txtName1.SelText
    
End Sub

Private Sub mnuCut_Click()
'Cuts selected text.

Clipboard.Clear                      'clears the clipboard
    Clipboard.SetText txtName1.SelText   'copys selected (hilighted) text to clipboard.
    txtName1.SelText = ""          'removes text after being cut.
    
End Sub

Private Sub mnuPaste_Click()
'Takes info from clipboard, and paste in text2

txtName2.SelText = Clipboard.GetText()
    Clipboard.Clear
End Sub

Private Sub mnuEdit_Click()
'Will fade out features not available

If txtName1.SelText = "" Then      'If not text is selected...
mnuCut.Enabled = False               'not available
mnuCopy.Enabled = False            'not available
Else
    mnuCut.Enabled = True            'available of text is selected.
    mnuCopy.Enabled = True          'available if text is selected.
End If

If Clipboard.GetText() = "" Then   'If clipboard is empty...
    mnuPaste.Enabled = False       'not available
Else
    mnuPaste.Enabled = True        'available if clipboard contains text
End If

End Sub

No Comments for this page.

You Must be signed in or a member to comment.