حرکت اشیاء با VB اکسس

[Shahramdindoust]

سلام
آیا حرکت در اکسس امکان پذیر است؟ مثلا من تصویری در یکی فرمهای اکسس دارم که قراره به یک سمت خاصی از فرم حرکت کنه البته یه روشی هست که تصویر رو چندین بار در کنار هم کپی کنی و هر بار یکی از اونها رو VISIBLE کنی تا کاربر فکر کنه که تصویر در حال کرکت هست. اما منظورم یکی حرکت واقعی است؟
مثلا بنظرتون بشه از تعریف متغیری که فاصله اون تصویر و از حاشیه راست یا چپ فرم تغییر بده این کار رو کرد. لطفا راهنمایی بفرمایین
با نهایت سپاس

[padide55]

حرکت اشیا با تغییر top , left با تابع قابل انجام هست .
نمونه


فایل اول
کلیک کنید برای مشاهده فایل نمونه حرکت دورانی ساده در اکسس



فایل دوم در لینک زیر

[eb_1345]

سلام
نمونه ضمیمه با کدنویسی کمتر رو بررسی کن!

[padide55]

بسیار عالی
تخصص کد نویسی و تجربه اینجا به کار میاد.

[Shahramdindoust]

عالی خیلی ممنون

[Shahramdindoust]

در پست های بالا خیلی کارم را راه انداختید ممنونم
غرض از مزاحمت از اینکه وقت ارزشمندتان رو میگیرم عذر می خام
سوالم این است که آیا میشود با ترکیب 4 حرکت راست چپ بالا و پایین یک حرکت دورانی یعنی دایره ای درست کرد؟ من با ترکیب فایلهای قبلی و ماژول PAUSE یکی ساختم حرکتش مربعی شد بجای دایره

[padide55]

سلام
فکر کنم باید کدی برای ترکیب x,y پیدا کنیم .

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

[Shahramdindoust]

خوشحالم با شما کمی هم فکرم راستش خودم هم اولین چیزی که به ذهنم رسید استفاده از فایل ساعت بود ولی یکم برام درک کدهاش سخت بود. یه نمونه ساعت دارم کد نویسیش فک کنم کمتره

https://s17.picofile.com/file/841804...DA%AF.rar.html

[padide55]

سلام
این نمونه
کدهای اضافی حذف کردم .
میشه با for نوشت.و dlookup
یک روز فرصت بدین
اعداد y,x جدول رو بر اساس یک دایره در میارم .ثبت میکنم .که یک باتن رو بشه در محیط دایره حرکت داد.
حتما میشه.
باید تعداد ۶۰نقطه در فرم رو ردیابی کنم .
باتن میگذارم و در تنظیمات property
top,left ,رو درمیارم .
بعد درجدول وارد میکنم .

[eb_1345]

سلام
حسابی سرکارمون گذاشتی!

[padide55]

سلام
ممنون
با اجازه
چون هدف حرکت شیء هست
فایل نمونه با یک خط کد بیشتر

شی همزمان به مکان باتن فعال visible شده منتقل میشه

[Shahramdindoust]

سلام
حسابی سرکارمون گذاشتی!

شرمنده اسباب زحمت شما عزیزان شدم
دم هردوتون گرم پاینده و سرزنده باشین ان شاء الله

[Shahramdindoust]

سلام
این نمونه
کدهای اضافی حذف کردم .
میشه با for نوشت.و dlookup
یک روز فرصت بدین
اعداد y,x جدول رو بر اساس یک دایره در میارم .ثبت میکنم .که یک باتن رو بشه در محیط دایره حرکت داد.
حتما میشه.
باید تعداد ۶۰نقطه در فرم رو ردیابی کنم .
باتن میگذارم و در تنظیمات property
top,left ,رو درمیارم .
بعد درجدول وارد میکنم .

به نظرم این ایده تون رو ادامه بدین خیلی نتیجه خوبی میشه . چون این فایلها درست کار می کنند ولی حرکت نیستند و فقط اشیا ظاهر و غیب میشوند. من حرکت واقعی مد نظرمه( چه کم رو هم هستم ما شاء الله. رو نیست سنگ پا قزوین)
--------------------
البته شی ماه در فایل شما حرکت میکنه ولی دایره نیست یکم کج و معوج میره ایده بالا حتما جواب میده

