كيف اتلافي مشكلة تغير دقة عرض الشاشة في إختلاف الاجهزة
سؤال في دقة عرض الشاشة
مغلق
up
سبحان الله و بحمده سبحان الله العظيم
أبو كريم و مازن و نور
vb.net - c# - asp.net - oracle - sql server
manager@tm-center.com
00966508268649
![29_09_05_02_32_59_1128029579_4_13_3[_].gif](http://www.arabteam2000.com/picload/pics/29_09_05_02_32_59_1128029579_4_13_3%5B_%5D.gif)
صور gif شفافة لتجميل واجة البرنامج
الخط العثماني للمهتمين ببرمجة برامج تلاوة القرآن
كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel
هل نكذب علي الله ام نكذب علي انفسنا
البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان
ليس كل من تعمم مفتيا ، بل ان الدين الاسلامي ليس قيه كهانه و بالتالي ليس فيه ما يعرف ب رجال الدين – احمد رجب
مع خالص تحيـــــــــــــــــــــــــــــــــاتي
GAF58
عذرا علي المشاركة السابقة لقد سهوت قليلا
الرابط التالي سوف تجد ضالتك فيه باذن الله
صور gif شفافة لتجميل واجة البرنامج
الخط العثماني للمهتمين ببرمجة برامج تلاوة القرآن
كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel
هل نكذب علي الله ام نكذب علي انفسنا
البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان
ليس كل من تعمم مفتيا ، بل ان الدين الاسلامي ليس قيه كهانه و بالتالي ليس فيه ما يعرف ب رجال الدين – احمد رجب
مع خالص تحيـــــــــــــــــــــــــــــــــاتي
GAF58
سيدي العزيز ،، يمكن وضع كافة الاداوت الموجودة علي الفورم داخل اداة صورة ،، وفي حدث التحجيم Resize للفورم قم بتوسيط اداة الصورة التي عليها كافة الاداوت ،، وسوف تجد ان الادوات في منتصف الشاشة مهما كبرت او صغرت .
مجرد فكرة سريعة :)
الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.
إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.
اخي العزيز انا احدد موضع الادوات نسبة و تناسب بالنسبة للفورم بالكود
كما في الكود المرفق واضعها في موديول
ثم اخاطب ال function في حدث الفورم لود call position
Sub Position() With Form1 .Move ((Screen.Height - .ScaleHeight) / 2), _ ((Screen.Width - .ScaleWidth) / 2), _ 7600, 6300 .SSTab1.Move 100, 100, .ScaleWidth - 200, 5300 .Command1.Move 6300, 5500, 1100, 350 'form .Command2.Move 5100, 5500, 1100, 350 ' form .Picture2.Move 5800, 2400 .Picture2.BorderStyle = 0 .Command3.Move 0, 0, 1335, 350 .Command3.Enabled = False .Command4.Move 0, 500, 1335.35 .Command5.Move 0, 900, 1335, 350 .Command6.Move 0, 1300, 1335, 350 .Command7.Move 2500, 3900, 1100, 350 'tab(2) .Command8.Move 6700, 4800, 400, 400 'tab(2) .Command12.Move 2500, 4350, 1100, 350 'tab(2) .Command13.Move 6700, 4800, 400, 400 'tab(2) .Command14.Move 5800, 1850, 1335, 350 .Command15.Move 5800, 2250, 1335, 350 .Command16.Move 5800, 2650, 1335, 350 .Command17.Move 5650, 1750, 1500, 350 .Command18.Move 5650, 2450, 1500, 350 .Command19.Move 5650, 2850, 1500, 350 .Command20.Move 5650, 3250, 1500, 350 .Command21.Move 5650, 3650, 1500, 350 .Command22.Move 5650, 4700, 1500, 350 .Command13.Enabled = False .Command15.Enabled = False .Command16.Enabled = False .Check1.Move 100, 4800, 3100, 300 .Check2.Move 1400, 3900, 1100, 350 .Check3.Move 1400, 4350, 1100, 350 .Image1.Move 360, 480 .Image2.Move 360, 480 .Image3.Move 360, 480 .Image4.Move 360, 480 .Image5.Move 360, 480 .Image6.Move 360, 480 .Image7.Move 360, 480 .Image8.Move 360, 480 .Image9.Move 100, 700 .Label1.Move 1080, 480 't0 .Label2.Move 1080, 480 't1 .Label24.Move 1080, 480 't2 .Label25.Move 1080, 480 't3 .Label26.Move 1080, 480 't4 .Label27.Move 1080, 480 't5 .Label28.Move 1080, 480 't6 .Label29.Move 1080, 480 't7 .Label3.Move 100, 1300, 1300, 350 't 0 .Label4.Move 100, 1650, 1300, 350 't 0 .Label5.Move 100, 2000, 1300, 350 't 0 .Label6.Move 100, 2350, 1300, 350 't 0 .Label7.Move 100, 2700, 1300, 350 't 0 .Label8.Move 100, 3050, 1300, 350 't 0 .Label9.Move 100, 3400, 1300, 350 't 0 .Label10.Move 1600, 1300, 4500, 350 't 0 .Label11.Move 1600, 1650, 4500, 350 't 0 .Label12.Move 1600, 2000, 4500, 350 't 0 .Label13.Move 1600, 2350, 4500, 350 't 0 .Label14.Move 1600, 2700, 4500, 350 't 0 .Label15.Move 1600, 3050, 4500, 350 't 0 .Label16.Move 1600, 3400, 4500, 350 't 0 .Label17.Move 200, 1300 't1 .Label18.Move 2400, 1300 't1 .Label19.Move 4800, 1300 't1 .Label20.Move 200, 1750 't1 .Label21.Move 1600, 1750 't1 .Label22.Move 4800, 1750 't1 .Label23.Move 200, 2500 't1 .Label30.Move 100, 1300, 1200, 350 't2 .Label31.Move 100, 2200, 1200, 350 't2 .Label32.Move 100, 2650, 1200, 350 't2 .Label33.Move 100, 3100, 1200, 350 't2 .Label34.Move 100, 3550, 1200, 350 't2 .Label35.Move 100, 4800, 4800, 350 't2 .Label36.Move 3900, 1300, 700, 350 't2 .Label37.Move 3900, 1750, 700, 350 't2 .Label38.Move 3900, 2200, 700, 350 't2 .Label39.Move 3900, 2650, 700, 350 't2 .Label40.Move 100, 1300, 1200, 350 't3 Bussines .Label41.Move 100, 1750, 1200, 350 't3 Bussines .Label42.Move 100, 2650, 1200, 350 't3 Bussines .Label43.Move 100, 3100, 1200, 350 't3 Bussines .Label44.Move 100, 3550, 1200, 350 't3 Bussines .Label45.Move 100, 4000, 1200, 350 't3 Bussines .Label46.Move 3900, 1300, 700, 350 't3 Bussines .Label47.Move 3900, 1750, 700, 350 't3 Bussines .Label48.Move 3900, 2200, 700, 350 't3 Bussines .Label49.Move 3900, 2650, 700, 350 't3 Bussines .Label50.Move 3900, 3100, 700, 350 't3 Bussines .Label51.Move 3900, 3550, 700, 350 't3 Bussines .Label52.Move 3900, 4000, 700, 350 't3 Bussines .Label53.Move 100, 4800, 4800, 350 't3 Bussines .Label54.Move 100, 1400, 1200, 350 't4 Personal .Label55.Move 100, 2000, 1200, 350 't4 Personal .Label56.Move 100, 3700, 1200, 350 't4 Personal .Label57.Move 100, 4200, 1200, 350 't4 Personal .Label58.Move 100, 4700, 1200, 350 't4 Personal .Label59.Move 150, 1200, 1200, 350 't5 Other .Label60.Move 150, 3100, 2000, 350 't5 Other .Label61.Move 150, 4400, 2000, 350 't5 Other .Label62.Move 450, 4800, 2000, 350 't5 Other '.Label40.Move 0, 320, .SSTab1.Width, .SSTab1.Height - 320 '.Label1.Left = 1080 '.Label1.Top = 480 '.Image1.Top = 480 '.Image1.Left = 360 '.Label2.Left = 1080 '.Label2.Top = 480 'If .SSTab1.Tab = 2 Then .SSTab1 = 2 ']=================== .Line1.X1 = 240 .Line1.X2 = .SSTab1.Width * 95 / 100 .Line1.Y1 = .SSTab1.Height * 20 / 100 .Line1.Y2 = .SSTab1.Height * 20 / 100 .Line1.BorderWidth = 2 .Line1.BorderColor = &H80000003 .Line2.X1 = 240 .Line2.X2 = .SSTab1.Width * 95 / 100 .Line2.Y1 = (.SSTab1.Height * 20 / 100) + 15 .Line2.Y2 = (.SSTab1.Height * 20 / 100) + 15 .Line2.BorderWidth = 2 .Line2.BorderColor = vbWhite '================================= .Line3.X1 = 240 .Line3.X2 = .SSTab1.Width * 95 / 100 .Line3.Y1 = .SSTab1.Height * 20 / 100 .Line3.Y2 = .SSTab1.Height * 20 / 100 .Line3.BorderWidth = 2 .Line3.BorderColor = &H80000003 .Line4.X1 = 240 .Line4.X2 = .SSTab1.Width * 95 / 100 .Line4.Y1 = (.SSTab1.Height * 20 / 100) + 15 .Line4.Y2 = (.SSTab1.Height * 20 / 100) + 15 .Line4.BorderWidth = 2 .Line4.BorderColor = vbWhite '================================= .Line5.X1 = 240 .Line5.X2 = .SSTab1.Width * 95 / 100 .Line5.Y1 = .SSTab1.Height * 20 / 100 .Line5.Y2 = .SSTab1.Height * 20 / 100 .Line5.BorderWidth = 2 .Line5.BorderColor = &H80000003 .Line6.X1 = 240 .Line6.X2 = .SSTab1.Width * 95 / 100 .Line6.Y1 = (.SSTab1.Height * 20 / 100) + 15 .Line6.Y2 = (.SSTab1.Height * 20 / 100) + 15 .Line6.BorderWidth = 2 .Line6.BorderColor = vbWhite '===================================== .Line7.X1 = 240 .Line7.X2 = .SSTab1.Width * 95 / 100 .Line7.Y1 = .SSTab1.Height * 20 / 100 .Line7.Y2 = .SSTab1.Height * 20 / 100 .Line7.BorderWidth = 2 .Line7.BorderColor = &H80000003 .Line8.X1 = 240 .Line8.X2 = .SSTab1.Width * 95 / 100 .Line8.Y1 = (.SSTab1.Height * 20 / 100) + 15 .Line8.Y2 = (.SSTab1.Height * 20 / 100) + 15 .Line8.BorderWidth = 2 .Line8.BorderColor = vbWhite '===================================== .Line9.X1 = 240 .Line9.X2 = .SSTab1.Width * 95 / 100 .Line9.Y1 = .SSTab1.Height * 20 / 100 .Line9.Y2 = .SSTab1.Height * 20 / 100 .Line9.BorderWidth = 2 .Line9.BorderColor = &H80000003 .Line10.X1 = 240 .Line10.X2 = .SSTab1.Width * 95 / 100 .Line10.Y1 = (.SSTab1.Height * 20 / 100) + 15 .Line10.Y2 = (.SSTab1.Height * 20 / 100) + 15 .Line10.BorderWidth = 2 .Line10.BorderColor = vbWhite '===================================== .Line11.X1 = 240 .Line11.X2 = .SSTab1.Width * 95 / 100 .Line11.Y1 = .SSTab1.Height * 20 / 100 .Line11.Y2 = .SSTab1.Height * 20 / 100 .Line11.BorderWidth = 2 .Line11.BorderColor = &H80000003 .Line12.X1 = 240 .Line12.X2 = .SSTab1.Width * 95 / 100 .Line12.Y1 = (.SSTab1.Height * 20 / 100) + 15 .Line12.Y2 = (.SSTab1.Height * 20 / 100) + 15 .Line12.BorderWidth = 2 .Line12.BorderColor = vbWhite '===================================== .Line13.X1 = 240 .Line13.X2 = .SSTab1.Width * 95 / 100 .Line13.Y1 = .SSTab1.Height * 20 / 100 .Line13.Y2 = .SSTab1.Height * 20 / 100 .Line13.BorderWidth = 2 .Line13.BorderColor = &H80000003 .Line14.X1 = 240 .Line14.X2 = .SSTab1.Width * 95 / 100 .Line14.Y1 = (.SSTab1.Height * 20 / 100) + 15 .Line14.Y2 = (.SSTab1.Height * 20 / 100) + 15 .Line14.BorderWidth = 2 .Line14.BorderColor = vbWhite '===================================== .Line15.X1 = 240 .Line15.X2 = .SSTab1.Width * 95 / 100 .Line15.Y1 = .SSTab1.Height * 20 / 100 .Line15.Y2 = .SSTab1.Height * 20 / 100 .Line15.BorderWidth = 2 .Line15.BorderColor = &H80000003 .Line16.X1 = 240 .Line16.X2 = .SSTab1.Width * 95 / 100 .Line16.Y1 = (.SSTab1.Height * 20 / 100) + 15 .Line16.Y2 = (.SSTab1.Height * 20 / 100) + 15 .Line16.BorderWidth = 2 .Line16.BorderColor = vbWhite '===================================== 'Tab(1) .Text1(0).Move 900, 1300, 1335, 350 .Text1(1).Move 3250, 1300, 1335, 350 .Text1(2).Move 5800, 1300, 1335, 350 .Text2.Move 900, 1700, 600, 350 .Text3.Move 5800, 1700, 1335, 350 .Combo1.Move 2300, 1700, 2300 .Text4.Move 1900, 2400, 3800, 350 .Text5.Move 100, 2900, 5600, 1600 'Tab(2) .t1.Move 1400, 1200, 2200, 800 .Text6.Move 1400, 2100, 2200, 350 .Text7.Move 1400, 2550, 2200, 350 .Text8.Move 1400, 3000, 2200, 350 .Text9.Move 1400, 3450, 2200, 350 .Text10.Move 4800, 1200, 2300, 350 .Text11.Move 4800, 1650, 2300, 350 .Text12.Move 4800, 2100, 2300, 350 .Text13.Move 4800, 2550, 2300, 350 .Text14.Move 1400, 4800, 5200, 350 .Combo5.Move .Text9.Left, .Text9.Top, .Text9.Width + 280 .Text9.Locked = True 'tab3 .Text16.Move 1400, 1200, 2200, 350 .Text17.Move 1400, 1650, 2200, 800 .Text18.Move 1400, 2550, 2200, 350 .Text19.Move 1400, 3000, 2200, 350 .Text20.Move 1400, 3450, 2200, 350 .Text21.Move 1400, 3900, 2200, 350 .Text21.Locked = True .Combo6.Move .Text21.Left, .Text21.Top, .Text21.Width + 280 .Text22.Move 4800, 1200, 2300, 350 .Text23.Move 4800, 1650, 2300, 350 .Text24.Move 4800, 2100, 2300, 350 .Text25.Move 4800, 2550, 2300, 350 .Text26.Move 4800, 3000, 2300, 350 .Text27.Move 4800, 3450, 2300, 350 .Text28.Move 4800, 3900, 2300, 350 .Text29.Move 1400, 4800, 5200, 350 'tab4 .Text30.Move 1400, 1300, 4300, 350 .List1.Move 1400, 1850, 4300, 1650 .Combo2.Move 1400, 3700, 2850 .DTPicker1.Move 1400, 4215, 2850, 315 .DTPicker2.Move 1400, 4730, 2850, 315 'tab5 .Text31.Move 150, 1550, .SSTab1.Width - 300, 1350 .Text32.Move 150, 3400, .SSTab1.Width - 300, 800 'tab6 .Text33.Move 2400, 1300, 3100, 350 .Combo3.Move 2400, 1750, 3090 .List2.Move 150, 2450, 5300, 2600 .Label63.Move 150, 1400, 1700, 350 .Label64.Move 150, 1850, 1700, 350 '----------------------------------------------- .Command17.Enabled = False .Command18.Enabled = False .Command19.Enabled = False .Command20.Enabled = False .Command21.Enabled = False .Command22.Enabled = True '-------------------------------------------------- .Label1.Caption = "Summary of information about this contact" .Label2.Caption = "Enter Thee Name and his OR her information here" .Label24.Caption = "Enter home releated information about this contact here." .Label25.Caption = "Enter business releated information about this contact here." .Label26.Caption = "Enter personal information about this contact here." .Label27.Caption = "Additional information about this contact here." .Label28.Caption = "Enter conferencing information about this contact here." .Label29.Caption = "Add, remove, and view Digital IDs for this contact" If .Text14.Text = "" Then .Text14.Text = "http://" '======================================== .Combo4.Move .Width * 0.6, .Label1.Top .P1.Move .Combo4.Left, .Combo4.Top, .Combo4.Width - 280, .Combo4.Height End With End Sub
صور gif شفافة لتجميل واجة البرنامج
الخط العثماني للمهتمين ببرمجة برامج تلاوة القرآن
كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel
هل نكذب علي الله ام نكذب علي انفسنا
البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان
ليس كل من تعمم مفتيا ، بل ان الدين الاسلامي ليس قيه كهانه و بالتالي ليس فيه ما يعرف ب رجال الدين – احمد رجب
مع خالص تحيـــــــــــــــــــــــــــــــــاتي
GAF58
مشكورلقد وجد الحل
قمت بوضع كود التاكد من دقة عرض الشاشة فإن وجدها مضبوطة فتح البرنامج وغن وجدها غير مناسبة غيرها
سوف ادرج الكود للفائدة
Linux System Admin
هذا الموضوع مغلق.