منتديات رحيل لكل العرب - كود تجعل النص يظهر بشكل عمودي في الأداة Label

منتديات رحيل لكل العرب (https://r7il.com/vb/)

الفارس

06-04-2019 08:50 PM

كود تجعل النص يظهر بشكل عمودي في الأداة Label

كود تجعل النص يظهر بشكل عمودي في الأداة Label

يمكن عمل ذلك باستخدام الرمز vbCrLf ، حيث يوضع بعد كل حرف في محتوى الأداة Label كما يلي :

كود:

 كود

Private Sub Form_Activate()

Dim s As String

For i = 1 To Len(Label1)

s = s & Mid$(Label1, i, 1) & vbCrLf

Next

Label1 = s

End Sub

الساعة الآن 05:58 AM