在文本框中選擇文本

當我加載一些文本已經給文本框的表單。該文本框中的所有文本都會突出顯示。我想要vb不要這樣加載它。如何解決它。感謝 Furqna在文本框中選擇文本

來源

2011-01-13 Furqan Sehgal

'textBox1.selectionLength = 0' help？我真的不確定，自從我上次開始工作以來，它就像是一個永恆。 – SuperSaiyan

您可以將文本框中的選項卡索引設置爲其他內容，以便它不是最低的索引。

您可以在form.activated事件中設置TextBox1.SelectionLength = 0。

我不太喜歡這個，因爲如果用戶有文本hilited和最小化應用程序，那麼他們將失去hilite，但是很容易做到。我想你可以使用一個標誌來確保它只在第一次激活時執行。

您可以在加載中設置一個計時器事件以在加載事件之後立即將其清除，但這似乎是過度殺傷。由於諸如此類的問題，我已經在負載之後100毫秒發生在每個表單上的標準功能的地方工作過。

來源

2011-01-13 16:56:56 dwidel

你可以試試這個（它看起來像一個解決方法）：

Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus 
    TextBox1.SelectionStart = TextBox1.Text.Length 
End Sub

這取決於你的文本框的TabIndex的，如果它有它獲得焦點的最低TabIndex的，因此它的文字選擇。

來源

2011-01-13 15:51:52

類型1的方法

Dim speech = CreateObject("sapi.spvoice") speech.speak(TextBox1.Text)

類型2的方法

Dim oVoice As New SpeechLib.SpVoice 
    Dim cpFileStream As New SpeechLib.SpFileStream 
    'Set the voice type male or female and etc 
    oVoice.Voice = oVoice.GetVoices.Item(0) 
    'Set the voice volume 
    oVoice.Volume = 100 
    'Set the text that will be read by computer 
    oVoice.Speak(TextBox1.Text, SpeechLib.SpeechVoiceSpeakFlags.SVSFDefault) 
    oVoice = Nothing

類型3的方法

Imports System.Speech.Synthesis

公共類Form1中私人小組Form1_Load的（BYVAL發件人爲System.Object的，ByVal e As System.Eve ntArgs）把手MyBase.Load 昏暗SPK作爲新SpeechSynthesizer 對於每個語音作爲InstalledVoice在spk.GetInstalledVoices ListBox1.Items.Add（voice.VoiceInfo.Name）接着 ListBox1.SelectedIndex = 0 結束子私人小組的button1_Click （BYVAL發件人爲System.Object的，BYVALË作爲System.EventArgs）把手Button1.Click 昏暗SPK作爲新SpeechSynthesizer spk.SelectVoice（ListBox1.SelectedItem.ToString） spk.Speak（TextBox1.Text）結束子完類

來源

2012-10-08 10:19:21

如果TextCha有時也會發生這種情況年齡或其他類似的事件被控制兩次。

來源

2013-11-20 21:17:07

' VS.net 2013. Use the "Shown" event. 
' GotFocus isn't soon enough. 

Private Sub Form_Shown(sender As Object, e As EventArgs) Handles Me.Shown 
    TB.SelectionLength = 0 
End Sub

來源

2014-04-02 01:16:53

創建每個表單時。每個對象都被編入索引，您可以設置標籤索引高於索引對象。例如：在第三種形式你把一個文本框，在

私人無效textBox1_TextChanged（對象發件人，EventArgs的）

這是該項目的第12屆對象，這將是在12，如果你把索引。選項卡索引高於整個項目中的索引對象。標籤索引1000（問題解決。）

祝您有美好的一天。滑板車

來源

2014-08-11 15:21:51

在文本框中選擇文本

回答

相關問題