Solved

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

Posted on 2006-10-27
6
479 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 85

Expert Comment

by:Mike Tomlinson
Comment Utility
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
Comment Utility
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 85

Expert Comment

by:Mike Tomlinson
Comment Utility
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
Do You Know the 4 Main Threat Actor Types?

Do you know the main threat actor types? Most attackers fall into one of four categories, each with their own favored tactics, techniques, and procedures.

 
LVL 85

Expert Comment

by:Mike Tomlinson
Comment Utility
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
Comment Utility
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 85

Accepted Solution

by:
Mike Tomlinson earned 500 total points
Comment Utility
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

How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

Join & Write a Comment

This tutorial demonstrates one way to create an application that runs without any Forms but still has a GUI presence via an Icon in the System Tray. The magic lies in Inheriting from the ApplicationContext Class and passing that to Application.Ru…
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 remove a single email address from the Outlook 2010 Auto Suggestion memory. NOTE: For Outlook 2016 and 2013 perform the exact same steps. Open a new email: Click the New email button in Outlook. Start typing the address: …
You have products, that come in variants and want to set different prices for them? Watch this micro tutorial that describes how to configure prices for Magento super attributes. Assigning simple products to configurable: We assigned simple products…

762 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

9 Experts available now in Live!

Get 1:1 Help Now