[padide55]

به نظرم این ایده تون رو ادامه بدین خیلی نتیجه خوبی میشه . چون این فایلها درست کار می کنند ولی حرکت نیستند و فقط اشیا ظاهر و غیب میشوند. من حرکت واقعی مد نظرمه( چه کم رو هم هستم ما شاء الله. رو نیست سنگ پا قزوین)
--------------------
البته شی ماه در فایل شما حرکت میکنه ولی دایره نیست یکم کج و معوج میره ایده بالا حتما جواب میده

سلام

داخل کد عدد +450 اضاف کردم که با اون زمین جدا بشه . معلوم بشه .
اون عدد بعلاوه رو بردارید .حله .
کد سطر قبلش هم با ' غیر فعال کنید که visible هم انجام نده .

ضمنا برای نمونه ساعت هم چشم . فردا انشااله
الان براساس همین فرم هم میشه داخل اون جدول x , y دایره ها رو دراورد و در جدول گذاشت تا اجرا بشه .
باز هم برای اینکه ابجکتها از صفحه حذف بشوند اون روش ساعت خوبه .

[eb_1345]

نمونه بعدی با چرخش یک کنترل و با استفاده از مختصات left و top کنترل در دو آرایه ها

[Shahramdindoust]

خیلی ممنون و سپاس گذارم
الگو برداری می کنم و مشکل حل می شود ان شاء الله

[padide55]

vba ms access rotation
Circulation in vb access
solved
با سلام
اخر بعد از یک روز موفق شدم حرکت دورانی در اکسس را با فرمول ریاضی ایجاد کنم .
گردش دورانی در اکسس

چرخش دورانی

مشخصات
۱-مشخص نمودن فاصله از چپ و بالا برای اینکه حرکت در محدوده فرم قرار بگیره
۲-اندازه دایره‌
۳-سرعت چرخش دایره
4-جهت چرخش در جهت عقربه های ساعت و برعکس
5-تبدیل چرخش کروی به چرخش بیضی

راهنما
کل عملکرد فایل بر اساس این فرمول

rad = (3.14159 * angle) / 180

 xx = (faselech) + Cos(rad) * shoae

 yy = (faseleba) + Sin(rad) * beyzi

ابتدا اقدام به تبدیل زاویه از 1 تا 360 درجه به رادیان می کنیم برای قرارگیری در فرمول sin . cos در تابع دایره
عددp =3.14
سپس اعمال تابع جهت محاسبه نقطه x و y

این هم فرمول محاسبه x,y نسبت به مرکز دایره با در نظرگرفتن طول شعاع و زاویه خط از خط افقی و عمودی نسبت به مرکز دایره

fasele.jpg زاویه بر حسب رادیان

برای دایره شعاع دایره و بیضی رو یکی درنظر می گیریم shoae=beizi

اگر مقدار شعاع beizi و shoae رو عوض کنیم حرکت تبدیل به بیضی میشه . و اگرجای beizi و shoae را عوض کنیم بیضی بصورت عمودی ایستاده و افقی که درفایل اضافه نکردم

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


با تغییر زاویه در تایم اینتروال مقدار درجه تغییر میکنه و درنهایت
مقدار x,y به فرمول move منتقل میشه و دایره به نقطه مورد نظر منتقل میشه

این فرمول جابجایی شیء
me.box1.move left ,top

Me.Box1.Move xx, yy

فایل نهایی

[Shahramdindoust]

vba ms access rotation
sircuit in access

با سلام
کد ها اختصاصی خودم هست .
اخر بعد از یک روز موفق شدم حرکت دورانی در اکسس را با فرمول ریاضی ایجاد کنم .

مشخصات
۱-مشخص نمودن فاصله از چپ و بالا برای اینکه حرکت در محدوده فرم قرار بگیره
۲-اندازه دایره‌
۳-سرعت چرخش دایره
فایل نهایی

درودها و احسنت
یه جوری تو بعضی تایپیک ها میگین من برنامه نویس نیستم که آدم نمیدونه شکست نفسی در این حد رو چجوری تفسیر کنه...
آفرین بر شما

[padide55]

سلام

