selstart

環境/言語:[Win　2000　Pro]
分類:[.NET]

こんにちはまたまた相談したいことがあります。

テキストボックスなどをオブジェクトとして渡してやり、そのテキストボックス
にselstart,selLengthなどを設定したいのですが、どうすればよいのでしょうか？

VB6.0では以下のような方法でうまくいったのですが、.netではだめなようです。

Sub Txt_Gotfocus(ByRef CrntObj As Object)
　　　CrntObj.SelStart = 0
　　　CrntObj.SelLength = Len(CrntObj)
end sub

ヘルプなどを参照したのですが答えは見つかりませんでした。どうかよろしくお願い
致します。

> テキストボックスなどをオブジェクトとして渡してやり、そのテキストボックス
> にselstart,selLengthなどを設定したいのですが、どうすればよいのでしょうか？
サンプル...
やりたい事ってこんなことでしょうか?

下記はFormのLoadイベントなどで記述してください。
AddHandler (イベントを割り当てたいTextBox).Enter, AddressOf Txt_Gotfocus

Private Sub Txt_Gotfocus(ByVal sender As Object, ByVal e As System.EventArgs)
If Not TypeOf sender Is TextBox Then
Exit Sub
End If

Dim objTextBox As TextBox = CType(sender, TextBox)

With objTextBox
.SelectionStart = 0
.SelectionLength = .Text.Length
End With
End Sub

> ヘルプなどを参照したのですが答えは見つかりませんでした。
ヘルプはやりたい事の答えが書いてあるわけではないですよ。
自分が何をやりたいか明確にし、その答えを導き出すための
道具だと考えます。

安易に答えのみを求める考え方を改めないと
自己の成長は望めないとお考え下さい。

まことに申し訳ありません。
忠告ありがとうございました。
よく考えることを実行してみたいと思います。