Re:미리보기 화면에 글씨각도를 줄 수 있는 방법 없나요???

[DarkFlash]

간단하게 설명드리죠..

Option Explicit

Private Declare Function CreateFont Lib "gdi32" Alias "CreateFontA" (ByVal H As Long, ByVal W As Long, ByVal E As Long, ByVal O As Long, ByVal W As Long, ByVal I As Long, ByVal u As Long, ByVal S As Long, ByVal C As Long, ByVal OP As Long, ByVal CP As Long, ByVal Q As Long, ByVal PAF As Long, ByVal F As String) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function SetGraphicsMode Lib "gdi32" (ByVal hdc As Long, ByVal iMode As Long) As Long




Private Sub Command1_Click()
Const GM_ADVANCED = 2

Dim myDC&
Dim myFont&, oldFont&
Dim oldGraphicMode&

oldGraphicMode = SetGraphicsMode(Me.hdc, GM_ADVANCED)

myFont = CreateFont(15, 10, 0, 100, 10, 0, 0, 0, 0, 0, 0, 0, 0, "verdana")
oldFont = SelectObject(Me.hdc, myFont)
Me.Print "hahaha"
SelectObject Me.hdc, oldFont
SetGraphicsMode Me.hdc, oldGraphicMode
End Sub

------------------------------------------------------------------------
위에 CreateFont보이시죠? 거기서 4번째 인자 즉 100으로 설정된게 글자 기울기주는겁니다. 나머지 인자들은 msdn에서 CreateFont로 직접 찾아보시기 바람..

이상.