out of memory

[مینو]

سلام خدمت دوستان
یوزر فرمی درست کرده ام که در آن از تعداد زیاد تکس بکس و لیبل استفاده شده
وقتی می خواهم اجرایش کنم با پیام
compile error:
out of memory
مواجه می شوم
آیا راهی است که بتوانم حافظه آن یوزر فرم را بالا ببرم تا برای اجرایش به این پیام روبرو نشوم
لطفاً راهنماییم کنید

[امين اسماعيلي]

RE: out of memory

اگه ممكنه دوست عزيز نمونه فايلتونو قرار بدين

[~M*E*H*D*I~]

RE: out of memory

سلام خدمت دوستان
یوزر فرمی درست کرده ام که در آن از تعداد زیاد تکس بکس و لیبل استفاده شده
وقتی می خواهم اجرایش کنم با پیام
compile error:
out of memory
مواجه می شوم
آیا راهی است که بتوانم حافظه آن یوزر فرم را بالا ببرم تا برای اجرایش به این پیام روبرو نشوم
لطفاً راهنماییم کنید

ایراد از تعریف متغیر هاست به تعداد لیبل و تکست باکس ربطی نداره

[alper]

سلام ، منم این مشکل رو دارم ، البته روی سیستم خودم ایراد نمیده ولی روی سیستم همکارم این ارورر رو میده البته اکسل من 2016 هست و اکسل اونها 2010 کسی میتونه راهنماییم کنه تا مشکل رو حل کنم ؟

[rezatkd]

سلام به دوستان و اساتید عزیز من هم همین مشکل رو دارم واقعا نمیدونم باید چه کار کنم ... اگر ممکنه یک نفر راهنمایی کنه ...


- - - Updated - - -

یک نفر این قطعه کد رو پیشنهاد داده ... به نظرتون میشه استفاده کرد ... مشخص نیست دقیقا چیه ... ممنونم

Option Explicit

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetProcessWorkingSetSize Lib "kernel32" (ByVal hProcess As Long, lpMinimumWorkingSetSize As Long, lpMaximumWorkingSetSize As Long) As Long
Private Declare Function SetProcessWorkingSetSize Lib "kernel32" (ByVal hProcess As Long, ByVal dwMinimumWorkingSetSize As Long, ByVal dwMaximumWorkingSetSize As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long

Public Sub MemoryCleanup()
'
Dim lRetVal As Long
Dim hProcess As Long
Dim lpMinimumWorkingSetSize As Long
Dim lpMaximumWorkingSetSize As Long
Const PROCESS_ALL_ACCESS = &H1F0FFF

hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, GetCurrentProcessId)
lRetVal = GetProcessWorkingSetSize(hProcess, lpMinimumWorkingSetSize, lpMaximumWorkingSetSize)
lpMinimumWorkingSetSize = -1
lpMaximumWorkingSetSize = -1
lRetVal = SetProcessWorkingSetSize(hProcess, lpMinimumWorkingSetSize, lpMaximumWorkingSetSize)
hProcess = CloseHandle(hProcess)
'
End Sub