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
f.ScaleMode = savesm L1.Visible = True L2.Visible = True L3.Visible = True L1.ZOrder End Sub
Private Sub Command1_Click() 'Replace 'VBTown' With the text you want To display, 'Replace the first '1' With '2' To change the 3D effect. 'Replace 'vbBlack' With the Text Color. FormLabelCaptionEmbossed Label1, Label2, Label3, "VBTown", 1, vbBlack, 1 End Sub
Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Создание 3D Text используя Label", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!