3 Boyutlu Label Yapmak
Gerekenler:1 adet buton,3 adet label,1 adet modül
Modül kodları
Form kodları
İyi Forumlar Dilerim |'RedsCoder
Gerekenler:1 adet buton,3 adet label,1 adet modül
Modül kodları
Kod:
[/COLOR][COLOR=#FFFFFF]Global Const GFM_STANDARD = 0[/COLOR]
[COLOR=#FFFFFF]Global Const GFM_RAISED = 1[/COLOR]
[COLOR=#FFFFFF]Global Const GFM_SUNKEN = 2[/COLOR]
[COLOR=#FFFFFF]Global Const GFM_BACKSHADOW = 1[/COLOR]
[COLOR=#FFFFFF]Global Const GFM_DROPSHADOW = 2[/COLOR]
[COLOR=#FFFFFF]Global Const BOX_WHITE& = &HFFFFFF[/COLOR]
[COLOR=#FFFFFF]Global Const BOX_LIGHTGRAY& = &HC0C0C0[/COLOR]
[COLOR=#FFFFFF]Global Const BOX_DARKGRAY& = &H808080[/COLOR]
[COLOR=#FFFFFF]Global Const BOX_BLACK& = &H0&[/COLOR]
[COLOR=#FFFFFF]Form kodları
Kod:
Static Sub FormLabelCaptionEmbossed(L1 As Label, L2 As Label, L3 AsLabel, label_text As String, label_effect As Integer, label_forecolorAs 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
Private Sub Command1_Click()
FormLabelCaptionEmbossed Label1, Label2, Label3, Buraya Yazınız, 1, vbBlack, 1
End Sub
