Determine Enabled Status for Cut, Copy, Paste Toolbar Items

Hello,
I have a toolbar that contains a cut, copy, and paste button and I need them to enable/disable accordingly with my TextStandard textbox.  So for example, if my cursor is in the TextStandard textbox (nothing's selected) and I have text within my clipboard, the cut and copy buttons should become disabled and the paste button should be enabled.  Now if i select atleast a character of text, all 3 buttons should be enabled.  If I don't have anything within my clipboard, the Paste button should be disabled. How do i accomplish this? (exactly like MS word)
Gunit2507Asked:
Who is Participating?
 
psychic_zeroConnect With a Mentor Commented:
Pls create a VB project based on the instruction I gave you in Word document. Then copy and paste this code in the project. Hope this can help you...
Private Sub Command1_Click()
Clipboard.Clear
Toolbar1.Buttons(3).Enabled = False
End Sub
 
Private Sub Form_Load()
Toolbar1.Buttons(1).Enabled = False
Toolbar1.Buttons(2).Enabled = False
 
If Clipboard.GetText = "" Then
    Toolbar1.Buttons(3).Enabled = False
Else
    Toolbar1.Buttons(3).Enabled = True
End If
 
End Sub
 
Private Sub Text1_Click()
If Text1.SelLength > 0 Then
    Toolbar1.Buttons(1).Enabled = True
    Toolbar1.Buttons(2).Enabled = True
Else
    Toolbar1.Buttons(1).Enabled = False
    Toolbar1.Buttons(2).Enabled = False
End If
End Sub
 
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If Text1.SelLength > 0 Then
    Toolbar1.Buttons(1).Enabled = True
    Toolbar1.Buttons(2).Enabled = True
Else
    Toolbar1.Buttons(1).Enabled = False
    Toolbar1.Buttons(2).Enabled = False
End If
End Sub
 
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
   Select Case Button.Key
   Case Is = "Cut"
      Clipboard.SetText Text1.SelText
      Text1.SelText = ""
      Toolbar1.Buttons(3).Enabled = True
   Case Is = "Copy"
      Clipboard.SetText Text1.SelText
      Toolbar1.Buttons(3).Enabled = True
   Case Is = "Paste"
        Text1.SelText = Clipboard.GetText
   End Select
End Sub

Open in new window

form-instruction.doc
0
 
psychic_zeroCommented:
What version of VB you are using?
0
 
Gunit2507Author Commented:
VB6
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.