PDA

View Full Version : مبتدی: سوال: انتقال متن به برچسب با شرایط گفته شده!!!!


ayson0
دوشنبه 12 تیر 1391, 23:13 عصر
سلام خوبین؟! یه سوالی هست میگه برنامه ای بنویسید که حاوی یه تکست باکس و یه دکمه و یه لیبل باشه
به طوریکه وقتی دکمه رو فشار میدیم محتوای تکست باکس بریزه تو لیبل!!!!!!! این که واضحه!!!!!!!!!!
حالا روی سوالو میپیچونم و میخوام برنامه رو طوری بنویسم که وقتی محتوای تکست باکسو ریختوندیم تو لیبل
و هنوز همون متن داخل تکست باکس باقی مونده بازم دکمه رو فشار بدیم! بازم محتوای تکست باکس بیاد
بریزه زیر همون متنه قبلی که تو لیبیله!!!!!! (تو حالته عادی هیچ اتفاقی نمیوفته)! اگرم محتوای تکست باکسو پاک کردیم محتوای لیبل هم پاک شه! نمیدونم درست توضیح دادم یا خیلی پیچوندمش؟!
m2011kh
دوشنبه 12 تیر 1391, 23:27 عصر
Private Sub Command1_Click()
If Text1.Text = Label1.Caption Then
Label1.Caption = Label1.Caption + Text1.Text
Else
Label1.Caption = Text1.Text
End If
End Sub
اینم چیزی که میخواستی ابجیه عزیز.
اگه کمکی خواستید بازم بگید اگه در توانم باشه در خدمتیم.
ayson0
سه شنبه 13 تیر 1391, 00:25 صبح
مرسی عزیزم ولی بازم یه سوال !!!!!!
این کدو تست کردم واسه بار سومی که دکمه رو فشار میدیم یکی از نوشته ها پاک میشه!!! (بجای اینکه برای بار سوم به لیبل منتقل شه)!!!
arenaw
سه شنبه 13 تیر 1391, 00:43 صبح
یعنی اگه مثلا 3 بار زدیم
لیبل بشه Text1Text1Text1
?
بعد اگه اون موقع تکست رو کنیم Text2 متن لیبل بایدچی بشه؟
ayson0
سه شنبه 13 تیر 1391, 00:48 صبح
اره دیگه!!!!!! هر چن بار دکمه رو فشار بدیم متن تکست همون قد به لیبل بره!
اگه متن تکستو پاک کنیم متن لیبل هم پاک شه !!!!!! اگه متنشو بزنیم تکست2 خب متن لیبلم همون شه !!!!!
کلا محتوای لیبل عند محتوای تکست شه!
اصولا من زیاد سوالارو میپیچونم!
setroyd
سه شنبه 13 تیر 1391, 01:27 صبح
Private Sub Command1_Click()
If Text1.Text = "" Then Label1.Caption = ""
Label1.Caption = Label1.Caption + Text1.Text
End Sub


این کدیه که میخوای اگه سوالی مونده بپرس برات توضیح بدم .
ayson0
سه شنبه 13 تیر 1391, 01:37 صبح
اره این شبیه بود مرسی!!!!!!
حالا سوال :!
وقتی محتوای تکست باکسو پاک میکنیم تا یه متن جدید بذاریم توش!!!!!!!!!! میخوام محتوای لیبل هم پاک شه!
و اینکه این کدی که نوشتی وقتی تعداد کلیک ها زیاد میشه متن از فرم میزنه بیرون! و دیده نمیشه مگه اینکه فرمو بکشیم عریضش کنیم!
(میتونی جوری بنویسیش که فرم اتوماتیک! تغییر سایز بده و عریض شه ؟!)!

توضیح اضافی : وقتی محتوای تکست رو پاک میکنیم و یه چی دیگه درش اضافه میکنیم ((بعد دکمه رو میزنیم)) محتواهای قبلی لیبل میخوام پاک شه! و محتوای تکست بریزه توش!
ali-a2
سه شنبه 13 تیر 1391, 01:45 صبح
وقتی محتوای تکست باکسو پاک میکنیم تا یه متن جدید بذاریم توش!!!!!!!!!! میخوام محتوای لیبل هم پاک شه!



If Text1.text = "" Then Label1.Caption = ""


توجه داشته باشید کد را در Text1_Change قرار دهید نه Command_Click

موفق باشید
setroyd
سه شنبه 13 تیر 1391, 01:46 صبح
اکه میتونی بیا تو yahoo بگو اینجوری منظورتو نمیفهمم برای شکستن هر خط میتونی از vbnewline استففاده کنی .
ayson0
سه شنبه 13 تیر 1391, 01:52 صبح
علی میزنمتااااا !! اون کد در صورتی جواب میده که محتوای تکستو پاک کنیم بعدش دکمه رو فشار بدیم!!!!! (توضیح اضافی رو دریاب)!

باشه میام یاهو ...
ali-a2
سه شنبه 13 تیر 1391, 01:57 صبح
علی میزنمتااااا !! اون کد در صورتی جواب میده که محتوای تکستو پاک کنیم بعدش دکمه رو فشار بدیم!!!!! (توضیح اضافی رو دریاب)!



خوب کد باید در Text1_Change قرار بگیره نه در Command_Click



Private Sub Text1_Change()
If Text1.Text = "" Then label1.Caption = ""
End Sub


موفق باشید