منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
عنوان الفورم - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : عنوان الفورم (/showthread.php?tid=1793)

عنوان الفورم - asto - 02-02-14

السلام عليكم

كيف نجعل عنوان الفورم في المنتصف

RE: عنوان الفورم - تركي الحلواني - 02-02-14

يالغالي

ماافي غير انك تعمل مسااافة الى المكان اى تبي النص يكون فيه

RE: عنوان الفورم - AL_BRNS - 03-02-14

السلام عليكم ورحمة الله وبركاته

جرب التالي
كود :
Private Sub Form_Activate()
Call Form_Load
End Sub

Private Sub Form_Load()
Dim startwdth!, Msg$
Msg = "vb6.0"
startwdth = TextWidth(Msg) / 2
Do Until TextWidth(Msg) >= ScaleWidth / 2 - startwdth
Msg = " " & Msg
Loop
Form1.Caption = Msg
End Sub

Private Sub Form_Resize()
Call Form_Load
End Sub

بالتوفيق