vb.net文本框定位 文本框怎么定位

vb.net获得文本框内每个字的位置

可以用多个label来截取文本，然后把一个空的文本框放到中间去。

10多年的都兰网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。全网整合营销推广的优势是能够根据用户设备显示端的尺寸不同，自动调整都兰建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。创新互联从事“都兰网站设计”,“都兰网站推广”以来，每个客户项目都认真落实执行。

VB 如何自动选择文本框里面特定位置的字符？

文本框有 表示选择开始。长度的属性，

好像是 selStart 和selTextLength，这两个属性都是可读写的

再结合字符串查找函数就可以做到了。

////////

给点分啊，我帮你写了^_^

vs2005 ＋vb.net 测试通过，

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

TextBox1.Text = "我爱编程－百度知道"

End Sub

Private Sub TextBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Click

Dim curindex As Integer = TextBox1.SelectionStart

Dim ganindex As Integer = TextBox1.Text.IndexOf("－")

If curindex ganindex Then

TextBox1.SelectionStart = 0

TextBox1.SelectionLength = ganindex

Else

TextBox1.SelectionStart = ganindex + 1

TextBox1.SelectionLength = TextBox1.Text.Length - ganindex

End If

End Sub

End Class

如果是6.0 的话，可能属性名字有点变化，indexof函数可以使用

mid或者 instr函数来代替

vb.net 怎么判断文本框 失去焦点 ？ 怎么在代码中定义控件的坐标

（1）失去焦点，拖一个文本框到页面上，选择该文本框，查看一下该文本框的事件，里面应该有文本框的焦点事件，自己查查看。

（2）如果是winform的话在控件的属性里应该有坐标的属性项可以填写。web的话需要html的布局来确定该文本框的位置。

VB.NET 向指定(网页或软件)的输入框内输入字符,如何实现?

假如Form1有个TextBox1，双击TextBox1填入123

Public Class Form1

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub TextBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.DoubleClick

System.Windows.Forms.SendKeys.Send("123")

End Sub

End Class

看你的VB.NET 版本了

用 My.Computer.Keyboard.SendKeys("123", True) 代替 System.Windows.Forms.SendKeys.Send("123") 也可以

原码：

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub TextBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.DoubleClick

My.Computer.Keyboard.SendKeys("123", True)

End Sub

End Class

VB.net 定位到文本框末尾

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

TextBox1.SelectionStart = Len(TextBox1.Text)

End Sub