چگونه در هنگام اجرای برنامه پیغام ظاهر شود؟!

سلام.
یه سوال داشتم. نخندید لطفا.

من یه کدی میخوام برای ویژوال بیسیک،که وقتی برنامه را اجرا کردیم سریعا یه پیام نشون بده.

میدونم برای شما ها کاری نداره ولی خوب. تا حالا با ویژوال بیسیک کار نکردم.
منتظرم. بای

دوست عزیز می تونی از دستور MsgBox در رویداد Load استفاده کنی مثل کد زیر :

کد:

---

Private Sub Form_Load()
MsgBox "Hello"
End Sub

---

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

سلام
چند سوال
1- حالا اگه ما بخواهيم موقع خروج نرم افزار يه پيغام ظاهر شه بايد چه كرد ؟
2- اگه ما بخواهيم در وقت معيني پيغام ظاهر شه بايد چه كنيم ؟
3- ممنون

نقل قول:

---

نوشته شده توسط Mehrdad_Desiner [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام
چند سوال
1- حالا اگه ما بخواهيم موقع خروج نرم افزار يه پيغام ظاهر شه بايد چه كرد ؟

---

کد:

---

Private Sub Form_Unload(Cancel As Integer)
    MsgBox "Good Bye ...", 64, "MB_Danger"
End Sub

---

نقل قول:

---

2- اگه ما بخواهيم در وقت معيني پيغام ظاهر شه بايد چه كنيم ؟

---

یه Timer روی Form ت قرار بده که خصیصه ی Interval ش روی 1000 تنظیم باشه .

کد:

---

Dim A 'اين عبارت در قسمت جنرال تايپ شود

Private Sub Timer1_Timer()
    A = A + 1
    If A = 5 Then
        MsgBox "Time Up !", 16, "MB_Danger"
        Timer1.Enabled = False
    End If
End Sub

---

نقل قول:

---

3- ممنون

---

خواهش می کنم .
اگه سوالی بود ، ما در خدمتیم .
موفق و پیروز ...

نقل قول:

---

نوشته شده توسط MB_Danger [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کد:

---

Private Sub Form_Unload(Cancel As Integer)

---

کد:

---

  MsgBox "Good Bye ...", 64, "MB_Danger"
End Sub

---

یه Timer روی Form ت قرار بده که خصیصه ی Interval ش روی 1000 تنظیم باشه .

کد:

---

Dim A 'اين عبارت در قسمت جنرال تايپ شود

---

کد:

---


Private Sub Timer1_Timer()
  A = A + 1
  If A = 5 Then
      MsgBox "Time Up !", 16, "MB_Danger"
      Timer1.Enabled = False
  End If
End Sub

---

موفق و پیروز ...

---

سلام 2 سوال
1- كد پيغام هنگام خروج از برنامه را متوجه شدم به جز اون قسمي كه زديد
, 64 ,
2- و در مورد اين كد يه مقدار بيشتر توضيح دهيد .

Private Sub Timer1_Timer()
A = A + 1
If A = 5 Then
MsgBox "Time Up !", 16, "MB_Danger"
Timer1.Enabled = False
End If
End Sub

كه چرا نتيجهA + 1 رو بريزه تو متغير A
و چرا شرط در برنامه قرار داديد منظورم اينه كه منظور از A = 5 چيه ؟
ممنون

سلام

سوال 1

دوست عزیز منظور از 64 همون Vbinformation هستش فقط از کدش استفاده کردن

سلام
ممنون

نقل قول:

---

نوشته شده توسط Mehrdad_Desiner [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام 2 سوال
1- كد پيغام هنگام خروج از برنامه را متوجه شدم به جز اون قسمي كه زديد
, 64 ,
2- و در مورد اين كد يه مقدار بيشتر توضيح دهيد .

کد:

---

[COLOR=black]Private Sub Timer1_Timer()
A = A + 1
If A = 5 Then
MsgBox "Time Up !", 16, "MB_Danger"
Timer1.Enabled = False
End If
End Sub

---

كه چرا نتيجهA + 1 رو بريزه تو متغير A
و چرا شرط در برنامه قرار داديد منظورم اينه كه منظور از A = 5 چيه ؟
ممنون

---

سلام ...

ممنون از توضیحات whisper عزیز

جواب سوال اول :

vbCritical = 16
vbQuestion = 32
vbExclamation = 48
Vbinformation = 64

جواب سوال دوم :

وقتی Interval روی 1000 تنظیم باشه ، یعنی هر 1 ثانیه دستورات Timer اجرا میشه .
ما یک متغیر با نام A تعریف کردیم که مقدار اولیه ش صفره .
دستور A = A + 1 در هر ثانیه یکی به مقدار A اضافه می کنه ، پس در ثانیه ی اول مقدار A از صفر تبدیل به 1 میشه ، در ثانیه دوم از 1 به 2 تغییر پیدا می کنه ، در ثانیه ی سوم از 2 به 3 ، در ثانیه ی چهارم از 3 به 4 و در ثانیه ی پنجم از 4 به 5 تغییر می کنه !
وقتی مقدار A مساوی با 5 شد ، دستور شرطی True میشه !
و همون لحظه یه پیغام برای کاربر ظاهر و Timer غیر فعال میشه ...
البته اگه مقدار Interval را 5000 میذاشتیم دیگه نیازی به تعریف متغیر و استفاده از دستور شرطی نبود !
ولی من عمدا از این روش استفاده کردم .
سوال اول شما هم همین بود دیگه ... !!
مگه شما نمیخواستید در وقت معینی یه پیغام ظاهر بشه ؟
این برنامه 5 ثانیه پس از اجرا شدنش پیغامی به کاربر نشون میده ...
موفق باشید .

سلام
توضيح كاملي بود
از همتون ممنونم

سلام

آقا MB_Danger دستت درد نکنه به خاطر توضیح کاملت چون دومی هم از نظر ساختاری فهمیدم ولی دلیل اینکه متغیر گذاشته بودید رو نه.

سلام عزیزم ...
خواهش می کنم !
وظیفه م بود :blush: