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

vb.net獲得文本框內(nèi)每個(gè)字的位置

可以用多個(gè)label來(lái)截取文本，然后把一個(gè)空的文本框放到中間去。

10多年的都蘭網(wǎng)站建設(shè)經(jīng)驗(yàn)，針對(duì)設(shè)計(jì)、前端、開(kāi)發(fā)、售后、文案、推廣等六對(duì)一服務(wù)，響應(yīng)快，48小時(shí)及時(shí)工作處理。全網(wǎng)整合營(yíng)銷(xiāo)推廣的優(yōu)勢(shì)是能夠根據(jù)用戶(hù)設(shè)備顯示端的尺寸不同，自動(dòng)調(diào)整都蘭建站的顯示方式，使網(wǎng)站能夠適用不同顯示終端，在瀏覽器中調(diào)整網(wǎng)站的寬度，無(wú)論在任何一種瀏覽器上瀏覽網(wǎng)站，都能展現(xiàn)優(yōu)雅布局與設(shè)計(jì)，從而大程度地提升瀏覽體驗(yàn)。創(chuàng)新互聯(lián)從事“都蘭網(wǎng)站設(shè)計(jì)”,“都蘭網(wǎng)站推廣”以來(lái)，每個(gè)客戶(hù)項(xiàng)目都認(rèn)真落實(shí)執(zhí)行。

VB 如何自動(dòng)選擇文本框里面特定位置的字符？

文本框有 表示選擇開(kāi)始。長(zhǎng)度的屬性，

好像是 selStart 和selTextLength，這兩個(gè)屬性都是可讀寫(xiě)的

再結(jié)合字符串查找函數(shù)就可以做到了。

////////

給點(diǎn)分啊，我?guī)湍銓?xiě)了^_^

vs2005 ＋vb.net 測(cè)試通過(guò)，

Public Class Form1

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

TextBox1.Text = "我愛(ài)編程－百度知道"

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 的話(huà)，可能屬性名字有點(diǎn)變化，indexof函數(shù)可以使用

mid或者 instr函數(shù)來(lái)代替

vb.net 怎么判斷文本框 失去焦點(diǎn) ？ 怎么在代碼中定義控件的坐標(biāo)

（1）失去焦點(diǎn)，拖一個(gè)文本框到頁(yè)面上，選擇該文本框，查看一下該文本框的事件，里面應(yīng)該有文本框的焦點(diǎn)事件，自己查查看。

（2）如果是winform的話(huà)在控件的屬性里應(yīng)該有坐標(biāo)的屬性項(xiàng)可以填寫(xiě)。web的話(huà)需要html的布局來(lái)確定該文本框的位置。

VB.NET 向指定(網(wǎng)頁(yè)或軟件)的輸入框內(nèi)輸入字符,如何實(shí)現(xiàn)?

假如Form1有個(gè)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

分享標(biāo)題：vb.net文本框定位 文本框怎么定位
鏈接地址：http://muchs.cn/article14/docosde.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站策劃、網(wǎng)站導(dǎo)航、自適應(yīng)網(wǎng)站、靜態(tài)網(wǎng)站、標(biāo)簽優(yōu)化、軟件開(kāi)發(fā)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀(guān)點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話(huà)：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)