منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام  عليكم اخوتي 

مطلوب  كود    VB ضبط ابعاد الشاشة للفورم   والادوات  تلقائيا   بعد الفتح ... وشكرا

(12-02-22, 04:52 AM)bilgacim كتب : [ -> ]السلام  عليكم اخوتي 

مطلوب  كود    VB ضبط ابعاد الشاشة للفورم   والادوات  تلقائيا   بعد الفتح ... وشكرا

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

تستطيع فعل ذلك من خلال ظبط قيم ال  location و ال size لكل من الفورم و الادوات التي تحويها  
مثال بسيط افتح مشروع جديد و اضف له 2 بوتن و ضع به الكود التالي

(12-02-22, 10:39 AM)asmarsou كتب : [ -> ]

(12-02-22, 04:52 AM)bilgacim كتب : [ -> ]السلام  عليكم اخوتي 

مطلوب  كود    VB ضبط ابعاد الشاشة للفورم   والادوات  تلقائيا   بعد الفتح ... وشكرا

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

تستطيع فعل ذلك من خلال ظبط قيم ال  location و ال size لكل من الفورم و الادوات التي تحويها  
مثال بسيط افتح مشروع جديد و اضف له 2 بوتن و ضع به الكود التالي

كود :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Me.StartPosition = FormStartPosition.Manual
       Me.Location = New Point(0, 0)
       Me.Size = New Size(600, 450)
       Button1.Size = New Size(55, 30)
       Button1.Location = New Point(10, 2)
       Button2.Location = New Point(480, 380) 'هذا البوتن لم يتم تحديد ايعاده سيبقى بنفس الحجم
   End Sub

شكرا أخي الغالي  بوركت .....لكن  هل هناك حل  اذا  كان البوتن  فيه صورة ؟؟؟  يعني تتغير  ابعاد   الايقونة مع صورتها  

(12-02-22, 05:27 PM)bilgacim كتب : [ -> ]

(12-02-22, 10:39 AM)asmarsou كتب : [ -> ]

(12-02-22, 04:52 AM)bilgacim كتب : [ -> ]السلام  عليكم اخوتي 

مطلوب  كود    VB ضبط ابعاد الشاشة للفورم   والادوات  تلقائيا   بعد الفتح ... وشكرا

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

تستطيع فعل ذلك من خلال ظبط قيم ال  location و ال size لكل من الفورم و الادوات التي تحويها  
مثال بسيط افتح مشروع جديد و اضف له 2 بوتن و ضع به الكود التالي

كود :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Me.StartPosition = FormStartPosition.Manual
       Me.Location = New Point(0, 0)
       Me.Size = New Size(600, 450)
       Button1.Size = New Size(55, 30)
       Button1.Location = New Point(10, 2)
       Button2.Location = New Point(480, 380) 'هذا البوتن لم يتم تحديد ايعاده سيبقى بنفس الحجم
   End Sub

شكرا أخي الغالي  بوركت .....لكن  هل هناك حل  اذا  كان البوتن  فيه صورة ؟؟؟  يعني تتغير  ابعاد   الايقونة مع صورتها  

اضبط خاصية ال Anchor  للبوتن الذي يحتوي على صورة  بحيث تكون ال Background للبوتن ستراشد و خاصية الانشر في الاتجاهات الاربع( لكي تتمدد صورة خلفية الزر بسلاسة كلما تمدد هذا الاخير)

---

(12-02-22, 07:37 PM)asmarsou كتب : [ -> ]

(12-02-22, 05:27 PM)bilgacim كتب : [ -> ]

(12-02-22, 10:39 AM)asmarsou كتب : [ -> ]

(12-02-22, 04:52 AM)bilgacim كتب : [ -> ]السلام  عليكم اخوتي 

مطلوب  كود    VB ضبط ابعاد الشاشة للفورم   والادوات  تلقائيا   بعد الفتح ... وشكرا

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

تستطيع فعل ذلك من خلال ظبط قيم ال  location و ال size لكل من الفورم و الادوات التي تحويها  
مثال بسيط افتح مشروع جديد و اضف له 2 بوتن و ضع به الكود التالي

كود :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Me.StartPosition = FormStartPosition.Manual
       Me.Location = New Point(0, 0)
       Me.Size = New Size(600, 450)
       Button1.Size = New Size(55, 30)
       Button1.Location = New Point(10, 2)
       Button2.Location = New Point(480, 380) 'هذا البوتن لم يتم تحديد ايعاده سيبقى بنفس الحجم
   End Sub

شكرا أخي الغالي  بوركت .....لكن  هل هناك حل  اذا  كان البوتن  فيه صورة ؟؟؟  يعني تتغير  ابعاد   الايقونة مع صورتها  

اضبط خاصية ال Anchor  للبوتن الذي يحتوي على صورة  بحيث تكون ال Background للبوتن ستراشد و خاصية الانشر في الاتجاهات الاربع( لكي تتمدد صورة خلفية الزر بسلاسة كلما تمدد هذا الاخير)
مثال بسيط

بدون اكواد تابع هذا الموضوع
http://vb4arb.com/vb/showthread.php?tid=32684