• 0

[vb .net] Find cursor position in textbox


Question

17 answers to this question

Recommended Posts

  • 0

Try: taken from http://www.vb-helper.com/howto_track_textbox_caret.html

Private Sub CheckPosition()

Dim char_pos As Long

Dim row As Long

Dim col As Long

char_pos = SendMessage(Text1.hwnd, EM_GETSEL, 0, 0)

char_pos = char_pos \ &H10000

row = SendMessage(Text1.hwnd, EM_LINEFROMCHAR, _

char_pos, 0) + 1

col = char_pos - SendMessage(Text1.hwnd, EM_LINEINDEX, _

-1, 0) + 1

lblPosition.Caption = "(" & Format$(row) & ", " & _

Format$(col) & ")"

End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As _

Integer)

CheckPosition

End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As _

Integer)

CheckPosition

End Sub

Private Sub Text1_MouseDown(Button As Integer, Shift As _

Integer, X As Single, Y As Single)

CheckPosition

End Sub

Private Sub Text1_MouseUp(Button As Integer, Shift As _

Integer, X As Single, Y As Single)

CheckPosition

End Sub

  • 0
  bangbang023 said:
meaning natively it doesn't have support for it. There are some work around "hacks" but it's not worth it just to simplify the current line number method.

584831062[/snapback]

do you mean drag and drop files into the richtextbox?

  • 0
  bangbang023 said:
yes. works fine with textboxes but after trying ot get it to work with richtext and looking online, it seems as though it's not as "accessible" as it is with textboxes.

584833023[/snapback]

why is not as accessible? I'm looking at the control and it supports d-n-d.

  • 0
  bangbang023 said:
I don't know, but it doesn't work at all for me.

584834030[/snapback]

May I see your DragDrop handler code?

<edit>I just got it to work dragging from a listbox to a richtextbox.

This is all i needed in the richtextbox DragDrop event handler

richTextBox1.SelectedText = e.Data.GetData("System.String", true).ToString();

  • 0

im dragging and dropping from explorer.......I have a textbox in a child form. I put the drag drop event in the parent form and t picks it up fine. Does not do so with the richtextbox. I tired localizing the drop drop code from the parent form to the childform and have it only read drag drop events on the richtextbox itself and still nothing. This is the code I'm using in the parent form:

