建站
咨詢
售后
建站咨詢
新聞中心
VB 如何自動選擇文本框里面特定位置的字符？
文本框有 表示選擇開始。長度的屬性，
公司主營業(yè)務(wù)：做網(wǎng)站、成都網(wǎng)站制作、移動網(wǎng)站開發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實現(xiàn)互聯(lián)網(wǎng)宣傳，提高企業(yè)的競爭能力。創(chuàng)新互聯(lián)是一支青春激揚、勤奮敬業(yè)、活力青春激揚、勤奮敬業(yè)、活力澎湃、和諧高效的團隊。公司秉承以“開放、自由、嚴謹、自律”為核心的企業(yè)文化，感謝他們對我們的高要求，感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn)，讓我們激情的團隊有機會用頭腦與智慧不斷的給客戶帶來驚喜。創(chuàng)新互聯(lián)推出蘄春免費做網(wǎng)站回饋大家。
好像是 selStart 和selTextLength，這兩個屬性都是可讀寫的
再結(jié)合字符串查找函數(shù)就可以做到了。
////////
給點分啊，我?guī)湍銓懥薧_^
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函數(shù)可以使用
mid或者 instr函數(shù)來代替
vb中如何通過點擊按鈕，全選文本框中所有文字？
1）在窗體上布置一個TextBox和一個Command控件
2）窗體代碼
Option?Explicit
Private?Sub?Command1_Click()
'選擇文本框中所有文本
With?Text1
.SelStart?=?0
.SelLength?=?Len(Text1.Text)
'讓文本框獲取焦點
.SetFocus
End?With
End?Sub
Private?Sub?Form_Load()
'在TextBox中顯示一些文本
Text1.Text?=?"Visual?Basic是一種可視化程序設(shè)計語言"
'命令按鈕的提示
Command1.Caption?=?"選擇所有文本"
End?Sub
vb點擊文本框自動選中文本
Private?Sub?Text1_GotFocus()???'當Text1獲得焦點時，最后一個字符串被選中
Text1.SelStart?=?InStrRev(Text1.Text,?"?")
Text1.SelLength?=?Len(Text1.Text)
Text1_MouseUp?0,?0,?0,?0?????'同時把選中內(nèi)容放入Text2
End?Sub
Private?Sub?Text1_KeyUp(KeyCode?As?Integer,?Shift?As?Integer)
Text1_MouseUp?0,?0,?0,?0?????'如果選擇是通過鍵盤完成的，也放入Text2中
End?Sub
Private?Sub?Text1_MouseUp(Button?As?Integer,?Shift?As?Integer,?X?As?Single,?Y?As?Single)???'這個則是處理用鼠標來選定的情況，不管是雙擊還是拖動選擇均可
If?Text1.SelText??""?Then?Text2.Text?=?Text1.SelText????'如果Text1存在被選中的字符就放入Text2中
End?Sub
分享文章：vb.net自動選擇文本 vb選中文本框內(nèi)容
網(wǎng)頁網(wǎng)址：http://fisionsoft.com.cn/article/hieoei.html
