Solved

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

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

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
Are your AD admin tools letting you down?

Managing Active Directory can get complicated.  Often, the native tools for managing AD are just not up to the task.  The largest Active Directory installations in the world have relied on one tool to manage their day-to-day administration tasks: Hyena. Start your trial today.

 
LVL 85

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 85

Accepted Solution

by:
Mike Tomlinson earned 500 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

Enterprise Mobility and BYOD For Dummies

Like “For Dummies” books, you can read this in whatever order you choose and learn about mobility and BYOD; and how to put a competitive mobile infrastructure in place. Developed for SMBs and large enterprises alike, you will find helpful use cases, planning, and implementation.

Question has a verified solution.

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

Suggested Solutions

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…
A while ago, I was working on a Windows Forms application and I needed a special label control with reflection (glass) effect to show some titles in a stylish way. I've always enjoyed working with graphics, but it's never too clever to re-invent …
In a recent question (https://www.experts-exchange.com/questions/28997919/Pagination-in-Adobe-Acrobat.html) here at Experts Exchange, a member asked how to add page numbers to a PDF file using Adobe Acrobat XI Pro. This short video Micro Tutorial sh…
Finds all prime numbers in a range requested and places them in a public primes() array. I've demostrated a template size of 30 (2 * 3 * 5) but larger templates can be built such 210  (2 * 3 * 5 * 7) or 2310  (2 * 3 * 5 * 7 * 11). The larger templa…

831 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