當我使用代碼在面板內加載表單時
With Form_brand
.TopLevel = False
Panel2.Controls.Add(Form_brand)
.BringToFront()
.Show()
End With
表單內的文本框不顯示其默認行為，例如當我在文本框內單擊時游標顯示在文本的開頭而不是我單擊滑鼠的位置。另一個問題是，當我通過單擊滑鼠按鈕移動滑鼠指標時，應該選擇文本，但這并沒有發生。
如果我只使用代碼打開表單
Form_Brand.show()
文本框顯示它的默認行為。我應該怎么辦？
uj5u.com熱心網友回復：
也許你可以使用這個：
Private Sub TextBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles TextBox1.MouseDown
TextBox1.SelectionLength = 0
TextBox1.SelectionStart = TextBox1.GetCharIndexFromPosition(e.Location)
End Sub
Private Sub TextBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles TextBox1.MouseMove
If e.Button = MouseButtons.Left Then
TextBox1.SelectionLength = TextBox1.GetCharIndexFromPosition(e.Location) - TextBox1.SelectionStart 1
End If
End Sub
uj5u.com熱心網友回復：
創建一個UserControl而不是表單。您可以在設計器中直觀地設計它，就像一個表單一樣。
將 UserControl 添加到面板的示例
Dim uc = New MyUserControl() ' But please, give it a better name!
Panel2.Controls.Add(uc)
請注意，您不必設定TopLevel屬性或呼叫BringToFront()or Show()。
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/535687.html
標籤：网络形式文本框