فایل جدید
حرکت بر اساس تایم سیستم - ثانیه گرد
ضمنا
در فرمول فایل پست 17 اگر بجای تایم اینتروال از تایم ثانیه استفاده کنید و مقدار زاویه در هر ثانیه ss رو تبدیل و لحاظ کنید میتوانید یک ثانبه شمار رو حرکت بدین .
با توجه به اینکه هر ثانیه 6 درجه چرخش داریم
باید عدد درجه برای حرکت شی در هر ثانیه را ضربدر 6 قرارداد.
درجه ثانیه گرد=ثانیه سیستم ضربدر شش

یعنی حرکت شی ثانیه گرد درهر ثانیه 6 درجه تغییر کنه
ثانیه 00 هم برابر زاویه 270
ثانیه 15 هم برابر زاویه 0
یعنی
از یک تا 15 ثانیه >>>> زاویه برابر عدد ثانیه ضربدر6 بعلاوه 270 تا برسیم به ثانیه 15
سپس زاویه برابر است با مقدار ثانیه ضربدر 6 منهای 90 تا برسیم به ثانیه 59


دقیقه و ساعت هم مطابق همین فرمول و فقط با مقدار تغییر در درجه بر اساس
mm , hh
این هم توضیح برای دوستان

این مسئله به دو مقدار قابل اندازه‌گیری بستگی دارد: زاویه و زمان؛ زاویه معمولاً به درجه و به شکل ساعت‌گرد، با شروع از عدد ۱۲ اندازه گرفته می‌شود. زمان نیز بر اساس یک ساعت ۱۲ ساعته می‌باشد.
یک روش حل این مسئله محاسبه سرعت تغییر زاویه (برحسب درجه) بر دقیقه است.
یک عقربه ساعت شمار در یک ساعت عقربه‌ای معمولی در هر ۱۲ ساعت ۳۶۰ درجه می‌چرخد. هر ساعت ۶۰ دقیقه است، پس ۱۲×۶۰=۷۲۰ دقیقه طول می‌کشد تا عقربه ساعت شمار ۳۶۰ درجه بچرخد یا یک دور کامل بزند
و در هر دقیقه ۰٫۵ = ۷۲۰÷۳۶۰ درجه می‌چرخد.
عقربه دقیقه شمار در ۶۰ دقیقه یک دور کامل (۳۶۰ درجه) را طی می‌کند، یعنی در هر دقیقه ۶= ۶۰÷۳۶۰ درجه می‌چرخد.

مبنای درجه عقربه هم ساعت 12 درنظر می گیریم یعنی زاویه 270 درجه

واحد	مقدار	شرح
درجه	درجه= 1/360 دایره	یک دایره شامل 360 درجه است
دقیقه	یک شستم درجه	هر دقیقه 6 درجه چرخش عقربه دقیقه گرد داریم
ثانیه	یک 3600 ام درجه	هرثانیه 6 درجه چرخش عقربه ثانیه گرد داریم

[eb_1345]

سلام

فایل جدید
حرکت بر اساس تایم سیستم - ثانیه گرد
ضمنا
در فرمول فایل پست 17 اگر بجای تایم اینتروال از تایم ثانیه استفاده کنید و مقدار زاویه در هر ثانیه ss رو تبدیل و لحاظ کنید میتوانید یک ثانبه شمار رو حرکت بدین .
با توجه به اینکه هر ثانیه 6 درجه چرخش داریم
باید عدد درجه برای حرکت شی در هر ثانیه را ضربدر 6 قرارداد.
درجه ثانیه گرد=ثانیه سیستم ضربدر شش

یعنی حرکت شی ثانیه گرد درهر ثانیه 6 درجه تغییر کنه
ثانیه 00 هم برابر زاویه 270
ثانیه 15 هم برابر زاویه 0
یعنی
از یک تا 15 ثانیه >>>> زاویه برابر عدد ثانیه ضربدر6 بعلاوه 270 تا برسیم به ثانیه 15
سپس زاویه برابر است با مقدار ثانیه ضربدر 6 منهای 90 تا برسیم به ثانیه 59


دقیقه و ساعت هم مطابق همین فرمول و فقط با مقدار تغییر در درجه بر اساس
mm , hh
این هم توضیح برای دوستان

