textbox' a dikey yazılabilirmi

[skylift]

değerli arkadaşlar,

textbox' ın içine alttan başlamak kaydı ile dikey yazmak istiyorum. lütfen yardımcı olur musunuz.

Ekli dosyayı görüntüle textbox.bmp

 

[zafer]

Merhaba

Araç çubuklarından Çizim araç çubuklarından Metin kutusu ile yapabilirsiniz.

 

[skylift]

merhaba
ms vb de yapılmış olması gereken bir texbox nesnesine dikey yazdırmak istiyorum.
teşekkürler..

 

[Levent Menteşoğlu]

Textboxun multiline özelliğini true yaparak aşağıdaki kodu deneyebilirsiniz. Ancak yukarıda resimde belirttiğiniz gibi olmaz. Ayrıca birde örnek dosya ekliyorum.

Private Sub TextBox1_Change()
If TextBox1 = "" Then Exit Sub
If Asc(Right(TextBox1, 1)) = 10 Then Exit Sub
SendKeys "+{enter}"
End Sub

 

[ssomar]

değerli arkadaşlar,

textbox' ın içine alttan başlamak kaydı ile dikey yazmak istiyorum. lütfen yardımcı olur musunuz.

Ekli dosyayı görüntüle 51783

Acaba resimde görüldüğü gibi Textbox'a veya Label'a Yazdırma yapmak mümkünmü ?

 

[Murat OSMA]

UserForm'a bir TextBox ve CommandButton ilave edin ve şu kodları deneyin;
TextBox için;

Private Sub CommandButton1_Click()
Dim i As Integer, metin As String
metin = InputBox("Ne yazalım", "Karakartal", "Beşiktaş 1903")
    With TextBox1
        For i = 1 To Len(metin)
            .Value = .Value & Mid(metin, i, 1) & vbCr
        Next i
           .MultiLine = True
    End With
End Sub

Label için UserForm'a Label ilave edin ve şu kodları deneyin;

Private Sub CommandButton1_Click()
Dim i As Integer, metin As String
metin = InputBox("Ne yazalım", "Katakartal", "Beşiktaş 1903")
    With Label1
        For i = 1 To Len(metin)
            .Caption = .Caption & Mid(metin, i, 1) & vbCr
        Next i
           .AutoSize = True
    End With
End Sub

İlave:

Private Sub CommandButton1_Click()
    With Label1
        .Height = 100
        .Width = 0
        .Caption = "Murat " & vbCrLf & " OSMA " & vbCrLf & " Beşiktaş"
        .AutoSize = True
        .Top = Label1.Top + ((Label1.Height - .Height) / 2)
        .Left = Label1.Left + ((Label1.Width - .Width) / 2)
    End With
End Sub