+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : تغيير حجم الادوات مع تغيير حجم الفورم (/showthread.php?tid=7335)
تغيير حجم الادوات مع تغيير حجم الفورم - ناصر56 - 11-12-12
اخوتي الاعزاء
اريد طريقة لتغيير حجم الادوات بالكامل اثناء تغيير حجم الفورم
انا اشتغلت منظومة على مونيتور 15 والمستخدم لديه مونيتور 19
اثناء عرض المنظومة عند المستخدم تغير نسق الادوات
شكرا لكم
تغيير حجم الادوات مع تغيير حجم الفورم - hago - 11-12-12
السلام عليكم ورحمة الله
اذهب الى : حل مشكلة تغير حجم النموذج
تحياتى
تغيير حجم الادوات مع تغيير حجم الفورم - اسلام الكبابى - 18-12-12
هذا الكود لحل مشكة الزميل ناصر56
هوكود طويل ولكن فيه حل كامل لطلبك
PHP كود :
Dim RATH As Single
Dim RATV As Single
Dim WIDACTform As Single
Dim HIGHACTform As Single
Dim WIDACTtext1 As Single
Dim HIGHACTtext1 As Single
Dim TOPACTtext1 As Single
Dim LEFTACTtext1 As Single
Private Sub Form_Load()
WIDACTform = Form1.Width
HIGHACTform = Form1.Height
WIDACTtext1 = Text1.Width
HIGHACTtext1 = Text1.Height
TOPACTtext1 = Text1.Top
LEFTACTtext1 = Text1.Left
End Sub
Private Sub Form_Resize()
RATH = Form1.Width / WIDACTform
RATV = Form1.Height / HIGHACTform
Text1.Left = RATH * LEFTACTtext1
Text1.Width = RATH * WIDACTtext1
Text1.Top = RATV * TOPACTtext1
Text1.Height = RATV * HIGHACTtext1
End Sub
RE: تغيير حجم الادوات مع تغيير حجم الفورم - awidan76 - 06-01-16
حلو الله يجزيكم خير