Printable View
سلام برنامه نويسان عزيز...
من يه برنامه نويس مبتدي هستم و مي خوام بدونم وقتي با msgBox يه پيام YesNo نمايش داده مي شه،
اگر بخواهيم شرط كنيم كه اگر Yes بود يه كاري بكن و اگر No بود يه كار ديگه چه بايد بنويسيم؟
و اگه مي شه در مورد كنترل RichTextBox هم يه توضيح كوچولو بدين:
اگر بخواهيم متن داخلپيام رو به فرمت txt ذخيره كنيم و دوباره Open كنيم، چه بايد كرد؟
ممنون از كمكتون
يا حق
خیلی وقته کار نکردم دقیقا یادم نیست!نقل قول:
ولی فکر کنم Messageox رو تو انتساب قرار میدی!
یعنی مقداری که کل دستور بر میگردونه مشخص میکنه Yes یا No یا هر کلید دیگه!
مثلا String1 = MSG (..........sdfdf)k
دوستان VB کار دقیقتر بگن!
برای مسئله بعد هم VB.NET توابع زیادی داره!
همون Write های مربوط به فایل! مثلا WriteAlllines یا .... که باهاشون تو یک فایل TXT (یا هر چی خواستی) می نویسی بعد هم با توابع Read مثلا ReadAlllines میخونی و تو هر جا خواستی قرار میدی!
ممنون nw جان اما اين رو مي دونم
مثلا يه كليد كه اگر Exit زده شد، بپرسه كه مطميني يا نه؟
و باز اگر Yes زده شد دوباره بپرسه مي خواي برنامه Save بشه يا نه؟
يا حق
وقتی تو انتساب گذاشتیش حله!نقل قول:
مثلا String1 = msgbox ("ghjhgj",fgfg)hj
حالا مقدار درون String1 که Yes یا NO یا Abort یا ... مشخص میکنه چه کلیدی رو زده!
مقدار اون رو هرجور می خوای مقایسه کن!
مثلا
Dim string1 As String
string1 = MessageBox.Show(FDgdfdfg)g
If string1 = Windows.Forms.DialogResult.Abort Then
.............
End If
یعنی اگر Abort رو زده دستورات داخل If رو اجرا کن!
If MessageBox.Show("ddddddddddd","ddddddd",.........) = Windows.Forms.DialogResult.Abort Then
.............
End If
که همون معنی رو ولی راحت تر میده!
بیا این دیگه کل مسئله!
اینقدرهاهم پیچیده نیست!
If MessageBox.Show("......gfhgh.....") = Windows.Forms.DialogResult.Yes Then
If MessageBox.Show("....dsfdsf.......") = Windows.Forms.DialogResult.Yes Then
............................. مثلا کاری که2 بار تایید شده! طرف دو بار Yes زده تا انجام بشه!
End If
End If
مي توني اين کار رو انجام بدي و اصلا هم لازم نيست نوع a در زير را Dim کني :
d = MsgBox("....." , vbYesNo + 32
If (d = vbNo) Then
Form1.show
Else
if (d = vbYes) Then
Form5.Show
Form1.Hide
End If
من قبلا یه جیز نوشته بودمنقل قول:
که جواب سوالت رو میتونی توش پیدا کنی
کد:http://d.turboupload.com/d/1521925/word_pad.zip.html
سلام دوسته عزيز
تا جايی که ميتونی تلاش کن خلاصه نويسی ياد بگيری اين خيلی بهت کمک ميکنه
جوابه سؤاله 1
کد:select case msgbox("matne peygham")
case msgboxresult.yes
case msgboxresult.no
case msgboxresult.abort
end select