Printable View
سلام دوستان عزیز
من یه فایل تکست دارم که توش مثلا 50 تا عنوان هست که با علامت , از هم جدا شدن
مثلا :
چطور میتونم بایک دکمه به ترتیب در تکست باکس نمایش بدمکد HTML:علی,حسن, ...
مثلا با کلیک اول متن علی در تکست باکی نمایش بده
با کلیک دوم متن حسن
و ...
سلام
یه روش هست به این صورت
یه متغیر بذار از نوع اینتیجر و هر بار روی دکمه که کلیک میکنی یکی بهش اضافه بشه .و بعد با دستور select Case مدیریتش کن
اگه ممکنه براتون با یک سورس مثال بزنیدنقل قول:
نوشته شده توسط isaac23
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
ممنون دوست عزیز
اگه متن های داخل تکست باکس متغییر باشه چی؟
چون متن ها همیشه تغییر میکنند
در ضمن من میخوام مثلا اول نام محمد رو در تکس باکس دیگه نشون بده
بعدش محمد رو پاک کنه و مثلا علی رو نمایش بده با هر کلیک
متغیر باشه مشکلی نیست بجای تکس باکس نام متغیر رو بنویس.
خوب سوالت دومت هم که فقط بجای تکس باکس 1 من هر تکس باکسی داشتی نام اون رو بنویس.
و بهتره سوالت رو کامل بگی تا بهتر متوجه بشم.
اینجوری فکر کنم میشه:
Private Sub Command2_Click()
Static i As Integer
Text1.Text = Split("Ali,Hasan,Hosein", ",")(i)
i = i + 1
End Sub
البته قطعا سوالتون ربطی به تالار شبکه و وب نداشت و بهتره این جور سوالات رو توی تالار اصلی وی بی 6 بپرسید
دوست عزیز ممنون از راهنمایینقل قول:
نوشته شده توسط meys34
ولی همون طور که گفتم میخوام محتویات تکست باکس دیگه که روی فرمه در تکست باکی دیگه نشون بدم
این کد درست کار میکنه ولی قسمت Ali,Hasan,Hosein باید بشه تکست باکست 2 مثلا
یعنس اینکه عنوان ها داخل تکست باکس 1 هستند و با کلیک عنوان ها نشون داده بشه در تکست باکس1
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
میتونی از تابعه Mid استفاده کنی و با بررسی هر کدوم از کاراکنر ها به نتیجه برسی ( اگه به / رسید چاپ کنه)
فایل پیوست ببین
عالی بودنقل قول:
نوشته شده توسط parsadsa
چیزی که مد نظرمه این بود