Function SetCase(ToUpper As Boolean) Dim ZeroLength As Boolean ZeroLength = (EditField1.SelLength = 0) If ZeroLength = True Then EditField1.SelLength = (Len(EditField1.Text) - EditField1.SelStart) // select all text past the insertion point End If If ToUpper = True Then EditField1.SelText = Uppercase(EditField1.SelText) Else EditField1.SelText = Lowercase(EditField1.SelText) End If If ZeroLength = True Then EditField1.SelLength = 0 // reset insertion point End If // the only drawback to this code is that it could cause the editfield to change its scroll position (which is *STILL* very annoyingly hard to control)
On 6/9/06, Brian Heibert <[EMAIL PROTECTED]> wrote:
How can I change the case of a some text in a edit field? I want to have two buttons one is A and the other is a and when clicked they would change the case of either selected text or the text starting where the blinking line thing is I know about UpperCase & Lowercase commands is that all I have to do or is there something else I need to do to get it to only do the case change on either selected text or the text starting where the blinking line thing is? Sorry I forgot what that line thing is called Brian Heibert [EMAIL PROTECTED] _______________________________________________ Unsubscribe or switch delivery mode: <http://www.realsoftware.com/support/listmanager/> Search the archives of this list here: <http://support.realsoftware.com/listarchives/lists.html>
-- Keith Bennett, tA-Kane Software developer and Macintosh enthusiast Free iPods!!! http://www.freeiPods.com/?r=10867472 _______________________________________________ Unsubscribe or switch delivery mode: <http://www.realsoftware.com/support/listmanager/> Search the archives of this list here: <http://support.realsoftware.com/listarchives/lists.html>
