سوال: وارد کردن متن به ترتیب در تکست باکس [بایگانی]

soheilnew

یک شنبه 02 آبان 1395, 10:51 صبح

سلام دوستان عزیز
من یه فایل تکست دارم که توش مثلا 50 تا عنوان هست که با علامت , از هم جدا شدن
مثلا :

علی,حسن, ...
چطور میتونم بایک دکمه به ترتیب در تکست باکس نمایش بدم
مثلا با کلیک اول متن علی در تکست باکی نمایش بده
با کلیک دوم متن حسن
و ...

isaac23

دوشنبه 03 آبان 1395, 09:25 صبح

سلام
یه روش هست به این صورت

یه متغیر بذار از نوع اینتیجر و هر بار روی دکمه که کلیک میکنی یکی بهش اضافه بشه .و بعد با دستور select Case مدیریتش کن

soheilnew

دوشنبه 03 آبان 1395, 09:56 صبح

سلام
یه روش هست به این صورت

یه متغیر بذار از نوع اینتیجر و هر بار روی دکمه که کلیک میکنی یکی بهش اضافه بشه .و بعد با دستور select Case مدیریتش کن

اگه ممکنه براتون با یک سورس مثال بزنید

isaac23

دوشنبه 03 آبان 1395, 11:22 صبح

Private Sub Command1_Click()
Static i As Integer
i = i + 1

Select Case i

Case Is = 1
Text1 = "علی"
Case Is = 2
Text1.Text = Text1.Text & ",محمد"

Case Is = 3
Text1.Text = Text1.Text & ",اسحاق"

End Select
End Sub

soheilnew

دوشنبه 03 آبان 1395, 12:21 عصر

ممنون دوست عزیز
اگه متن های داخل تکست باکس متغییر باشه چی؟
چون متن ها همیشه تغییر میکنند
در ضمن من میخوام مثلا اول نام محمد رو در تکس باکس دیگه نشون بده
بعدش محمد رو پاک کنه و مثلا علی رو نمایش بده با هر کلیک

isaac23

دوشنبه 03 آبان 1395, 16:14 عصر

متغیر باشه مشکلی نیست بجای تکس باکس نام متغیر رو بنویس.
خوب سوالت دومت هم که فقط بجای تکس باکس 1 من هر تکس باکسی داشتی نام اون رو بنویس.

و بهتره سوالت رو کامل بگی تا بهتر متوجه بشم.

meys34

دوشنبه 03 آبان 1395, 17:26 عصر

اینجوری فکر کنم میشه:

Private Sub Command2_Click()
Static i As Integer

Text1.Text = Split("Ali,Hasan,Hosein", ",")(i)

i = i + 1
End Sub

البته قطعا سوالتون ربطی به تالار شبکه و وب نداشت و بهتره این جور سوالات رو توی تالار اصلی وی بی 6 بپرسید

soheilnew

دوشنبه 03 آبان 1395, 17:51 عصر

اینجوری فکر کنم میشه:

Private Sub Command2_Click()
Static i As Integer

Text1.Text = Split("Ali,Hasan,Hosein", ",")(i)

i = i + 1
End Sub

البته قطعا سوالتون ربطی به تالار شبکه و وب نداشت و بهتره این جور سوالات رو توی تالار اصلی وی بی 6 بپرسید

دوست عزیز ممنون از راهنمایی
ولی همون طور که گفتم میخوام محتویات تکست باکس دیگه که روی فرمه در تکست باکی دیگه نشون بدم
این کد درست کار میکنه ولی قسمت Ali,Hasan,Hosein باید بشه تکست باکست 2 مثلا
یعنس اینکه عنوان ها داخل تکست باکس 1 هستند و با کلیک عنوان ها نشون داده بشه در تکست باکس1

meys34

دوشنبه 03 آبان 1395, 21:02 عصر

Private Sub Command1_Click()
Static i As Integer

Static T As String
If T = "" Then T = Text1.Text

Text1.Text = Split(T, ",")(i)

i = i + 1

End Sub

البته این روش درست نیست بهتره تکست 2 درست کنی و مخفیش کنی و از توی اون بخونی یا اینکه یه متغیر سراسری داشته باشی و متن اصلی رو توش بنویسی

soheilnew

سه شنبه 04 آبان 1395, 10:23 صبح

ممنون کارمو راه انداخت

parsadsa

سه شنبه 04 آبان 1395, 17:08 عصر

سلام دوستان عزیز
من یه فایل تکست دارم که توش مثلا 50 تا عنوان هست که با علامت , از هم جدا شدن
مثلا :

علی,حسن, ...
چطور میتونم بایک دکمه به ترتیب در تکست باکس نمایش بدم
مثلا با کلیک اول متن علی در تکست باکی نمایش بده
با کلیک دوم متن حسن
و ...

سلام
میتونی از تابعه Mid استفاده کنی و با بررسی هر کدوم از کاراکنر ها به نتیجه برسی ( اگه به / رسید چاپ کنه)
فایل پیوست ببین

soheilnew

چهارشنبه 05 آبان 1395, 12:09 عصر

سلام
میتونی از تابعه Mid استفاده کنی و با بررسی هر کدوم از کاراکنر ها به نتیجه برسی ( اگه به / رسید چاپ کنه)
فایل پیوست ببین

عالی بود
چیزی که مد نظرمه این بود