Solved

Determine Enabled Status for Cut, Copy, Paste Toolbar Items

Posted on 2008-06-22
5
224 Views
Last Modified: 2011-10-19
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)
0
Comment
Question by:Gunit2507
  • 2
5 Comments
 
LVL 6

Expert Comment

by:psychic_zero
ID: 21843700
What version of VB you are using?
0
 

Author Comment

by:Gunit2507
ID: 21851269
VB6
0
 
LVL 6

Accepted Solution

by:
psychic_zero earned 500 total points
ID: 21853142
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

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Most everyone who has done any programming in VB6 knows that you can do something in code like Debug.Print MyVar and that when the program runs from the IDE, the value of MyVar will be displayed in the Immediate Window. Less well known is Debug.Asse…
Enums (shorthand for ‘enumerations’) are not often used by programmers but they can be quite valuable when they are.  What are they? An Enum is just a type of variable like a string or an Integer, but in this case one that you create that contains…
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…

932 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

8 Experts available now in Live!

Get 1:1 Help Now