전체 글202 Form 확대/축소 '버튼 클릭 시 일할계산 폼확대축소 변경 'Dim 폼확대축 As Integer = 0 'Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click ' 폼확대축 = 폼확대축 + 1 ' If 폼확대축 Mod 2 = 0 Then ' 클릭 수를 2로 나누었을때 남은수가 0일경우에 따라 정렬 방법 변경 ' Me.Size = New System.Drawing.Size(985, 751) ' Else ' Me.Size = New System.Drawing.Size(985, 640) ' End If 'End Sub 2018. 3. 30. 특정글자가 포함되어있는 경우의 조건문 textbox1에서 "헌호" 라는 글자가 포함되는 경우 조건식임 =================================== If InStr(TextBox1.Text, "헌호") 0 Then End If=================================== 위 식의 설명) Instr(X) 0 2018. 3. 30. Windows Form > Sicker Form으로 만들기 '### 폼 스티커###################################################### Dim First As Point Private FormReSizeType As String = "None" Private MoveMouseX As Integer ' 이동하기전 월래 마우스 X 위치 Private MoveMouseY As Integer ' 이동하기전 월래 마우스 Y 위치 ' 위치 기억하기 위한 변수 설정(Panel Mouse_Move 이벤트와 MemoSize함에서 각각 쓰임, Load시 기본셋팅값 현재 위치로 해야 함.) Dim ReSize_LocationX As Integer = Me.Location.X Dim ReSize_LocationY As Integer = Me.L.. 2018. 3. 30. 단어 색칠하기 & 단어강조 Private Sub 단어색칠하기(ByVal 검색어 As String, ByVal 변경할단어 As String, ByVal 색상 As Color) On Error Resume Next With RichTextBox6 .SelectionStart = .Text.IndexOf(검색어, 2) .SelectionLength = 검색어.Length .SelectionColor = 색상 .SelectionFont = New Font("맑은 고딕", 10, FontStyle.Bold) .SelectedText = 변경할단어 End With End Sub --------------------------------------------------------------------------------------------.. 2018. 3. 28. 이전 1 ··· 38 39 40 41 42 43 44 ··· 51 다음