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

الصفحات : 1 2

السلام عليكم
ممكن طريقة عرض الفورم في اسفل يمين الشاشة مهما تغيرت دقة الشاشة

(10-09-18, 08:52 PM)المتألق9 كتب : [ -> ]السلام عليكم
ممكن طريقة عرض الفورم في اسفل يمين الشاشة مهما تغيرت دقة الشاشة

الأفضل أن تجعل الفورم في مُنتصف الشاشة، أو جرب الخيارات الأُخرى من هذه الخاصية أخي الكريم

السلام عليكم

اخي الكريم من الخاصية location للفورم ضع الاحداثيات التي تريد ان تحدد مكان ظهور الفورم مثلا 500; 100

واعلم ان الاحداثيات تبدأ من الزاوية العلوية اليسرى بقيمة 0;0 ولن تحتاج الى كتابة اي كود

من ناحية اخرى اعتقد ولست جازما لايوجد للفورم خاصية dock هذا في نسخة vb2008 اما في النسخ الحديثة فلا اعلم لاني لم استخدمها
لذلك يتوجب عليك معرقة قياس الشاشة التي سيعمل عليها البرنامج وهذا ليس بعملي وكما ذر الاخوة قبلي يمكنك استحدام الخاصية start position

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

إضافة لما قدّمه الإخوة الأفاضل .. مع تغيير الأرقام حسب ما تريده .. و مع إضافة كود خاصية عدم تحريك الفورم

كود :

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load

     'وضعية الفورم

        Me.StartPosition = FormStartPosition.WindowsDefaultLocation

        Me.TopMost = True

        Me.Top = 118

        Me.Left = 2

        Me.Height = 585

        Me.Width = 1200

End Sub

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

كل ما عليك استخدام الكود التالى فى حدث Form1_Load

كود :

       Dim x As Integer

        Dim y As Integer

        x = Screen.PrimaryScreen.WorkingArea.Width

        y = Screen.PrimaryScreen.WorkingArea.Height - Me.Height

        Do Until x = Screen.PrimaryScreen.WorkingArea.Width - Me.Width

            x = x - 1

            Me.Location = New Point(x, y)

        Loop

يفضل ان تجعل خصائص الفورم

PHP كود :

StartPosition = Manual 

تحياتى لك

وتمنياتى لك التوفيق

مشكورين جميعا على الرد
ولكن كود الاخ [b]elgokr هو ما ابحث عنه فله الشكر والتقدير[/b]

طيب يا جماعه مشكورين على جهدكم Heart

و هالشي مو بس الاخ المتألق9 رح يستفاد منه اني كذلك
بس لوردت البرنامج يعرض اسفل يسار الشاشة
كيف؟.

(16-09-18, 03:33 PM)DK-x كتب : [ -> ]
طيب يا جماعه مشكورين على جهدكم
و هالشي مو بس الاخ المتألق9 رح يستفاد منه اني كذلك
بس لوردت البرنامج يعرض اسفل يسار الشاشة
كيف؟.

حتى تعم الفائدة كاملاً

عرض الشاشة اسفل / يمين

كود :

Dim x As Integer

       Dim y As Integer

       x = Screen.PrimaryScreen.WorkingArea.Width

       y = Screen.PrimaryScreen.WorkingArea.Height - Me.Height

       Do Until x = Screen.PrimaryScreen.WorkingArea.Width - Me.Width

           x = x - 1

           Me.Location = New Point(x, y)

       Loop

عرض الشاشة اسفل / يسار

كود :

       Dim x As Integer = 0

        Dim y As Integer = Screen.PrimaryScreen.WorkingArea.Height - Me.Height

        Me.Location = New Point(x, y)

يفضل ان تجعل خصائص الفورم

PHP كود :

StartPosition = Manual 

تحياتى لكم

وتمنياتى للجميع التوفيق

من المناقشة توصلت الى هذه النتيجة Idea

[attachment=19556]
وفيه كل الاماكن اتمنى تنفعكم Heart

[attachment=19557]

وماذا لو أريد ان يظهر الفورم في اليمين مع ظهور تدريجي وليس ظهور الفورم كاملا مرة واحدة

الصفحات : 1 2

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

المتألق9

Hazem1

ابراهيم ايبو

عبد العزيز البسكري

elgokr

المتألق9

DK-x

elgokr

DK-x

المتألق9