전체 글202 테두리가 없는 폼이동 테두리가 없는 폼이동Dim First As Point Private Sub Form1_MouseDown(ByVal sender As Object, _ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDownFirst = New Point( _PointToScreen(e.Location).X - Me.Location.X, _PointToScreen(e.Location).Y - Me.Location.Y _) '폼의 위치와 현재 마우스 위치의 화면좌표 차를 First에 대입 End Sub Private Sub Form1_MouseMove(ByVal sender As Object, _ByVal e As System.Windows.Forms.Mous.. 2018. 3. 19. 타이틀바 없이 크기조절 및 상단 패널 만들어서 움직이게 하기(스티커,포스트잇 만들때) 타이틀바 없이 크기조절 및 상단 패널 만들어서 움직이게 하기(스티커,포스트잇 만들때) 메모장, 스티커, 포스트잇 만들때 기본 레이아웃 전체소스 타이틀바없는 폼사이즈 조정.zip 아래 코딩Public Class Form1 Dim First As Point Private FormReSizeType As String = "None" Private MoveMouseX As Integer ' 이동하기전 월래 마우스 X 위치 Private MoveMouseY As Integer ' 이동하기전 월래 마우스 Y 위치 '패널을 상단에 만들고 움직이게 함. Private Sub Panel1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEve.. 2018. 3. 19. 실시간 알람 공지 실시간 알람공지 팝업하는 객체클래스 C#코딩한거 먼저 버튼34, Label78.text 한개, 해당 파일을 참조 추가해야 한다 실행할 버튼Private Sub Button34_Click(sender As System.Object, e As System.EventArgs) Handles Button34.Click Label78.Text = "" ' 비교할 데이터 '실시간 알람호출 Dim DBConn As SqlConnection DBConn = New SqlConnection(dbstring) DBConn.Open() Dim mySqlCommAND As SqlCommand Dim QueryString As String QueryString = "SELECT TOP 1 공지제목, 내용1, 내용2, 파일명, .. 2018. 3. 19. 시스템 상대경로 Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) C:\Users\Administrator\AppData\Local 출처: http://byhwan.tistory.com/entry/시스템-상대경로?category=535198 [By Hwan] 2018. 3. 19. 이전 1 ··· 42 43 44 45 46 47 48 ··· 51 다음