مسج بکس

[keramat]

با سلام
در یک مسج باکس میخواهم دو خط بنویسم که متوالی نباشند و به ترتیب دیده شوند

1- خط یک
2- خط دو

[amir_ts]

با سلام
از این کد استفاده کنید.


Sub Test()
MsgBox prompt:=" خوش آمديد" & Chr(13) & "يراي ادامه دکمه ورود را کليک کنيد"
End Sub


در سطر اول خوش آمدید و در سطر بعدی برای ادامه دکمه ورود را کلیک کنید نمایش داده میشود.

[keramat]

با سپاس این کلمه چکاری انجام میدهد Chr(13)

[amir_ts]

با سپاس این کلمه چکاری انجام میدهد Chr(13)


Chr(13)

بازگشت به سر خط

[shamsololama]

با دورد فراوان
علاوه بر chr(13) که دوست خوبم امیر فرمودند وی بی خط جدید هم میشه استفاده کرد




MsgBox 1 & vbNewLine & 2

[keramat]

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

[Ali Parsaei]

سلام،
شما بايد به پارامتر دوم مسج باکس دو تا چيز اضافه کنيد يکي براي راست چين کردن خود مسج باکس و يکي براي راست چين کردن متن داخل آن بر فرض اگر پارامتر دوم را ok قرار داده ايد (يعني vbokonly) بايد دو عبارت vbMsgBoxRight و vbMsgBoxRtlReading به آن اضافه کنيد بدين صورت:


MsgBox "خوش آمديد" & vbNewLine & "روز به خير", vbOKOnly + vbMsgBoxRight + vbMsgBoxRtlReading, "ورود"

البته به جاي اين دو عبارت از معادل کد عددي آنها هم مي توانيد استفاده کنيد به اين صورت:


MsgBox "خوش آمديد" & vbNewLine & "روز به خير", vbOKOnly + 524288 + 1048576, "ورود"

دو عدد 524288 و 1048576 توانهايي از عدد دو هستند و اگر يادتان رفت مي توانيد با ضرب کردن چند باره عدد دو در خودش آنها را پيدا کنيد فقط کافي است يادتان باشد يکي از اعداد در رنج پانصدهزار است و دومي در رنج يک ميليون