با سلام.
یه سوال داشتم. دارم یه برنامه میسازم و میخوام یک سری دکمهCommand بذارم که اگه روی هر کدوم کلیک کرد یه نوشته توی یه Text1 کپی شه.
اگه میشه کل کد هایی که برای این کار نیاز هست رو به من بگید لطف خیلی بزرگی کردید ممنونم
Printable View
با سلام.
یه سوال داشتم. دارم یه برنامه میسازم و میخوام یک سری دکمهCommand بذارم که اگه روی هر کدوم کلیک کرد یه نوشته توی یه Text1 کپی شه.
اگه میشه کل کد هایی که برای این کار نیاز هست رو به من بگید لطف خیلی بزرگی کردید ممنونم
سلام.../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
*****************
اسم TextBox رو Text1 و اسم دکمه رو Command1 فرض می کنیم.../// کد زیر محتویات Text1 رو حذف و arashbi2 رو جای اونا می نویسه../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
********************
************************کد:Private Sub Command1_Click()
Text1.Text = "arashbi2"
End Sub
و اگه می خواید arashbi2 رو بدون حذف مقدار قبلی Text1 به اون اضافه کنید// می تونید از کد زیر استفاده کنید../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
*******************
***************************کد:Private Sub Command1_Click()
Text1.Text = Text1.Text & "arashbi2"
End Sub
امیدوارم منظورتون رو درست متوجه شده باشم...//// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
*********************
موفق باشید! [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
دو کنترل از Command Button و Text Box به فرم اضافه کنید و دستورات زیر رو در پنجره ی کد کپی کنید.
کاری که انجام میده اینه که تمام محتویات Text1 رو به Text2 اضافه می کنه.
کد:Private Sub Command1_Click()
Clipboard.SetText (Text1) 'Copy
End Sub
Private Sub Command2_Click()
Text2 = Text2 & Clipboard.GetText ' Paste
End Sub
اگر هم قصد کپی کردن متن انتخاب شده از Text1 رو داشتید از دستور زیر استفاده کنید:
کد:Clipboard.SetText (Text1.SelText) 'Copy
خیلی ممنونم از هر 2تون اقای noob ((البته شما خیلی pro هستید :n02: )) و اقای akbar 22:n16:
دوستان یه مشکل برام پیش امده. وقتی میخوام جای تکست . تکست مورد نظرم رو بذارم علامت سوال میاد . اما تو نت درست میاد مثلا اینا هستن که اینجا میان اما تو وی بی 6 به صورت علامت سوال میان. چیکار باید بکنم ؟ :n30::n29:
������☺��������� ���������������� ���������������� ���������������� ���������������� ���������������� ���
تو سایت هایی مثل fb مثل واقعیش میاد اما اینجا هم مثل اینکه علامت سوال میاد. کاری میشه کرد؟