mehdi3559
سه شنبه 23 خرداد 1391, 12:50 عصر
سلام دوستان من در مورد label با تغییر angle تونستم متن رو عمودی کنم ولی text box رو نمی تونم لطفا راهنمایی کنید. ممنون
mehdi3559
سه شنبه 23 خرداد 1391, 13:12 عصر
اساتید محترم جواب بدین گیرم
محسن واژدی
سه شنبه 23 خرداد 1391, 17:40 عصر
سلام
کد زیر را بررسی کنید:
 
Private Sub Command1_Click() 
    Dim txt 
    Text1.Alignment = vbCenter 
    For i = 1 To Len(Text1) 
        txt = txt & Mid$(Text1, i, 1) & vbCrLf 
    Next i 
    Text1.Text = txt 
End Sub  البته قبلش text-box را multiline کنید 
موفق باشید
vBulletin® v4.2.5, Copyright ©2000-1404, Jelsoft Enterprises Ltd.