Private Sub mainForm_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragEnter
        If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then
            e.Effect = DragDropEffects.All
        Else
            e.Effect = DragDropEffects.None
        End If
    End Sub


    Private Sub mainForm_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragDrop
        Dim number As Integer = noteArray.Count
        Dim title As String

        'get file name and location
        Dim s() As String = e.Data.GetData("FileDrop", False)

        Dim i As Integer = 0
        While i &lt; s.Length
            'creates a new notepad window
            Call createNewPad()

            title = s(i).Substring(s(i).LastIndexOf("\") + 1)
            noteArray(number).text = title
            Me.tabPads.TabPages(number).Text = title

            'open file and input text into txtMain
            Dim dragStream As New System.IO.FileStream(s(i), IO.FileMode.Open, IO.FileAccess.Read, IO.FileShare.Read)
            Dim dragReader As New System.IO.StreamReader(dragStream)
            noteArray(number).txtMain.text = dragReader.ReadToEnd
            dragReader.Close()
            dragStream.Close()

            noteArray(number).txtMain.select(0, 0)
            noteArray(number).fileNameExists = True
            noteArray(number).contentchanged = False
            noteArray(number).filenamesaved = s(i)
            number = number + 1
            i = i + 1
        End While

        'give focus to NexPad
        Me.Activate()
        noteArray(i).txtMain.focus()

    End Sub

Even when I specifically set it to the rich text box, still no go.

This topic is now closed to further replies.
  • Recently Browsing   0 members

    • No registered users viewing this page.
  • Posts

    • I'm not simping, I'm telling it how it is. This is the norm and has been forever. Profits need to keep growing, it doesn't matter if you are valued at a trillion or a million. As long as you are part of public trading that's the name of the game. If it's cheaper for the company to outsource, they will, and you'll get laid off. Welcome to capitalism 101. Like I said, the problem is the system itself.
    • Samsung may offer Galaxy AI free for life on the Galaxy Z Fold7, Z Flip7, and Z Flip7 FE by Sagar Naresh Bhavsar Samsung is all set to unveil its latest foldables: the Galaxy Z Fold7, Z Flip7, the affordable Z Flip7 FE, along with the Galaxy Watch8 series at the Unpacked event, possibly in New York City. The Galaxy Z Fold7 is expected to be the thinnest book-style foldable from the company, while the Galaxy Z Flip7 is tipped to come with a full-screen cover display. These devices are almost confirmed to launch with Android 16-based One UI 8 out of the box, the beta of which is already live for the Galaxy S25 series. Samsung is also expected to give a glimpse of its first XR headset, the Galaxy XR, dubbed "Project Moohan," at the event. However, there may be something more exciting coming for upcoming foldable fans. A reliable leaker, PandaFlashPro on X, has tipped that you might get all Galaxy AI features for free for life with the upcoming Galaxy Z Flip7 and Galaxy Z Fold7. Notably, Galaxy AI will also reportedly be permanently free on the affordable Galaxy Z Flip7 FE. The leaker also claimed that the Galaxy Z Fold7, Z Flip7, and Z Flip7 FE will also come with Gemini Advanced plus 2TB of cloud storage, free for six months. This is similar to theoffer that Samsung offered the Galaxy S25 series earlier this year. However, the company cleared the air that the Galaxy AI features on the Galaxy S25 series will be free till the end of 2025, after which a subscription-based model will be introduced. If true, then you will be able to enjoy Galaxy AI features such as Sketch to Image, Generative Image, Note Assist, Live Translate, Interpreter, Chat Assist, etc., free for a lifetime on the upcoming foldables, setting it apart from its competitors.
    • Summary for all: Some WD SSDs need firmware updates for 24H2.
    • Next-gen AMD GPUs reported to support HDMI 2.2 with up to 80Gbit/s bandwidth by Aditya Tiwari Some beans have spilled around AMD's rumored upgrades for its next-generation graphics architecture. The American silicon giant is expected to support up to 80 Gbps mode on HDMI 2.2 for its upcoming graphics architecture, internally codenamed GFX13, and expected to launch as RDNA 5 or UDNA. The latest information comes from the leaker @Kepler_L2, who took to their social media account on X (via VideoCardz). It strengthens the hopes of the latest HDMI standard and support for faster bandwidth making their way to the next generation of AMD GPUs. The HDMI 2.2 standard was announced earlier this year and released to manufacturers in the first half of 2025. It pushes the maximum allowed bit rate to 96 Gbps and supports Latency Indication Protocol (LIP) to improve audio and video synchronization. However, according to Kepler's post, RDNA 5 GPUs are expected to support only 64 Gbps and 80 Gbps modes. This suggests that the 96 Gbps mode may not be supported on the new architecture, while it remains unclear whether this is due to some hardware limitation or will be added later. Although the new piece of information pertains to GFX13, it doesn't clarify whether it's related to the PRO or Radeon RX series. The company has previously used UHBR 13.5 (54 Gbps) for its consumer-focused GPUs to reduce costs while supporting UHBR 20 (80 Gbps) on PRO cards, according to the leaker. It remains to be seen whether AMD treats the two product lines the same or differently. Another standard announced earlier this year was DisplayPort 2.1b, which keeps the same maximum bandwidth of 80 Gbps but supports three times the cable length for UHBR20 GPU-to-display connections compared to existing VESA-certified DP80 passive cables. The new standard is supported on NVIDIA's RTX 50 and RTX PRO Blackwell series GPUs. For now, there is no update on whether AMD will bring DisplayPort 2.1b support to the GFX13 architecture.
  • Recent Achievements

    • First Post
      MikeK13 earned a badge
      First Post
    • One Month Later
      OHI Accounting earned a badge
      One Month Later
    • Week One Done
      OHI Accounting earned a badge
      Week One Done
    • First Post
      Thornskade earned a badge
      First Post
    • Week One Done
      Higante88 earned a badge
      Week One Done
  • Popular Contributors

    1. 1
      +primortal
      710
    2. 2
      ATLien_0
      270
    3. 3
      Michael Scrip
      202
    4. 4
      +FloatingFatMan
      178
    5. 5
      Steven P.
      129
  • Tell a friend

    Love Neowin? Tell a friend!