View Full Version : سوال: بدست آوردن نام رویداد Event
sohrab o
چهارشنبه 23 مرداد 1387, 15:07 عصر
با سلام
دوستان چطوری میشه متوجه شد نام این رویداد جاریمون چیه؟
مثلا دستوری که در فرم لود بنویسیم و نشون بده که این رویداد فرم لود هست و وقتی این کد و واسه رویداد های دیگه کپی کردیم ، واسه اونا هم جواب بده.
Mbt925
چهارشنبه 23 مرداد 1387, 19:41 عصر
فکر نکنم هیچگاه نیاز بشه که در خود رویداد به رویداد جاری اشاره کنیم.
لطفا یه مثال بزنید!
sohrab o
جمعه 25 مرداد 1387, 16:45 عصر
Private Sub Option2_Click()
on error goto Errlog
MSChart1.chartType = VtChChartType2dBar
Exit Sub
Errlog:
Log Me.Name, "Option2_Click", Err.Number, Err.Description
End Sub
تابع LOG زمانی که خطایی در این ساب رخ میده ، اطلاعات مربوطه رو در یک فایل log ذخیره میکنه.
Mbt925
جمعه 25 مرداد 1387, 17:41 عصر
منظورتون رو از این مثال متوجه نشدم!
sohrab o
جمعه 25 مرداد 1387, 19:15 عصر
وقتی خطایی در هر سابی اتفاق بیفته اطلاعاتی نظیر تاریخ ، ساعت ، نام فرم ، نام خطا و شماره اون در فایلی ذخیره میشه.
اون قسمتی که نوشتم "Option2_Click" ، نمیخوام برای هر سابی بشینم جداگونه نامشو بنویسم.میخوام مثلMe.Name دستوری پیدا کنم که نام رویداد جاری رو به من بده .
نمیدونم مثلا همچین دستوری me.eventname
Mbt925
جمعه 25 مرداد 1387, 21:58 عصر
نه، چیزی برای این منظور وجود نداره.
xxxxx_xxxxx
شنبه 26 مرداد 1387, 09:09 صبح
يك راه وجود داره كه بهينه تره.
اينكه همين كدها رو تو يك sub جداگانه تعريف كنيد و در هر رويدادي يك متغير به اون sub بفرستي. كه در اون متغير نام شي و روداد اون قرار داشته باشه. اُكِي؟
sohrab o
شنبه 26 مرداد 1387, 12:15 عصر
يك راه وجود داره كه بهينه تره.
اينكه همين كدها رو تو يك sub جداگانه تعريف كنيد و در هر رويدادي يك متغير به اون sub بفرستي. كه در اون متغير نام شي و روداد اون قرار داشته باشه. اُكِي؟
مرسي عزيزم
اگه دقت کني منم دقيقا همين کارو کردم
vbhamed
شنبه 26 مرداد 1387, 12:37 عصر
سلام
اگر نوشتن كد تو همه ماژول ها برات سخت هست، برنامه codesmart مي توني در چند ثانيه برات انجام بده
xxxxx_xxxxx
شنبه 26 مرداد 1387, 13:45 عصر
منظور من اين بود:
public sub Event_Run(byval Object as String, Byval Event as String)
on error goto Errlog
MSChart1.chartType = VtChChartType2dBar
Exit Sub
Errlog:
Log Me.Name, Object & "_" & Event, Err.Number, Err.Description
و بعد در ابتداي همه رويدادها:
به عنوان مثال رويداد كليك option2
Private sub Option2_Click()
Event_Run("Option2","Click")
.
.
.
end sub
sohrab o
شنبه 26 مرداد 1387, 15:08 عصر
منظور من اين بود:
public sub Event_Run(byval Object as String, Byval Event as String)
on error goto Errlog
MSChart1.chartType = VtChChartType2dBar
Exit Sub
Errlog:
Log Me.Name, Object & "_" & Event, Err.Number, Err.Description
و بعد در ابتداي همه رويدادها:
به عنوان مثال رويداد كليك option2
Private sub Option2_Click()
Event_Run("Option2","Click")
.
.
.
end sub
متوجه نشدم
میشه یه پروژه واسم درست کنی؟
sohrab o
شنبه 26 مرداد 1387, 15:09 عصر
سلام
اگر نوشتن كد تو همه ماژول ها برات سخت هست، برنامه codesmart مي توني در چند ثانيه برات انجام بده
میشه یه مثال بزنی
sohrab o
یک شنبه 27 مرداد 1387, 02:02 صبح
سلام
اگر نوشتن كد تو همه ماژول ها برات سخت هست، برنامه codesmart مي توني در چند ثانيه برات انجام بده
راستی این برنامه او نگاه کن و نظر بده
vbhamed
سه شنبه 29 مرداد 1387, 06:12 صبح
سلام
برنامه Code Smart اينجا معرفي شده
http://barnamenevis.org/forum/showthread.php?t=105719&highlight=codesmart
بعد از اينكه نصب شده وارد محيط ويژوال شو و Ctrl + F12 رو بزن تا پنجره Insert Custom Code بياد و تست كن
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.