preserve

[ali-software]

دستور preserve چه کار می کنید؟لطفا مثل واضح بزنید

[hossein033]

با سلام خدمت دوست عزیز

این کد در آرایه ها به کار می ره !!!

کار اصلی این کد تغییر تعداد آرایه هاست برای مثال شما آرایه با 8 تا عضو دارید و میخواهید آن را به 10 تبدیل کنید از این کد استفاده می کنید

امیدوارم کمکی به شما کرده باشم:لبخند:

[ali-software]

سلام.چه جوری؟لطفا یک مثال بزنید؟

[xxxxx_xxxxx]

اشتباه نكنيد، اون دستور Redim هست كه تعداد خانه هاي آرايه رو تغيير ميده.
بعد از اين كه يك آرايه اي كه قبلاً تعريف شده رو دوباره با Redim تعريف ميكنيد، مقاديري كه در خانه هاي آن ذخيره شده حذف مي شوند.
براي جلوگيري از حذف مقادير قبلي آرايه مي نويسيم Preserve.

[hossein033]

اشتباه نكنيد، اون دستور Redim هست كه تعداد خانه هاي آرايه رو تغيير ميده.
بعد از اين كه يك آرايه اي كه قبلاً تعريف شده رو دوباره با Redim تعريف ميكنيد، مقاديري كه در خانه هاي آن ذخيره شده حذف مي شوند.
براي جلوگيري از حذف مقادير قبلي آرايه مي نويسيم Preserve.

با سلام

آقای xxxxx_xxxxx کاملا درست می فرمایند

ببخشید که این اشتباه پیش اومد

[ali-software]

مثال بزنید.ممنون

[xxxxx_xxxxx]

كد زير را يك بار با Preserve امتحان كنيد، يك بار بدون Preserve


Private Sub Command1_Click()
ReDim XxX(3) As Integer
For i = 0 To 3
XxX(i) = i + 1
Print XxX(i)
Next i

Print
Print
Print

ReDim Preserve XxX(5)
For i = 0 To 5
Print XxX(i)
Next i
End Sub


اينجور مواقع از MSDN هم مي توانيد كمك بگيريد:
http://msdn.microsoft.com/en-us/library/w8k3cys2%28VS.71%29.aspx