Label içine yukarıdan aşağı doğru yazı yazmak

[Mdemir63]

Arkadaşlar iyi akşamlar

Ben Label içine yukarıdan aşağı doğru yazı yazdırmak istiyorum bunu nasıl yapabilirim?

Saygılar sunarım

 

[Seyit Tiken]

Label'i dikey bir şekilde çizin. Başlık yazarken harfler arasına 1 veye 2 boşluk bırakın. Harflerin sayısı, büyüklüğü/küçüklüğü ile Label'in enini manuel olarak ayarlayın.

 

[Orion1]

Merhaba.
Aşağıdaki kodu kendinize göre uyarlayınız.

Private Sub UserForm_Initialize()
Label1.Caption = "D" & vbLf & "E" & vbLf & "N" & vbLf & "E" & vbLf & "M" & vbLf & "E"
End Sub

 

[Mdemir63]

Merhaba.
Aşağıdaki kodu kendinize göre uyarlayınız.

Private Sub UserForm_Initialize()
Label1.Caption = "D" & vbLf & "E" & vbLf & "N" & vbLf & "E" & vbLf & "M" & vbLf & "E"
End Sub

Sn: Seyit Tiken ve Sn: Sezar

Çok teşekkürler Saygılarımı sunuyorum

 

[Ali]

Arkadaşlar iyi akşamlar

Ben Label içine yukarıdan aşağı doğru yazı yazdırmak istiyorum bunu nasıl yapabilirim?

Saygılar sunarım

Bu daha pratikdir.

Private Sub UserForm_Initialize()
  Dim Metin As String
  Dim yazı As Byte
  Label1.Caption = "komutan"
    For yazı = 1 To Len(Label1)
    Metin = Metin & Mid(Label1, yazı, 1) & Chr(13)
  Next yazı
  Label1 = Metin
End Sub

 

[Mdemir63]

Bu daha pratikdir.

Private Sub UserForm_Initialize()
  Dim Metin As String
  Dim yazı As Byte
  Label1.Caption = "komutan"
    For yazı = 1 To Len(Label1)
    Metin = Metin & Mid(Label1, yazı, 1) & Chr(13)
  Next yazı
  Label1 = Metin
End Sub

Ali hocam sağol