반응형
새 프로젝트에서
폼에 버튼을 만든다. 버튼을 더블클릭하여 코드 편집창을 띄운다.
아래 코드를 입력 후 실행하고 버튼을 누르면 된다.
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 255
Form1.ScaleMode = 3
Form1.Font.Name = "Times New Roman"
Form1.Font.Size = 48
Form1.CurrentX = i / 50
Form1.CurrentY = i / 50
Form1.ForeColor = RGB(i + 5, 0, 0)
Form1.Print "한글"
Next
End Sub
반응형
'PC&웹 > 정보&기술' 카테고리의 다른 글
한국어 지원되는 드롭박스로 파일 공유~ (0) | 2012.05.31 |
---|---|
유무선 공유기 2대 동시에 사용하기 (0) | 2012.03.31 |
ASUS SonicMaster 사운드 셋팅 (5) | 2012.01.10 |
(노트북) ASUS N55SF-S1288V 구입 #2 (6) | 2011.12.25 |
캐논 잉크젯 복합기 U052 카트리지 오류 수리 방법 (2) | 2011.10.30 |
댓글0