(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

.....