분류 전체보기203 시스템 상대경로 Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) C:\Users\Administrator\AppData\Local 출처: http://byhwan.tistory.com/entry/시스템-상대경로?category=535198 [By Hwan] 2018. 3. 19. 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. 이전 1 ··· 43 44 45 46 47 48 49 ··· 51 다음