분류 전체보기202 FTP 파일전송 'Create Request To Upload File' Dim wrUpload As FtpWebRequest = DirectCast(WebRequest.Create _ ("ftp://ftp.test.com/file.txt"), FtpWebRequest) 'Specify Username & Password' wrUpload.Credentials = New NetworkCredential("user", "password") 'Start Upload Process' wrUpload.Method = WebRequestMethods.Ftp.UploadFile 'Locate File And Store It In Byte Array' Dim btfile() As Byte = File.ReadAllBytes("c:\.. 2018. 3. 19. listview에서 마우스 hover시 말풍선 보이게 하기 Private Sub ListView1_ItemMouseHover(sender As Object, e As ListViewItemMouseHoverEventArgs) Handles ListView1.ItemMouseHover Dim 문구 As String 문구 = "데이터 : " & e.Item.SubItems(1).Text & vbNewLine 문구 += e.Item.SubItems(2).Text & vbNewLine 문구 += e.Item.SubItems(3).Text & vbNewLine ToolTip1.SetToolTip(ListView1, 문구) End Sub 2018. 3. 16. 달력 미리보기 달력 미리보기 로그 나오도록 추가 Private Sub MonthCalendar1_DayGotFocus(sender As Object, e As DayEventArgs) Handles MonthCalendar1.DayGotFocus '// *** 마우스 달력 미리보기 ToolTip1.RemoveAll() '툴탑을 다른 초기화(다른영역 클릭했을때 안보이게 Try Label35.Text = CDate(e.Date).Year & ", " & CDate(e.Date).Month & ", " & CDate(e.Date).Day Dim DBConn As SqlConnection DBConn = New SqlConnection(dbstring) DBConn.Open() Dim mySqlCommAND As SqlCom.. 2018. 3. 16. DB접속 후 데이터 불러들이기 Dim DBConn As SqlConnection DBConn = New SqlConnection(dbstring) DBConn.Open() Dim mySqlCommAND As SqlCommand Dim QueryString As String QueryString = "select top 20 유형1, 유형2, 파일명, 예비1 from TB_U_UnitECT order by 예비1 desc" mySqlCommAND = New SqlCommand(QueryString, DBConn) Dim DBread As SqlDataReader = mySqlCommAND.ExecuteReader() ListBox6.Items.Clear() While (DBread.Read()) ListBox6.Items.Add("●".. 2018. 3. 16. 이전 1 ··· 43 44 45 46 47 48 49 ··· 51 다음