Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

Richtextbox doubledlick and richtextbox resize causes text to be selected automatically.

Posted on 2006-10-27
6
Medium Priority
?
489 Views
Last Modified: 2010-08-05
Hi.

This code works!  This code captures "Doubleclicks" on a RichTextBox and then maximizes the richtextbox size.  The problem is that some of the text in the richtextbox becomes selected automatically.  
The problem is not the MaximizeRichTextbox subroutine.  I've proven that.  

Can you help me to stop the automatic text selection.

Thank you.


 Private Sub txtrichbxMemo_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles txtrichbxMemo.MouseDown
        Static lastclick As DateTime
        If Convert.ToString(lastclick) = "#12:00:00 AM#" Then
            lastclick = DateTime.Now : Exit Sub : End If
        Dim Current_Time As DateTime = DateTime.Now
        Dim diff As TimeSpan = Current_Time.Subtract(lastclick)
        lastclick = DateTime.Now
        If diff.Hours * 1000 + diff.Minutes * 1000 + _
        diff.Seconds * 1000 + diff.Milliseconds < 500 Then MaximizeRichTextbox()
end sub
0
Comment
Question by:peispud
  • 4
  • 2
6 Comments
 
LVL 86

Expert Comment

by:Mike Tomlinson
ID: 17820870
What is wrong with using the DoubleClick() event?...

    Private Sub txtrichbxMemo_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtrichbxMemo.DoubleClick
        Dim start As Integer = txtrichbxMemo.SelectionStart
        Dim length As Integer = txtrichbxMemo.SelectionLength

        MaximizeRichTextbox()

        txtrichbxMemo.SelectionStart = start
        txtrichbxMemo.SelectionLength = length
    End Sub

The above code stores the current selection start/length and then restores them after calling MaximizeRichTextbox().



On a side note, your original code could have been written as:

    Private Sub txtrichbxMemo_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles txtrichbxMemo.MouseDown
        Static lastclick As DateTime

        If lastclick <> Nothing Then
            Dim ts As TimeSpan = DateTime.Now.Subtract(lastclick)
            If ts.TotalMilliseconds < 500 Then
                Dim start As Integer = txtrichbxMemo.SelectionStart
                Dim length As Integer = txtrichbxMemo.SelectionLength

                MaximizeRichTextbox()

                txtrichbxMemo.SelectionStart = start
                txtrichbxMemo.SelectionLength = length
            End If
        End If

        lastclick = DateTime.Now
    End Sub
0
 

Author Comment

by:peispud
ID: 17822472
The richtextbox control in visual basic.net does not have a doubleclick event..    i have been trying to create one with using addhandler with no luck.

Also, the code above does not solve the original problem.   When the richtextbox is maximized, some of the text still becomes selected (highlighted)
0
 
LVL 86

Expert Comment

by:Mike Tomlinson
ID: 17822733
You must have VB.Net 2003 (or below)?  There is in fact a DoubleClick() event for the RichTextBox in VB.Net 2005.

Really can't give you any further advice then without seeing more code!

Show us your MaximizeRichTextbox() sub please so we can get a better idea what is happening...

By the way, here is one way to trap a DoubleClick in a RTB in VB.Net 2003:

Public Class Form1
    Inherits System.Windows.Forms.Form

    Private WithEvents myRtbHandler As RtbHandler

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        myRtbHandler = New RtbHandler(Me.txtrichbxMemo)
    End Sub

    Private Sub myRtbHandler_RtbDoubleClicked(ByVal RTB As System.Windows.Forms.RichTextBox) Handles myRtbHandler.RtbDoubleClicked
        Debug.WriteLine("RTB was Double Clicked")
    End Sub

    Private Class RtbHandler
        Inherits NativeWindow

        Private Const WM_LBUTTONDBLCLK As Integer = &H203
        Private RTB As RichTextBox

        Public Event RtbDoubleClicked(ByVal RTB As RichTextBox)

        Public Sub New(ByVal RTB As RichTextBox)
            If Not (RTB Is Nothing) Then
                Me.RTB = RTB
                Me.AssignHandle(RTB.Handle)
            End If
        End Sub

        Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
            Select Case m.Msg
                Case WM_LBUTTONDBLCLK
                    RaiseEvent RtbDoubleClicked(Me.RTB)

            End Select

            MyBase.WndProc(m)
        End Sub

    End Class

End Class
0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 86

Expert Comment

by:Mike Tomlinson
ID: 17822754
Here...made a slight modification to the WndProc() above and the default behaviour for the DoubleClick() even has been suppressed:

Public Class Form1
    Inherits System.Windows.Forms.Form

    Private WithEvents myRtbHandler As RtbHandler

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        myRtbHandler = New RtbHandler(Me.txtrichbxMemo)
    End Sub

    Private Sub myRtbHandler_RtbDoubleClicked(ByVal RTB As System.Windows.Forms.RichTextBox) Handles myRtbHandler.RtbDoubleClicked
        Debug.WriteLine("Double Click on RTB")
        MaximizeRichTextbox()
    End Sub

    Private Sub MaximizeRichTextbox()
        Debug.WriteLine("MaximizeRichTextbox()")
    End Sub

    Private Class RtbHandler
        Inherits NativeWindow

        Private Const WM_LBUTTONDBLCLK As Integer = &H203
        Private RTB As RichTextBox

        Public Event RtbDoubleClicked(ByVal RTB As RichTextBox)

        Public Sub New(ByVal RTB As RichTextBox)
            If Not (RTB Is Nothing) Then
                Me.RTB = RTB
                Me.AssignHandle(RTB.Handle)
            End If
        End Sub

        Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
            Select Case m.Msg
                Case WM_LBUTTONDBLCLK
                    RaiseEvent RtbDoubleClicked(Me.RTB)
                    Exit Sub ' suppress default behaviour

            End Select

            MyBase.WndProc(m)
        End Sub

    End Class

End Class
0
 

Author Comment

by:peispud
ID: 17822958
You were exactly right.  I am using VB.Net 2003.

And of course,  your solution works perfectly.    Thank you .

PS... Is there a significant advantage to moving up to the latest version of VB.Net?
0
 
LVL 86

Accepted Solution

by:
Mike Tomlinson earned 2000 total points
ID: 17823098
I don't do enough development to really know.  I mostly only write snippets for things on EE these days...

VB.Net 2005 does have some nice features though.  The big ones that I really like are a Forms collection and default instances of forms like in the old VB6.  There are lots of other new things as well I'm sure.

Kind of a vague answer there sorry...
0

Featured Post

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

Question has a verified solution.

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

The ECB site provides FX rates for major currencies since its inception in 1999 in the form of an XML feed. The files have the following format (reducted for brevity) (CODE) There are three files available HERE (http://www.ecb.europa.eu/stats/exch…
It was really hard time for me to get the understanding of Delegates in C#. I went through many websites and articles but I found them very clumsy. After going through those sites, I noted down the points in a easy way so here I am sharing that unde…
This video shows how to quickly and easily deploy an email signature for all users in Office 365 and prevent it from being added to replies and forwards. (the resulting signature is applied on the server level in Exchange Online) The email signat…
Are you ready to place your question in front of subject-matter experts for more timely responses? With the release of Priority Question, Premium Members, Team Accounts and Qualified Experts can now identify the emergent level of their issue, signal…
Suggested Courses
Course of the Month9 days, 20 hours left to enroll

927 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