این مسئله به دو مقدار قابل اندازه‌گیری بستگی دارد: زاویه و زمان؛ زاویه معمولاً به درجه و به شکل ساعت‌گرد، با شروع از عدد ۱۲ اندازه گرفته می‌شود. زمان نیز بر اساس یک ساعت ۱۲ ساعته می‌باشد.
یک روش حل این مسئله محاسبه سرعت تغییر زاویه (برحسب درجه) بر دقیقه است.
یک عقربه ساعت شمار در یک ساعت عقربه‌ای معمولی در هر ۱۲ ساعت ۳۶۰ درجه می‌چرخد. هر ساعت ۶۰ دقیقه است، پس ۱۲×۶۰=۷۲۰ دقیقه طول می‌کشد تا عقربه ساعت شمار ۳۶۰ درجه بچرخد یا یک دور کامل بزند
و در هر دقیقه ۰٫۵ = ۷۲۰÷۳۶۰ درجه می‌چرخد.
عقربه دقیقه شمار در ۶۰ دقیقه یک دور کامل (۳۶۰ درجه) را طی می‌کند، یعنی در هر دقیقه ۶= ۶۰÷۳۶۰ درجه می‌چرخد.

مبنای درجه عقربه هم ساعت 12 درنظر می گیریم یعنی زاویه 270 درجه

واحد	مقدار	شرح
درجه	درجه= 1/360 دایره	یک دایره شامل 360 درجه است
دقیقه	یک شستم درجه	هر دقیقه 6 درجه چرخش عقربه دقیقه گرد داریم
ثانیه	یک 3600 ام درجه	هرثانیه 6 درجه چرخش عقربه ثانیه گرد داریم

احسنت جناب padide55
آفرین به این همت و پشتکار

[eb_1345]

به نظرم نمونه نیاز به یمقداری چکش کاری داره
فاصله دایره آبی نسبت به مرکز در جاهائی کم و زیاد میشود


برای جلوگیری از پرش های زیاد بهتره مقدار TimerInterval بر روی همان عدد 1000 تنظیم کنی
با توجه به دو خط عمود برهم تنظیم دقیق ثانیه دایره آبی ثانیه شمار هم لازمه

[padide55]

احسنت جناب padide55
آفرین به این همت و پشتکار

کم کم دارم میرم به سمت محاسبه ماهواره و ..... فکر کنم یک ماهواره بفرستم هوا با نرم افزار اکسس .

ضمنا در مورد جابجایی دایره

فرمول محاسبه دایره بصورت نقطه ای هست
دایره رو کوچک کنید میبینید مشکلی نداره
به اصل فرمول شک نکنید
مشکل اینه که
عملکرد move بر اساس گوشه سمت چپ و بالای شی هست .

بطور مثال شما یک شی رو به نقطه صفر منتقل کنید . میبینید که گوشه شی به نقطه صفر میرسد . نه وسط شیء
me.object.move 0,0
وسط شی رو باید حساب کنم و به فرمول بدم که جابجایی نسبت به وسط شی انجام بشه .
نقطه جابجایی اشیا در اکسس گوشه بالا و چپ هست نه وسط شی ء و اگر دقت کنید میبینید دقیق سر جا هست .

این طرح شی ء که جابجا میشه بر اساس گوشه:

top left.jpg

برای اینکه جابجایی بر اساس وسط شی باشه باید
height تقسیم بر2
weight تقسیم بر 2

این فرمول را در اینتروال move جایگزین کنید.

 Me.Box1.Move xx - (Me.Box1.Width / 2), yy - (Me.Box1.Height / 2)

به top , left از move کم بشه.

همین مقدار هم به فاصله امن حاشیه اضاف باید بشه که به گوشه بالا و چپ ارور نده

[eb_1345]

کم کم دارم میرم به سمت محاسبه ماهواره و ..... فکر کنم یک ماهواره بفرستم هوا با نرم افزار اکسس .

ضمنا در مورد جابجایی دایره

فرمول محاسبه دایره بصورت نقطه ای هست
دایره رو کوچک کنید میبینید مشکلی نداره
به اصل فرمول شک نکنید
مشکل اینه که
عملکرد move بر اساس گوشه سمت چپ و بالای شی هست .
وسط شی رو باید حساب کنم و به فرمول بدم که جابجایی نسبت به وسط شی انجام بشه .
نقطه جابجایی اشیا در اکسس گوشه بالا و چپ هست نه وسط شی ء و اگر دقت کنید میبینید دقیق سر جا هست .


top left.jpg

