السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة
هذا الموضوع الاخير في دورة التعامل مع الفورم و غدا ابدأ دورة جديدة التعامل مع الادوات
'63- رسم نصوص على الفورم بطريقة اخرى
كود PHP:
Public Class Form1
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim drawFormat As New StringFormat()
Using formGraphics As Graphics = Me.CreateGraphics(), _
drawFont As New System.Drawing.Font("Arial", 16), _
drawBrush As New SolidBrush(Color.Red)
formGraphics.DrawString _
("انا منذ فجر الارض البس خوذتي و وصية الفقراء فوق نطاقي", drawFont, _
drawBrush, 25.0, 50.0, drawFormat)
End Using
End Sub
End Class
'63- رسم نصوص على الفورم بطريقة اخرى
'64- رسم نصوص على الفورم بشكل عمودي
كود PHP:
Public Class Form1
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim drawFormat As New StringFormat()
Using formGraphics As Graphics = Me.CreateGraphics(), _
drawFont As New System.Drawing.Font("Arial", 16), _
drawBrush As New SolidBrush(Color.Red)
drawFormat.FormatFlags = _
StringFormatFlags.DirectionVertical
formGraphics.DrawString _
("لغات البرمجة", drawFont, drawBrush, 150.0, 50.0, drawFormat)
End Using
End Sub
End Class
'64- رسم نصوص على الفورم بشكل عمودي