Visual Basic

Steven J. Reed wrote:

Does it work in the IDE??

Steven J. Reed wrote:

Where is your AssemblyInfo.vb file, in the project folder or in App_Code?

Private myString as String = ""<br />
<br />
Private Sub txtMyTextbox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtMyTextbox.TextChanged<br />
     myString = txtMyTextbox.Text<br />
End Sub

Private myString as String = ""

Private Sub txtMyTextbox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtMyTextbox.TextChanged
   myString = txtMyTextbox.Text
End Sub 

System.IO.File.Copy("C:\myFile.txt", "C:\myNewFileName.txt")<br />
System.IO.File.Delete("C:\myFile.txt")

Kschuler wrote:

System.IO.File.Copy("C:\myFile.txt", "C:\myNewFileName.txt")
System.IO.File.Delete("C:\myFile.txt")

Public Function IsInternetAvailable() as Boolean<br />
   Dim oUrl As New System.Uri("http://www.yoursite.com/") 'Change to web address you wish to check<br />
   Dim oWebRequest As System.Net.WebRequest<br />
   Dim oResponse as System.Net.Response<br />
<br />
   Try<br />
      oResponse = oWebRequest.GetResponse<br />
      oResponse.Close()<br />
      oWebRequest = Nothing<br />
      Return True<br />
   Catch ex as Exception<br />
      oResponse.Close()<br />
   Finally<br />
      oResponse.Close()<br />
      oWebResponse = Nothing<br />
   End Try<br />
End Function

If IsInternetAvailable() Then<br />
   Messagebox.Show("you are online !!!")<br />
End If

If Not IsNumeric(e.KeyChar)  Then<br />
            MessageBox.Show("Write Only Numbers")<br />
            e.Handled = True <br />
EndIf