Jumat, 13 Juli 2012

Membuat Tulisan 3 Dimensi di VB 6

Bukankah lebih menarik jika tulisan di form(label) bisa dibuat dengan model 3D seperti di atas ?
Berikut ini caranya :

Letakkan source code ini di module

Global Const GFM_STANDARD = 0
Global Const GFM_RAISED = 1
Global Const GFM_SUNKEN = 2
Global Const GFM_BACKSHADOW = 1
Global Const GFM_DROPSHADOW = 2
Global Const BOX_WHITE& = &HFFFFFF
Global Const BOX_LIGHTGRAY& = &HC0C0C0
Global Const BOX_DARKGRAY& = &H808080
Global Const BOX_BLACK& = &H0&


Buat fungsi static sub di form1



Static Sub FormLabelCaptionEmbossed(L1 As Label, L2 As Label, L3 As Label, _
        label_text As String, label_effect As Integer, label_forecolor As Long, _
        label_depth As Integer)
    Dim lt As String
    Dim savesm As Integer
    Dim f As Form
    Set f = L1.Parent
    L1.Visible = False
    L2.Visible = False
    L3.Visible = False
    savesm = f.ScaleMode
    f.ScaleMode = 3
    If label_text = "" Then
       lt = L1
    Else
       lt = label_text
    End If
    L1 = lt
    L2 = lt
    L3 = lt
    L1.BackStyle = 0
    L1.ForeColor = label_forecolor
    L2.Width = L1.Width
    L2.Height = L1.Height
    L2.BackStyle = L1.BackStyle
    L2.ForeColor = BOX_DARKGRAY&
    L3.Width = L1.Width
    L3.Height = L1.Height
    L3.BackStyle = L1.BackStyle
    L3.ForeColor = BOX_WHITE&
    Select Case label_effect
       Case GFM_SUNKEN
           L2.Left = L1.Left - label_depth
           L2.Top = L1.Top - label_depth
           L3.Left = L1.Left + label_depth
           L3.Top = L1.Top + label_depth
        Case GFM_RAISED
           L2.Left = L1.Left + label_depth
           L2.Top = L1.Top + label_depth
           L3.Left = L1.Left - label_depth
           L3.Top = L1.Top - label_depth
    End Select
    f.ScaleMode = savesm
    L1.Visible = True
    L2.Visible = True
    L3.Visible = True
    L1.ZOrder
End Sub

Panggil fungsi tadi di form_load

 FormLabelCaptionEmbossed Label1, Label2, Label3, "Nikkonikko.blogspot.com", 2, vbBlue, 1



Jalankan programnya, maka akan tampil form dengan tulisan seperti di atas tadi(seharusnya). Tinggal ganti tulisan itu di bagian pemanggilan fungsi terserah Anda.
Selamat mencoba!

Tidak ada komentar:

Posting Komentar