نوشتن در تکس باکس

[ICANICAN]

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


"لطفا منتظر بمانید "+"برای ادامه کلیدی را فشار دهید "=text1.text


اما با این کد در یک خط درون تکس باکس نوشته می شه تکس باکس رو multiline هم کردم .فکر کنم باید یه جوری از کد اینتر استفاده کنم که بره خط بعدی بقیه متن رو بنویسه .ممنون میشم راهنماییم کنید:لبخندساده:

[محسن واژدی]

سلام علیکم
هر دو خط زیر یک عمل انجام میدهند:

"لطفا منتظر بمانید " & vbCrLf & "برای ادامه کلیدی را فشار دهید "=text1.text
یا
"لطفا منتظر بمانید " & vbNewLine & "برای ادامه کلیدی را فشار دهید "=text1.text

موفق باشید

[ICANICAN]

خیلی ممنون از پاسختون .اگر بخوام این اطلاعاتی که قراره توی تکس باکس بنویسم رو در یک عنصر ارایه ذخیره کنم بعد با فراخوانی اون عنصر متن رو چاپ کنم چه طور؟
باید موقع مقدار دهی به عنصر آرایه از همین کد استفاده کنم .؟:لبخندساده:

[محسن واژدی]

میتونیم به اینصورت عمل کنیم:
Private Sub Command1_Click()
Dim arrDT()
arrDT = Array("لطفا منتظر بمانيد", "براي ادامه کليدي را فشار دهيد")
Dim vCT
Text1.Text = Empty
For Each vCT In arrDT
If vCT > "" Then
Text1.Text = Text1.Text & vCT & vbNewLine
End If
Next
End Sub

موفق باشید

[ICANICAN]

این روشم خوبه ساده تره:
dim a(1) as string
a(0)="برای ادامه دکه ای بزنید" & vbnewline&"منتظر بمانید"
text1.text=a(0)

[محسن واژدی]

این روشم خوبه ساده تره:
dim a(1) as string
a(0)="برای ادامه دکه ای بزنید" & vbnewline&"منتظر بمانید"
text1.text=a(0)
بله، منتها در روشی که فرمودین بایستی ابتدا طول متغیر را مشخص (ثابت/پویا) سپس اقدام به مقدار دهی آن کنیم، اما در Array اینطور نیست، همینطور اگر مقصود ما تنها همین یک رشته باشد میتوانیم آنرا در یک متغیر عادی قرار دهیم، یعنی:
Private Sub Command1_Click()
Dim a As String
a = "براي ادامه دکه اي بزنيد" & vbNewLine & "منتظر بمانيد"
Text1.Text = a
End Sub

کدهای پست 4 را به صورت زیر هم میتوانیم ویرایش کنیم:
Private Sub Command1_Click()
Dim arrDT()
arrDT = Array("لطفا منتظر بمانيد", "براي ادامه کليدي را فشار دهيد")
Text1.Text = arrDT(0) & vbCrLf & arrDT(1)
End Sub


منتها در روش فعلی به ازای افزوده شدن هر عضو به آرایه arrDT بایستی شاخص اعضای جدید را به خط دستوری Text1.Text هم اضافه کنیم، اما در کدهای قبلی (پست4) لازم نیست

موفق باشید