TextBox Values not updating on click command

manpreet Best Answer 2 years ago

Im experimenting with upgrading from VBA to VB.NET, so I am learning some pretty basic stuff by figuring out the syntax differences between things I have done and). So far so good, but I cant seem to get a textbox to update the display value in the form. Anyone want to explain why I am dumb? I spent some time surfing the various interweb stuff, but have yet to find anything(unless I am dumb and just didnt understand it when i saw it).

Here's what I have so far:

    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

manpreet 2 years ago

 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