Pada artikel kali ini saya akan membagikan sebuah trik bagaimana cara memutar sebuah Font dengan sudut drajat tertentu seperti layaknya Anda memutar teks pada pada photoshop atau word.Tapi pada artikel kali ini saya akan membuatnya dengan menggunakan VB6
Untuk membuat sebuah Font yang bisa di putar atau di rotasi dengan VB6,ikutilah langkah-langkah dibawah ini :
1. Buka Form VB dengan Standar EXE
2. Tanamkan 1 buah PictureBox dan 1 Commandbutton pada Form1 desainlah seperti gambar dibawah ini :
3. Tambahkan 1 buah Module dengan cara Project >> Add Modul
Pada Module 1 ketik kode dibawah ini :
Option Explicit
Public Type LOGFONT
lfHeight As Long
lfWidth As Long
lfEscapement As Long
lfOrientation As Long
lfWeight As Long
lfItalic As Byte
lfUnderline As Byte
lfStrikeOut As Byte
lfCharSet As Byte
lfOutPrecision As Byte
lfClipPrecision As Byte
lfQuality As Byte
lfPitchAndFamily As Byte
lfFacename As String * 33
End Type
Public Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long
Public Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Public Sub RotateFont(pic As PictureBox, fontsize As Integer, fontname As String, x As Integer, y As Integer, degree As Integer, txt As String)
On Error GoTo ErrHandler
Dim F As LOGFONT
Dim hPrevFont As Long
Dim hFont As Long
pic.Cls
F.lfEscapement = 10 * Val(degree)
F.lfFacename = fontname
F.lfHeight = (fontsize * -20) / Screen.TwipsPerPixelY
pic.fontname = "Arial Black" + Chr$(0)
hFont = CreateFontIndirect(F)
hPrevFont = SelectObject(pic.hdc, hFont)
pic.CurrentX = x
pic.CurrentY = y
pic.Print txt
hFont = SelectObject(pic.hdc, hPrevFont)
DeleteObject hFont
Exit Sub
ErrHandler:
MsgBox Err.Description
End Sub
No comments:
Post a Comment