-
حرکت اشیاء با VB اکسس
سلام
آیا حرکت در اکسس امکان پذیر است؟ مثلا من تصویری در یکی فرمهای اکسس دارم که قراره به یک سمت خاصی از فرم حرکت کنه البته یه روشی هست که تصویر رو چندین بار در کنار هم کپی کنی و هر بار یکی از اونها رو VISIBLE کنی تا کاربر فکر کنه که تصویر در حال کرکت هست. اما منظورم یکی حرکت واقعی است؟
مثلا بنظرتون بشه از تعریف متغیری که فاصله اون تصویر و از حاشیه راست یا چپ فرم تغییر بده این کار رو کرد. لطفا راهنمایی بفرمایین
با نهایت سپاس
-
1 ضمیمه
نقل قول: حرکت اشیاء با VB اکسس
حرکت اشیا با تغییر top , left با تابع قابل انجام هست .
نمونه
فایل اول
کلیک کنید برای مشاهده فایل نمونه حرکت دورانی ساده در اکسس
فایل دوم در لینک زیر
-
1 ضمیمه
نقل قول: حرکت اشیاء با VB اکسس
سلام
نمونه ضمیمه با کدنویسی کمتر رو بررسی کن!
-
نقل قول: حرکت اشیاء با VB اکسس
بسیار عالی
تخصص کد نویسی و تجربه اینجا به کار میاد.
-
نقل قول: حرکت اشیاء با VB اکسس
-
1 ضمیمه
نقل قول: حرکت اشیاء با VB اکسس
در پست های بالا خیلی کارم را راه انداختید ممنونم
غرض از مزاحمت از اینکه وقت ارزشمندتان رو میگیرم عذر می خام
سوالم این است که آیا میشود با ترکیب 4 حرکت راست چپ بالا و پایین یک حرکت دورانی یعنی دایره ای درست کرد؟ من با ترکیب فایلهای قبلی و ماژول PAUSE یکی ساختم حرکتش مربعی شد بجای دایره
-
نقل قول: حرکت اشیاء با VB اکسس
سلام
فکر کنم باید کدی برای ترکیب x,y پیدا کنیم .
فعلا برای شروع این فایل رو داشته باشید
نمونه ساعت انالوگ اکسس
-
نقل قول: حرکت اشیاء با VB اکسس
خوشحالم با شما کمی هم فکرم راستش خودم هم اولین چیزی که به ذهنم رسید استفاده از فایل ساعت بود ولی یکم برام درک کدهاش سخت بود. یه نمونه ساعت دارم کد نویسیش فک کنم کمتره
https://s17.picofile.com/file/841804...DA%AF.rar.html
-
1 ضمیمه
نقل قول: حرکت اشیاء با VB اکسس
سلام
این نمونه
کدهای اضافی حذف کردم .
میشه با for نوشت.و dlookup
یک روز فرصت بدین
اعداد y,x جدول رو بر اساس یک دایره در میارم .ثبت میکنم .که یک باتن رو بشه در محیط دایره حرکت داد.
حتما میشه.
باید تعداد ۶۰نقطه در فرم رو ردیابی کنم .
باتن میگذارم و در تنظیمات property
top,left ,رو درمیارم .
بعد درجدول وارد میکنم .
-
1 ضمیمه
نقل قول: حرکت اشیاء با VB اکسس
سلام
حسابی سرکارمون گذاشتی!:لبخند:
-
1 ضمیمه
نقل قول: حرکت اشیاء با VB اکسس
سلام
ممنون
با اجازه
چون هدف حرکت شیء هست
فایل نمونه با یک خط کد بیشتر
شی همزمان به مکان باتن فعال visible شده منتقل میشه
-
نقل قول: حرکت اشیاء با VB اکسس
نقل قول:
نوشته شده توسط
eb_1345
سلام
حسابی سرکارمون گذاشتی!:لبخند:
شرمنده اسباب زحمت شما عزیزان شدم
دم هردوتون گرم پاینده و سرزنده باشین ان شاء الله
-
نقل قول: حرکت اشیاء با VB اکسس
نقل قول:
نوشته شده توسط
padide55
سلام
این نمونه
کدهای اضافی حذف کردم .
میشه با for نوشت.و dlookup
یک روز فرصت بدین
اعداد y,x جدول رو بر اساس یک دایره در میارم .ثبت میکنم .که یک باتن رو بشه در محیط دایره حرکت داد.
حتما میشه.
باید تعداد ۶۰نقطه در فرم رو ردیابی کنم .
باتن میگذارم و در تنظیمات property
top,left ,رو درمیارم .
بعد درجدول وارد میکنم .
به نظرم این ایده تون رو ادامه بدین خیلی نتیجه خوبی میشه . چون این فایلها درست کار می کنند ولی حرکت نیستند و فقط اشیا ظاهر و غیب میشوند. من حرکت واقعی مد نظرمه( چه کم رو هم هستم ما شاء الله. رو نیست سنگ پا قزوین):لبخند:
--------------------
البته شی ماه در فایل شما حرکت میکنه ولی دایره نیست یکم کج و معوج میره ایده بالا حتما جواب میده
-
1 ضمیمه
نقل قول: حرکت اشیاء با VB اکسس
نقل قول:
نوشته شده توسط
Shahramdindoust
به نظرم این ایده تون رو ادامه بدین خیلی نتیجه خوبی میشه . چون این فایلها درست کار می کنند ولی حرکت نیستند و فقط اشیا ظاهر و غیب میشوند. من حرکت واقعی مد نظرمه( چه کم رو هم هستم ما شاء الله. رو نیست سنگ پا قزوین):لبخند:
--------------------
البته شی ماه در فایل شما حرکت میکنه ولی دایره نیست یکم کج و معوج میره ایده بالا حتما جواب میده
سلام
داخل کد عدد +450 اضاف کردم که با اون زمین جدا بشه . معلوم بشه .
اون عدد بعلاوه رو بردارید .حله .
کد سطر قبلش هم با ' غیر فعال کنید که visible هم انجام نده .
ضمنا برای نمونه ساعت هم چشم . فردا انشااله
الان براساس همین فرم هم میشه داخل اون جدول x , y دایره ها رو دراورد و در جدول گذاشت تا اجرا بشه .
باز هم برای اینکه ابجکتها از صفحه حذف بشوند اون روش ساعت خوبه .
-
1 ضمیمه
نقل قول: حرکت اشیاء با VB اکسس
نمونه بعدی با چرخش یک کنترل و با استفاده از مختصات left و top کنترل در دو آرایه ها
-
نقل قول: حرکت اشیاء با VB اکسس
خیلی ممنون و سپاس گذارم
الگو برداری می کنم و مشکل حل می شود ان شاء الله
-
2 ضمیمه
اموزش حرکت دورانی در بیسیک اکسس
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 نسبت به مرکز دایره با در نظرگرفتن طول شعاع و زاویه خط از خط افقی و عمودی نسبت به مرکز دایره
ضمیمه 152715 زاویه بر حسب رادیان
برای دایره شعاع دایره و بیضی رو یکی درنظر می گیریم shoae=beizi
اگر مقدار شعاع beizi و shoae رو عوض کنیم حرکت تبدیل به بیضی میشه . و اگرجای beizi و shoae را عوض کنیم بیضی بصورت عمودی ایستاده و افقی که درفایل اضافه نکردم
fasele فاصله هم از شعاع بزرگتر درنظر گرفته شده که مرکز دایره به اندازه شعاع به پایین و راست منتقل بشه .
با تغییر زاویه در تایم اینتروال مقدار درجه تغییر میکنه و درنهایت
مقدار x,y به فرمول move منتقل میشه و دایره به نقطه مورد نظر منتقل میشه
این فرمول جابجایی شیء
me.box1.move left ,top
Me.Box1.Move xx, yy
فایل نهایی
-
نقل قول: اموزش حرکت دورانی در بیسیک اکسس
نقل قول:
نوشته شده توسط
padide55
vba ms access rotation
sircuit in access
با سلام
کد ها اختصاصی خودم هست .
اخر بعد از یک روز موفق شدم حرکت دورانی در اکسس را با فرمول ریاضی ایجاد کنم .
مشخصات
۱-مشخص نمودن فاصله از چپ و بالا برای اینکه حرکت در محدوده فرم قرار بگیره
۲-اندازه دایره
۳-سرعت چرخش دایره
فایل نهایی
درودها و احسنت
یه جوری تو بعضی تایپیک ها میگین من برنامه نویس نیستم که آدم نمیدونه شکست نفسی در این حد رو چجوری تفسیر کنه...
آفرین بر شما :تشویق::تشویق::تشویق::تشویق:: شویق::تشویق:
-
1 ضمیمه
نقل قول: حرکت اشیاء با VB اکسس
سلام
فایل جدید
حرکت بر اساس تایم سیستم - ثانیه گرد
ضمنا
در فرمول فایل پست 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 درجه چرخش عقربه ثانیه گرد داریم |
-
نقل قول: حرکت اشیاء با VB اکسس
نقل قول:
نوشته شده توسط
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 درجه چرخش عقربه ثانیه گرد داریم |
احسنت جناب padide55
آفرین به این همت و پشتکار :تشویق::تشویق::تشویق:
-
1 ضمیمه
نقل قول: حرکت اشیاء با VB اکسس
به نظرم نمونه نیاز به یمقداری چکش کاری داره
فاصله دایره آبی نسبت به مرکز در جاهائی کم و زیاد میشود
برای جلوگیری از پرش های زیاد بهتره مقدار TimerInterval بر روی همان عدد 1000 تنظیم کنی
با توجه به دو خط عمود برهم تنظیم دقیق ثانیه دایره آبی ثانیه شمار هم لازمه
-
1 ضمیمه
نقل قول: حرکت اشیاء با VB اکسس
نقل قول:
نوشته شده توسط
eb_1345
احسنت جناب
padide55
آفرین به این همت و پشتکار :تشویق::تشویق::تشویق:
کم کم دارم میرم به سمت محاسبه ماهواره و ..... فکر کنم یک ماهواره بفرستم هوا با نرم افزار اکسس .:چشمک::قهقهه::متفکر:
ضمنا در مورد جابجایی دایره
فرمول محاسبه دایره بصورت نقطه ای هست
دایره رو کوچک کنید میبینید مشکلی نداره
به اصل فرمول شک نکنید
مشکل اینه که
عملکرد move بر اساس گوشه سمت چپ و بالای شی هست .
بطور مثال شما یک شی رو به نقطه صفر منتقل کنید . میبینید که گوشه شی به نقطه صفر میرسد . نه وسط شیء
me.object.move 0,0
وسط شی رو باید حساب کنم و به فرمول بدم که جابجایی نسبت به وسط شی انجام بشه .
نقطه جابجایی اشیا در اکسس گوشه بالا و چپ هست نه وسط شی ء و اگر دقت کنید میبینید دقیق سر جا هست .
این طرح شی ء که جابجا میشه بر اساس گوشه:
ضمیمه 152714
برای اینکه جابجایی بر اساس وسط شی باشه باید
height تقسیم بر2
weight تقسیم بر 2
این فرمول را در اینتروال move جایگزین کنید.
Me.Box1.Move xx - (Me.Box1.Width / 2), yy - (Me.Box1.Height / 2)
به top , left از move کم بشه.
همین مقدار هم به فاصله امن حاشیه اضاف باید بشه که به گوشه بالا و چپ ارور نده
-
نقل قول: حرکت اشیاء با VB اکسس
نقل قول:
نوشته شده توسط
padide55
کم کم دارم میرم به سمت محاسبه ماهواره و ..... فکر کنم یک ماهواره بفرستم هوا با نرم افزار اکسس .:چشمک::قهقهه::متفکر:
ضمنا در مورد جابجایی دایره
فرمول محاسبه دایره بصورت نقطه ای هست
دایره رو کوچک کنید میبینید مشکلی نداره
به اصل فرمول شک نکنید
مشکل اینه که
عملکرد move بر اساس گوشه سمت چپ و بالای شی هست .
وسط شی رو باید حساب کنم و به فرمول بدم که جابجایی نسبت به وسط شی انجام بشه .
نقطه جابجایی اشیا در اکسس گوشه بالا و چپ هست
نه وسط شی ء و اگر دقت کنید میبینید دقیق سر جا هست .
ضمیمه 152714
برای اینکه جابجایی بر اساس وسط شی باشه باید
height تقسیم بر2
weight تقسیم بر 2
این فرمول را در اینتروال move جایگزین کنید.
Me.Box1.Move xx - (Me.Box1.Width / 2), yy - (Me.Box1.Height / 2)
به top , left از move کم بشه.
همین مقدار هم به فاصله امن حاشیه اضاف باید بشه که به گوشه بالا و چپ ارور نده
:تشویق::تشویق::تشویق:
-
نقل قول: حرکت اشیاء با VB اکسس
تغییر سایز و موقعیت کنترلهای رو فقط زمانی باید به سراغش رفت که نیاز واقعی باشه، مثلا تراز کردن کنترلها با هم با توجه به شرایط.
یک نمونه رو در تاپیک زیر میتونین ببینین:
سوال: طراحی فرم منو اصلی پویا در اکسس (Dynamic Form) (barnamenevis.org)
اینکه انیمیشن رو فرم بسازین شاید بعنوان یک چالش کدنویسی جالب باشه ولی در عمل چون اکسس برای اینکار مناسب نیست تبعات و عوارض در بر داره.
-
2 ضمیمه
نقل قول: حرکت اشیاء با VB اکسس
من کاملا معتقدم که اکسس برنامه ارزشمندیه و صد البته برای پویانمایی و از این قبیل ساخته نشده و در واقع یک ابزار مفید برای ایجاد بانکهای اطلاعاتیه و اصلا کارش همینه
ولی هر از گاهی حس میکنم لازمه برای زیبایی کار هم که شده یه کارهایی هرچند ریز انجام بشه.حالا اگر جسارت نیست قصد دارم که پروژه بگم هر کی دوست داشت افتخار بده روش کار کنه
***** اگر ویندوز 10 نصب دارید احتمالا هنگام بالا آمدن ویندوز دیدید که کنار عبارت WELCOM دایره انتظار بسیار زیبا ساخته شده و در حال چرخش هست من تلاش زیادی کردم که اون رو انجام بدم و به دوستان تقدیم کنم ولی نتیجه بسیار زیبا نشد البته خیلی زشت هم نشد و صد البته همیشه ایده داشتن نیست که مهمه بلکه تخصص نقش بزرگی ایفا می کنه *********
ضمیمه 152733
-
نقل قول: حرکت اشیاء با VB اکسس
نقل قول:
نوشته شده توسط
Shahramdindoust
من کاملا معتقدم که اکسس برنامه ارزشمندیه و صد البته برای پویانمایی و از این قبیل ساخته نشده و در واقع یک ابزار مفید برای
ایجاد بانکهای اطلاعاتیه و اصلا کارش همینه
ولی هر از گاهی حس میکنم لازمه برای زیبایی کار هم که شده یه کارهایی هرچند ریز انجام بشه.حالا اگر جسارت نیست قصد دارم که پروژه بگم هر کی دوست داشت افتخار بده روش کار کنه
***** اگر ویندوز 10 نصب دارید احتمالا هنگام بالا آمدن ویندوز دیدید که کنار عبارت WELCOM دایره انتظار بسیار زیبا ساخته شده و در حال چرخش هست من تلاش زیادی کردم که اون رو انجام بدم و به دوستان تقدیم کنم ولی نتیجه بسیار زیبا نشد البته خیلی زشت هم نشد و صد البته همیشه ایده داشتن نیست که مهمه بلکه تخصص نقش بزرگی ایفا می کنه *********
ضمیمه 152733
سلام
هدف شما از استفاده فرم انتظار یا لودینگ در برنامه چیست ؟ آیا صرفاً بجهت جلوه ظاهری و جلب توجه کاربر از چنین فرمی میخواهید استفاده کنید ؟
-
نقل قول: حرکت اشیاء با VB اکسس
ضمناً میتوانید با استفاده از حلقه for ... next تعداد کدها رو در دوسه خط خلاصه کنی
-
نقل قول: حرکت اشیاء با VB اکسس
نقل قول:
نوشته شده توسط
eb_1345
سلام
هدف شما از استفاده فرم انتظار یا لودینگ در برنامه چیست ؟ آیا صرفاً بجهت جلوه ظاهری و جلب توجه کاربر از چنین فرمی میخواهید استفاده کنید ؟
معمولا همه برنامه ها این فرم رو دارن اینطور نیست؟ خود اکسس رو که باز می کنید ابتدا یه چن ثانیه آرم اکسس میاد بالا بعد فایل باز میشه
فک کنم برای اینه که سیستم یکم خودشو گرم کنه (: در این فاصله کل برنامه رو لود کرده باشه
-
نقل قول: حرکت اشیاء با VB اکسس
نقل قول:
نوشته شده توسط
eb_1345
ضمناً میتوانید با استفاده از حلقه for ... next تعداد کدها رو در دوسه خط خلاصه کنی
بله مطمئنا کدنویسی " بهینه" عالی است
-
نقل قول: حرکت اشیاء با VB اکسس
نقل قول:
نوشته شده توسط
Shahramdindoust
معمولا همه برنامه ها این فرم رو دارن اینطور نیست؟ خود اکسس رو که باز می کنید ابتدا یه چن ثانیه آرم اکسس میاد بالا بعد فایل باز میشه
فک کنم برای اینه که سیستم یکم خودشو گرم کنه (: در این فاصله کل برنامه رو لود کرده باشه
فلسفه واقعی استفاده از فرم لودینگ یا انتظار برای حالت و زمانی است که نرم افزار مشغول انجام عملیاتی میشود که ممکن است تا بارگذاری کامل لحظاتی بطول بینجامد که در این حالت کاربر باید صبر کند تا عملیات تمام شود و برای اینکه در طول لحظات بارگذاری هم حوصله کاربر سر نرود و هم فکر نکند که نرم افزار هنگ کرده از یک فرمی که نمایش دهنده حالت بارگذاری نرم افزار است استفاده میشود .از طرفی در خلال بارگذاری معمولاً نرم افزار در حالت not responding قرار میگیرد ، بطوریکه بنظر میرسد برنامه هنگ کرده است و در این حالت است که اشاره گر موس به حالت یک ساعت شنی یا یک دایره چرخشی و یا حالت های دیگر در می آید و در طول این زمان تصویر متحرک فرم لودینگ متوقف و ثابت میماند . بنابراین نتیجه می گیریم که در طول زمان بارگذاری که حالت هنگ در برنامه ایجاد میشود استفاده از فرمی با تصاویر متحرک ( که در محیط اکسس ساخته شده ) عملاً کار بیهوده ای می باشد.
راهی که برای اینکار پیشنهاد میشود اینست که فرم انتظار یا لودینگ را در یک محیط دیگر بصورت اجرائی( exe ) تهیه نمود و در برنامه آن را اجرا نمود
-
نقل قول: حرکت اشیاء با VB اکسس
اهان یعنی برنامه در حال بارگذاری در حالت not responding قرار میگیرد به این فکر نکرده بودم
بسیار عالی اطلاعات مفیدی بود
سپاسگذارم
----------------------
فقط اینکه اون فایل که میفرمایید بصورت exe تهیه شود، مطمئنا ایمپورت که نمیشود پس باید داخل فایل برنامه قرار بگیرد درسته؟
-
نقل قول: حرکت اشیاء با VB اکسس
نقل قول:
نوشته شده توسط
Shahramdindoust
اهان یعنی برنامه در حال بارگذاری در حالت not responding قرار میگیرد به این فکر نکرده بودم
بسیار عالی اطلاعات مفیدی بود
سپاسگذارم
----------------------
فقط اینکه اون فایل که میفرمایید بصورت exe تهیه شود، مطمئنا ایمپورت که نمیشود پس باید داخل فایل برنامه قرار بگیرد درسته؟
مثلاً در محیط vb6 یک فرم لودینگ ایجاد می کنید و در همان محیط آنرا تبدیل به فایل اجرائی می کنید و آن فایل اجرائی (exe) درکنار برنامه ات قرار میدهی و در محیط اکسس در هر کجای برنامه خواستی آن را اجرا یا ( run) می کنی
-
نقل قول: حرکت اشیاء با VB اکسس
به نظرم میر سد که باید برای فراخوانی آن فایل EXE دررویداد ON ERROR کد نویسی کرد یا نکنه اشتباه میکنم؟
البته نمیدونم حتی باید چه کدی بنویسم
-
نقل قول: حرکت اشیاء با VB اکسس
نقل قول:
نوشته شده توسط
Shahramdindoust
به نظرم میر سد که باید برای فراخوانی آن فایل EXE دررویداد ON ERROR کد نویسی کرد یا نکنه اشتباه میکنم؟
البته نمیدونم حتی باید چه کدی بنویسم
برای اجرای فایل exe از کد زیر استفاده کن !
فرض می کنیم آن فایل exe در کنار برنامه ات است
این کد رو در رویدادی که میخواهید این فایل اجرائی نمایش داده شود باید درج کنید . مثلاً بر روی فرم 1 یک کمند باتن ایجاد کرده اید که با کلیک بر روی آن میخواهید یک فرمی دیگر باز شود یا اتفاق دیگر انجام شود .
این کد را قبل از اجرای کدهای آن رویداد وارد می کنید و بعد از کدهای رویداد مربوطه کد بستن فایل اجرائی رو قرار میدهید
Shell Access.CurrentProject.Path & "\loading.exe", vbNormalFocus
برای بستن آن هم نیاز به کد دارید! :لبخند:
-
نقل قول: حرکت اشیاء با VB اکسس