Sign in or 
- EasyEdit
- Edit tags
-
(what's this?What are these tools?
People just like you can add or edit the content on this site. If you want to try editing, but aren't ready to add to this site, try our demo area.
Read more about editing pages at Wetpaint Central.
) - Report page
Share this
SelectActiveText
Public Sub SelectActiveText()
'Call from the GetFocus events for all the TextBoxes andEnd Sub
'ComboBoxes with Style=0 - Dropdown Combo.
'Select only if tabbed not clicked.
Dim ctrl As Control
Const KEY_LBUTTON = &H1
On Error GoTo SelectActiveTextTrap
Set ctrl = Screen.ActiveControl
If IsLButtonDown() Thenctrl.SelLength = 0Elsectrl.SelStart = 0End If
ctrl.SelLength = Len(ctrl.Text)
SelectActiveTextTrap:
Exit Sub
|
2buck |
Latest page update: made by 2buck
, Nov 30 2006, 11:23 PM EST
(about this update
About This Update
Edited by 2buck
view changes - complete history) |
|
More Info: links to this page
|
There are no threads for this page.
Be the first to start a new thread.
