ให้ Textbox พิมพ์ค่าได้แต่ตัวเลขเท่านั้น

กำหนดให้ TextBox รับค่าจาก Keyboard เป็นตัวเลขเท่านั้น   Private Sub txt_price_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txt_price.KeyPress        Select Case Asc(e.KeyChar)            Case 48 To 57                e.Handled = False            Case 8, 3, 22  ...

Read More

FTP Update Delete Download File in Server

Dim FtpHostname As String = '192.XX.XX.XXX' Dim FtpHostname As String = "172.16.80.185" Dim FtpUserName As String = "username"    Dim FtpPassWord As String = "password"    Dim FtpPort As String = "21" Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click       Dim response As Boolean        Dim folderServer As String = '/Newfolder/'        Dim pathFullName As String = 'D:\1234.jpg'       ...

Read More

Read TextFile or Notepad

Private Sub btnRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRead.Click            Dim sContents As String = GetFileContents("C:\note.txt")         If sContents = "" Then             Return         Else             Me.txtUserName.Text = Mid(sContents, 1, InStr(sContents, "|") - 1)            ...

Read More