برای اینکه جابجایی بر اساس وسط شی باشه باید
height تقسیم بر2
weight تقسیم بر 2

این فرمول را در اینتروال move جایگزین کنید.

 Me.Box1.Move xx - (Me.Box1.Width / 2), yy - (Me.Box1.Height / 2)

به top , left از move کم بشه.

همین مقدار هم به فاصله امن حاشیه اضاف باید بشه که به گوشه بالا و چپ ارور نده

[mazoolagh]

تغییر سایز و موقعیت کنترلهای رو فقط زمانی باید به سراغش رفت که نیاز واقعی باشه، مثلا تراز کردن کنترلها با هم با توجه به شرایط.
یک نمونه رو در تاپیک زیر میتونین ببینین:
سوال: طراحی فرم منو اصلی پویا در اکسس (Dynamic Form) (barnamenevis.org)

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

[Shahramdindoust]

من کاملا معتقدم که اکسس برنامه ارزشمندیه و صد البته برای پویانمایی و از این قبیل ساخته نشده و در واقع یک ابزار مفید برای ایجاد بانکهای اطلاعاتیه و اصلا کارش همینه
ولی هر از گاهی حس میکنم لازمه برای زیبایی کار هم که شده یه کارهایی هرچند ریز انجام بشه.حالا اگر جسارت نیست قصد دارم که پروژه بگم هر کی دوست داشت افتخار بده روش کار کنه


***** اگر ویندوز 10 نصب دارید احتمالا هنگام بالا آمدن ویندوز دیدید که کنار عبارت WELCOM دایره انتظار بسیار زیبا ساخته شده و در حال چرخش هست من تلاش زیادی کردم که اون رو انجام بدم و به دوستان تقدیم کنم ولی نتیجه بسیار زیبا نشد البته خیلی زشت هم نشد و صد البته همیشه ایده داشتن نیست که مهمه بلکه تخصص نقش بزرگی ایفا می کنه *********

IMG_20201222_224703.jpg

[eb_1345]

من کاملا معتقدم که اکسس برنامه ارزشمندیه و صد البته برای پویانمایی و از این قبیل ساخته نشده و در واقع یک ابزار مفید برای ایجاد بانکهای اطلاعاتیه و اصلا کارش همینه
ولی هر از گاهی حس میکنم لازمه برای زیبایی کار هم که شده یه کارهایی هرچند ریز انجام بشه.حالا اگر جسارت نیست قصد دارم که پروژه بگم هر کی دوست داشت افتخار بده روش کار کنه


***** اگر ویندوز 10 نصب دارید احتمالا هنگام بالا آمدن ویندوز دیدید که کنار عبارت WELCOM دایره انتظار بسیار زیبا ساخته شده و در حال چرخش هست من تلاش زیادی کردم که اون رو انجام بدم و به دوستان تقدیم کنم ولی نتیجه بسیار زیبا نشد البته خیلی زشت هم نشد و صد البته همیشه ایده داشتن نیست که مهمه بلکه تخصص نقش بزرگی ایفا می کنه *********

IMG_20201222_224703.jpg

سلام
هدف شما از استفاده فرم انتظار یا لودینگ در برنامه چیست ؟ آیا صرفاً بجهت جلوه ظاهری و جلب توجه کاربر از چنین فرمی میخواهید استفاده کنید ؟

[eb_1345]

ضمناً میتوانید با استفاده از حلقه for ... next تعداد کدها رو در دوسه خط خلاصه کنی

[Shahramdindoust]

سلام
هدف شما از استفاده فرم انتظار یا لودینگ در برنامه چیست ؟ آیا صرفاً بجهت جلوه ظاهری و جلب توجه کاربر از چنین فرمی میخواهید استفاده کنید ؟

