TextBox値がクリックコマンドで更新されない

Question

VBAからVB.NETへのアップグレードを試しているので、私はやりとりしたことの構文の違いを理解することでかなり基本的なことを学んでいます。これまでのところとても良いですが、フォームの表示値を更新するテキストボックスが表示されるようです。誰かが私がなぜばかだと説明したいですか？私はいくつかの時間を過ごして、さまざまなインターウェブのものをサーフィンしましたが、何かを見つけることはまだありません（私がダムでなければ、それを見たときにそれを理解できませんでした）。

は、ここで私がこれまで持っているものです。

Dim this As String = Trim$(Mid$(TextBox1.Text, InStr(TextBox1.Text, "&") + 1)) 
    Dim oldtxt As String = TextBox1.Text 
    If InStr(TextBox1.Text, "&") > 0 Then 
     TextBox1.Text = TextBox1.Text.Replace(TextBox1.Text, "End Date Copied" & this) 
     Clipboard.SetText(this) 
     Threading.Thread.Sleep(2000) 
     TextBox1.Text = TextBox1.Text.Replace(TextBox1.Text, oldtxt) 
    End If 

Answer 1

私は、解像度のより多くの「バンドエイド」タイプを見つけることができたのVisual StudioのUIを掘り後。私はSubString関数に悩まされていませんが、それは私の次の学習ステップです。私は、このオプションが即時解決で十分であることを発見しました。私がこれを実装するより良い方法を見つけたら、（もし気にして）見えるように他の人に返信します。

Private Sub TextBox1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Block1.Enter 
Dim this As String = Trim$(Mid$(TextBox1.Text, InStr(TextBox1.Text, "&") + 1)) 
Dim oldtxt As String = TextBox1.Text 
If InStr(TextBox1.Text, "&") > 0 Then 
     TextBox1.Text = TextBox1.Text.Replace(TextBox1.Text, "End Date Copied" & this) 
     Block1.Refresh() 
     Clipboard.SetText(this) 
     Threading.Thread.Sleep(200) 
     TextBox1.Text = TextBox1.Text.Replace(TextBox1.Text, oldtxt) 
     Block1.Refresh() 
End If 
End Sub 

そして、ちょうどFYI @TEKためには、あなたは文句を言わない不必要な詳細のハングアップを取得誰かを試してみて、助け次回:)