返回首页

您好,
我需要克隆Windows记事本,但我已经运行到有点问题。 Windows的记事本有一个状态栏,显示闪烁的光标当前行和列。我一直在做一些研究,我跑到下面的代码,而我做了一些改变:

Public Sub UpdateStatusBar()

       Dim index As Integer = TextBox1.SelectionStart

       Dim currentLine As Integer = TextBox1.GetLineFromCharIndex(index)

       Dim currentColumn As Integer = index - TextBox1.GetFirstCharIndexFromLine(currentLine)

 

       tss1.Text = "Line " + (currentLine + 1).ToString + ", column " + (currentColumn + 1).ToString

   End Sub

我呼吁这个分textbox.text_changed事件,它完美地工作,而我写的。我还呼吁textbox_keydown以便更新状态栏时,我周围用箭头键控制移动。但在这里它被搞砸了。当我走动的文本行和列的值永远是错的。我试图约增加1或2或0下说的价值例如按下key.left的玩,但我还没有想出一个混合进化计算的代表完全的光标。我需要它的工作就像哪行和列窗口便条。想法?有人吗?

我也认为这将是相当容易做,如果闪烁的光标位置可以retreived不知何故,但我不知道如果这是可能的。关于这个问题的,我还没有发现任何东西。

谢谢

回答

评论会员: 时间:2
O