Custom Cursor Size VBA

Discussion in 'AutoCAD' started by DonB, Apr 18, 2005.

  1. DonB

    DonB Guest

    I developed a VBA piece of code which I call up from a button but I would
    like to enhance it a bit so that when I place the cursor on the button the
    tooltip will say "change to 100% size" and then when I'm at 100% I would
    like the tooltip to say "change to 10% size"
    Here's the code I use at present.

    Public Sub CrosshairToggle()
    Dim PrefsDisplay as AcadPreferencesDisplay
    Set PrefsDisplay = ThisDrawing.Application.Preferences.Display
    If PrefsDisplay.CursorSize = 10 then
    PrefsDisplay.CursorSize = 100
    Else: PrefsDisplay.CursorSize = 10
    End If
    End Sub

    Can anyone show me how to change the tooltip

    TIA

    DonB
     
    DonB, Apr 18, 2005
    #1
Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments (here). After that, you can post your question and our members will help you out.
Similar Threads

  1. How get rid of custom paper size?

  2. maximum size of custom dictionary for spellchecker in 2002

  3. Problem with "custom footer" size

  4. Custom page size bugs

  5. can't create custom paper size

  6. Plotting to PNG image plotter with custom paper size set. In VBA

  7. Scaling - size of 'dimension' text to plot size

  8. Paper Size reverts to Letter size

Loading...