حفظ التعديلات التي تمت علي كومند ؟

السلام عليكم...

طبعاً استخدام Control Array في مثل هذه الحالات يسهل العمل كثيراً و إن كان يمكن إنجاز المطلوب دون ذلك.

على أية حال الكود التالي يعتمد على وجود Control Array للـ Commands حسب ما هو موجود في المثال المرفق في المشاركة رقم 1 للأخ walled_aall@hot:

انسخ الكود

Private Sub Form_Load()
Dim AllSettings As Variant
Dim Idx As Long
Dim CommaPos As Long
AllSettings = GetAllSettings(App.EXEName, Me.Name)
If Not IsEmpty(AllSettings) Then
For Idx = LBound(AllSettings) To UBound(AllSettings)
CommaPos = InStr(AllSettings(Idx, 1), ",")
If CommaPos <> 0 Then
Command1(AllSettings(Idx, 0)).Left = CSng(Left(AllSettings(Idx, 1), CommaPos - 1))
Command1(AllSettings(Idx, 0)).Top = CSng(Mid(AllSettings(Idx, 1), CommaPos + 1))
End If
Next Idx
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim AButton As CommandButton
For Each AButton In Command1
SaveSetting App.EXEName, Me.Name, AButton.Index, CStr(AButton.Left) & "," & CStr(AButton.Top)
Next AButton
End Sub

مع نصيحة للأخ walled_aall@hot و هي إما أن تستعمل الزر الأيمن للسحب أو تبدأ عملية السحب في معالج الحدث MouseMove. إذا كنت ستستعمل نفس الكود الموجود في مرفق مشاركتك السابقة فاكتب الكود التالي في معالج الحدث Click للـ Command:

انسخ الكود

MsgBox "Command1_Click"

و انظر ما يحدث عند التنفيذ.

نرجو الاستفادة و السلام.

حفظ التعديلات التي تمت علي كومند ؟

مواضيع مشابهة

عدد الزوار حالياً