Friday, June 8, 2012

Memutarkan huruf pada watermark, bagaimana caranya?

Mengenai cara memutarkan atau merotasi font pada watermark menggunakan VB6 (belajar Visual Basic 6 untuk pemula) - Posting ini merupakan kelanjutan dari posting yang telah ditulis terdahulu. Disini kita akan menambahkan beberapa kemampuan pada project watermark yang sedang kita buat. Perhatikan kode di bawah ini:
'--------------------------------------------------------------------------------------- 
' http://khoiriyyah.blogspot.com
' coder: Administrator
'---------------------------------------------------------------------------------------
Option Explicit

Private Declare Sub
InitCommonControls Lib "comctl32.dll" ()

Dim
intCurrentX As Integer 'variabel untuk menyimpan koordinat X
Dim intCurrentY As Integer 'variabel untuk menyimpan koordinat Y

Private Sub
Command1_Click()
'memanggil prosedur RotateFont
RotateFont Picture1, Val(txtSize), txtFontName, intCurrentX, intCurrentY, Val(txtDegree), txtWatermark
'menyimpan hasil gambar yang telah diberi teks
SavePicture Picture1.Image, App.Path & "\watermark_sample.bmp" 'and save Exit Sub
End Sub

Private Sub
Form_Initialize()
InitCommonControls 'XP style
End Sub

Private Sub
Picture1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Label3 = "X: " & x 'menampilkan koordinat X ke dalam label
Label4 = "Y: " & y 'menampilkan koordinat Y ke dalam label
intCurrentX = x 'simpan koordinat x dalam variabel intCurrentX
intCurrentY = y 'simpan koordinat y dalam variabel intCurrentY
WaterMarkIt 'panggil prosedur WaterMarkIt
End Sub

Private Sub
txtDegree_Change()
'apabila bukan angka, jadikan txtDegree.Text = 90
If Not IsNumeric(txtDegree.Text) Then txtDegree.Text = "90"
End Sub

Private Sub
VScroll1_Scroll()
'panggil prosedur WaterMarkIt pada saat terjadi Scroll
WaterMarkIt
End Sub

Private Sub
VScroll1_Change()
'panggil prosedur WaterMarkIt pada saat terjadi perubahan nilai
WaterMarkIt
End Sub

Private Sub
VScroll2_Change()
WaterMarkIt 'panggil prosedur WaterMarkIt
End Sub

Private Sub
VScroll2_Scroll()
WaterMarkIt 'panggil prosedur WaterMarkIt
End Sub
'--------------------------------------------------------------------
' Prosedur WaterMarkIt
'--------------------------------------------------------------------
Private Sub WaterMarkIt()
Command1_Click 'panggil Command1_Click (Rotasi dan simpan image)
txtDegree.Text = VScroll1.Value 'txtDegree berdasarkan nilai VScroll1
txtSize.Text = VScroll2.Value 'txtSize berdasarkan nilai VScroll2
End Sub