تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] كيف اجعل Command في جهة الايمين من Form في حال تضغير الفوم او تكبيره ؟؟
#1
Question 
الاخوه الكرام
السلام عليكم
كيف اجعل Command في جهة الايمين من Form في حال تضغير الفوم او تكبيره ؟؟
ملاحظه هامه
اريد ان تنطبق نفس الفكره على Label و text !!!
نامل من الله المساعده والله يحفظكم ويرعاكم
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد
تم الشكر بواسطة:
#2
.....

هذه طريقة بدون استخدام دوال API

منقول

موديول RightToLeftLayout
كود :
Option Explicit

Dim ctrls() As Control
Dim ctrlsLeft() As Integer

Public Sub FormLoad(frm As Form)
    ReDim ctrls(frm.controls.Count - 1) As Control
    ReDim ctrlsLeft(frm.controls.Count - 1) As Integer
    Dim i As Integer: For i = LBound(ctrls) To UBound(ctrls)
        Set ctrls(i) = frm.controls(i)
        ctrlsLeft(i) = frm.ScaleWidth - frm.controls(i).Left
    Next i
End Sub

Public Sub FormResize(frm As Form)
    If Not frm.WindowState = vbMinimized Then
        Dim i As Integer: For i = LBound(ctrls) To UBound(ctrls)
            If ctrls(i).Container Is frm Then ctrls(i).Left = frm.ScaleWidth - ctrlsLeft(i)
        Next i
    End If
End Sub

طريقة استخدامه في الفورم
كود :
Private Sub Form_Load()
    Call FormLoad(Me)
End Sub
Private Sub Form_Resize()
    Call FormResize(Me)
End Sub

.....


الملفات المرفقة
.rar   RightToLeftLayout.rar (الحجم : 1.77 ك ب / التحميلات : 53)
الرد
تم الشكر بواسطة: Microformt
#3
(17-08-14, 09:24 PM)vbnet كتب : .....

هذه طريقة بدون استخدام دوال API

منقول

موديول RightToLeftLayout
كود :
Option Explicit

Dim ctrls() As Control
Dim ctrlsLeft() As Integer

Public Sub FormLoad(frm As Form)
    ReDim ctrls(frm.controls.Count - 1) As Control
    ReDim ctrlsLeft(frm.controls.Count - 1) As Integer
    Dim i As Integer: For i = LBound(ctrls) To UBound(ctrls)
        Set ctrls(i) = frm.controls(i)
        ctrlsLeft(i) = frm.ScaleWidth - frm.controls(i).Left
    Next i
End Sub

Public Sub FormResize(frm As Form)
    If Not frm.WindowState = vbMinimized Then
        Dim i As Integer: For i = LBound(ctrls) To UBound(ctrls)
            If ctrls(i).Container Is frm Then ctrls(i).Left = frm.ScaleWidth - ctrlsLeft(i)
        Next i
    End If
End Sub

طريقة استخدامه في الفورم
كود :
Private Sub Form_Load()
    Call FormLoad(Me)
End Sub
Private Sub Form_Resize()
    Call FormResize(Me)
End Sub

.....

---------------------------------------------------
اخي العزيز
السلام عليكم ورحمة وبركاته
لكم مني جزيريل الشكر والتقدير على ما تقدمه من دعم والله يحفظكم ويرعاكم
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] كيف اجعل زر امر الطابعه في برنامج المرفق غير مفعل نامل الاطلاع عليه والمساعدة ان امكن Microformt 3 108 12-11-18, 02:06 PM
آخر رد: elgokr
  [vb6.0] كيف اجعل المستخدم يكتب في Text انجليزي فقط ؟؟ Microformt 2 149 21-09-18, 05:12 PM
آخر رد: Microformt
Question [vb6.0] كيف اجعل عند النقر على ComboBox تظهر للمستخدم رسالة ؟؟ Microformt 3 160 09-09-18, 11:21 PM
آخر رد: ahmed.m
  ما أفضل طريقة لحفظ متغيرات ال Form بعد إغلاقها اسلام الكبابى 5 274 23-05-18, 04:09 AM
آخر رد: Amir_alzubidy
Question [vb6.0] كيف اجعل زر الامر غير مفعل في حال عدم جود طابعة على الحاسب ؟ Mysystem32 1 225 28-04-18, 02:18 AM
آخر رد: Amir_alzubidy
Information [vb6.0] كيف ان اجعل الصورة الموجودة في خلفية الفورم تكون في منتصف الفورم في برنامج المرفق؟؟ Microformt 2 236 01-04-18, 02:48 PM
آخر رد: Microformt
Question [vb6.0] هل يمكن ان اجعل الصورة الموجودة في خلفية الفورم تتمدد في برنامج المرفق؟؟ Microformt 2 335 23-03-18, 06:26 AM
آخر رد: Microformt
Information [vb6.0] هل يوجد طريقة اجعل الاستعلام يعرض جميع البيانات باسرع وقت ممكن ؟؟ Microformt 3 393 26-11-17, 12:02 PM
آخر رد: الاصيله
Question [vb6.0] هل يمكن أن اجعل ملف ini قاعدة بيانات لبرنامجي ؟ Microformt 1 237 23-11-17, 12:17 AM
آخر رد: Ahmed_Mansoor
Question [vb6.0] كيف اجعل زر الامر ينتقل امام text عند انتقل موشر الكتابه الى text اخر ؟؟ Microformt 2 312 29-10-17, 07:33 AM
آخر رد: Microformt

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم