Labelimizdeki yazıları aşağı doğru yazdıralım

Bu dersimizde labele yazdığımız yazıların nasıl dikine uzanabileceğini öğrenelim.

Bu dersimizde labele yazdığımız yazıların nasıl dikine uzanabileceğini öğrenelim.

Forma 1 adet label ekleyelim.Yazımız dikine olacağı için labeli dikine doğru uzatalım.Formun "Form_Activate" özelliğini kullanarak labelimize dikey şekili verelim işte yazacağımız kod:


'Sanalkurs.net

 Private Sub Form_Activate()

Dim s As String

Label1.Caption = "SanalKurs.Net"

For dik = 1 To Len(Label1)

yaz = yaz & Mid$(Label1, dik, 1) & vbCrLf

Next

Label1 = yaz

End Sub



İşte bu kadar basit. Kolay gelsin arkadaşlar...
  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

Yukarı Git