تقييم الموضوع :
  • 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 ك ب / التحميلات : 63)
الرد }}}
تم الشكر بواسطة: 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

.....

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] كيف اجعل تقرير برنامجي تكون السجلات ملونه مثل الذي في الصورة التأليه ؟ Microformt 0 276 29-10-23, 07:37 PM
آخر رد: Microformt
Information [vb6.0] كيف اجعل الارقم في التقرير باء الغه الانجليزية حتى لو كان نظام الارقام في الويندوز Microformt 0 180 16-08-23, 10:41 AM
آخر رد: Microformt
Question [vb6.0] كيف اجعل الصورة تتحرك تدريجياً الى منتصف الفورة من جهة اليمين ؟ Microformt 1 367 13-04-23, 04:57 PM
آخر رد: Taha Okla
Question [vb6.0] كيف اجعل هذا الشريط يظهر المساحة المستخدمة من قاعدة البيانات؟ Microformt 2 742 05-10-22, 08:53 AM
آخر رد: Microformt
Question [vb6.0] كيف اجعل textيقبل فقط إدخال نسبة موأيه بتنسيق التالي ؟؟ Microformt 4 655 28-09-22, 04:54 PM
آخر رد: Microformt
  كيف اجعل الفورم الفرعي لا يختفي عند الضغط على الفورم الرئيسي مصمم هاوي 7 3,836 26-10-21, 12:51 AM
آخر رد: مصمم هاوي
Question [vb6.0] كيف اجعل المستخدم التعديل على الأرقام في text1 فقط ولا يمكن مسحها ؟ Microformt 5 1,795 30-08-21, 11:54 PM
آخر رد: اسلام الكبابى
Question [vb6.0] كيف يمكن إدرج الاسم هذا الموجود في الصورة Label على الفوم ؟؟ Microformt 2 1,222 13-05-21, 12:42 AM
آخر رد: Microformt
Question [vb6.0] هل يمكن ان اجعل زر الامر شفاف ؟؟ Microformt 0 1,066 21-08-20, 03:54 PM
آخر رد: Microformt
Question [vb6.0] هل في الامكان ان اجعل نص هذه الرسالة جهة اليمن؟؟ Microformt 1 1,155 19-04-20, 12:49 AM
آخر رد: AL_BRNS

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


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