معمولا همه برنامه ها این فرم رو دارن اینطور نیست؟ خود اکسس رو که باز می کنید ابتدا یه چن ثانیه آرم اکسس میاد بالا بعد فایل باز میشه
فک کنم برای اینه که سیستم یکم خودشو گرم کنه (: در این فاصله کل برنامه رو لود کرده باشه

[Shahramdindoust]

ضمناً میتوانید با استفاده از حلقه for ... next تعداد کدها رو در دوسه خط خلاصه کنی

بله مطمئنا کدنویسی " بهینه" عالی است

[eb_1345]

معمولا همه برنامه ها این فرم رو دارن اینطور نیست؟ خود اکسس رو که باز می کنید ابتدا یه چن ثانیه آرم اکسس میاد بالا بعد فایل باز میشه
فک کنم برای اینه که سیستم یکم خودشو گرم کنه (: در این فاصله کل برنامه رو لود کرده باشه

فلسفه واقعی استفاده از فرم لودینگ یا انتظار برای حالت و زمانی است که نرم افزار مشغول انجام عملیاتی میشود که ممکن است تا بارگذاری کامل لحظاتی بطول بینجامد که در این حالت کاربر باید صبر کند تا عملیات تمام شود و برای اینکه در طول لحظات بارگذاری هم حوصله کاربر سر نرود و هم فکر نکند که نرم افزار هنگ کرده از یک فرمی که نمایش دهنده حالت بارگذاری نرم افزار است استفاده میشود .از طرفی در خلال بارگذاری معمولاً نرم افزار در حالت not responding قرار میگیرد ، بطوریکه بنظر میرسد برنامه هنگ کرده است و در این حالت است که اشاره گر موس به حالت یک ساعت شنی یا یک دایره چرخشی و یا حالت های دیگر در می آید و در طول این زمان تصویر متحرک فرم لودینگ متوقف و ثابت میماند . بنابراین نتیجه می گیریم که در طول زمان بارگذاری که حالت هنگ در برنامه ایجاد میشود استفاده از فرمی با تصاویر متحرک ( که در محیط اکسس ساخته شده ) عملاً کار بیهوده ای می باشد.

راهی که برای اینکار پیشنهاد میشود اینست که فرم انتظار یا لودینگ را در یک محیط دیگر بصورت اجرائی( exe ) تهیه نمود و در برنامه آن را اجرا نمود

[Shahramdindoust]

اهان یعنی برنامه در حال بارگذاری در حالت not responding قرار میگیرد به این فکر نکرده بودم
بسیار عالی اطلاعات مفیدی بود
سپاسگذارم
----------------------
فقط اینکه اون فایل که میفرمایید بصورت exe تهیه شود، مطمئنا ایمپورت که نمیشود پس باید داخل فایل برنامه قرار بگیرد درسته؟

[eb_1345]

اهان یعنی برنامه در حال بارگذاری در حالت not responding قرار میگیرد به این فکر نکرده بودم
بسیار عالی اطلاعات مفیدی بود
سپاسگذارم
----------------------
فقط اینکه اون فایل که میفرمایید بصورت exe تهیه شود، مطمئنا ایمپورت که نمیشود پس باید داخل فایل برنامه قرار بگیرد درسته؟

مثلاً در محیط vb6 یک فرم لودینگ ایجاد می کنید و در همان محیط آنرا تبدیل به فایل اجرائی می کنید و آن فایل اجرائی (exe) درکنار برنامه ات قرار میدهی و در محیط اکسس در هر کجای برنامه خواستی آن را اجرا یا ( run) می کنی

[Shahramdindoust]

به نظرم میر سد که باید برای فراخوانی آن فایل EXE دررویداد ON ERROR کد نویسی کرد یا نکنه اشتباه میکنم؟
البته نمیدونم حتی باید چه کدی بنویسم

[eb_1345]

به نظرم میر سد که باید برای فراخوانی آن فایل EXE دررویداد ON ERROR کد نویسی کرد یا نکنه اشتباه میکنم؟
البته نمیدونم حتی باید چه کدی بنویسم

برای اجرای فایل exe از کد زیر استفاده کن !
فرض می کنیم آن فایل exe در کنار برنامه ات است

این کد رو در رویدادی که میخواهید این فایل اجرائی نمایش داده شود باید درج کنید . مثلاً بر روی فرم 1 یک کمند باتن ایجاد کرده اید که با کلیک بر روی آن میخواهید یک فرمی دیگر باز شود یا اتفاق دیگر انجام شود .
این کد را قبل از اجرای کدهای آن رویداد وارد می کنید و بعد از کدهای رویداد مربوطه کد بستن فایل اجرائی رو قرار میدهید

    Shell Access.CurrentProject.Path & "\loading.exe", vbNormalFocus

برای بستن آن هم نیاز به کد دارید!

[Shahramdindoust]

خیلی ممنون