본문 바로가기

전체 글203

단어 색칠하기 & 단어강조 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.
텍스트박스 이용법 비주얼 베이직 컨트롤 속성과 메소드비주얼 베이직 버튼(button) 컨트롤비주얼 베이직 레이블(lable) 컨트롤 VB의 기본적인 지식들은 위 링크에서 숙지하기 바란다. 이번 포스팅은 아주 기초적인 조작법들의 대해 다루고, 나머지 디테일한 속성이나 메소드는프로그램 제작하면서 배우는 방향으로 하겠다. 텍스트 박스는 텍스트를 입력하고 편집할 때 사용한다. 1. 텍스트 박스 여러 줄 입력 딱 보기에도 입력할 공간이 적어 보인다. 사이즈를 늘리면 되지 않느냐?Multilne 속성을 변경해야만 여러 줄 입력이 가능하고 사이즈 조절이 된다. "쫄병의 IT 블로그 입니다"라는 말을 텍스트 박스에 적어보겠다. 역시나 짤려서 나온다. Multilne를 True로 하면 여러 줄을 입력 할 수 있는 공간이 생성 된다. 이제.. 2018. 3. 20.
DateTimePicker를 이용한 날짜계산 Dim 선택월_마지막일 As Integer = Int(DateTime.DaysInMonth(DateTimePicker1.Value.Year, DateTimePicker1.Value.Month)) Dim 사용일수 As Integer = Int(DateTimePicker1.Value.Day) - 1 Dim 남은일수 As Integer = Int(선택월_마지막일 - DateTimePicker1.Value.Day) + 1 2018. 3. 20.
폼 투명도 주기 네이트온에 알림창과 같이 폼에 페이드효과가 필요할 때 아래 코드를 참고하자.Alpha 와 같이 함수형태로 만들어 놓고 핸들값과 Degree값만 바이트 범위(0~255) 내에서 넘겨주면 된다. Private Declare Function SetLayeredWindowAttributes Lib "user32" _ (ByVal hWnd As Long, _ ByVal crKey As Long, _ ByVal bAlpha As Byte, _ ByVal dwFlags As Long) As Long Private Declare Function SetWindowLong Lib "user32" _ Alias "SetWindowLongA" _ (ByVal hWnd As Long, _ ByVal nIndex As Long,.. 2018. 3. 20.

티스토리툴바