با یک کلیک دو کار انجام شود

[mr.siahatgar]

سلام من مبتدی هستم و یک سوال دارم چه جور میشه با فشار دادن یک دکمه دو کار یا بیشتر با هم انجام شود مثلاً من دو تا تکس بوکس دارم و میخوام با فشار دادن یک دکمه تکس بوکس اول بنویسه سلام و در تکس بوکس دوم بنویسه خوش امدید من هر کدام را حدا جدا میتوام یعنی با دو دکمه ولی با یک دکمه نمی توانم اگه میشه راهنمایی کنید

[ameri110]

Private Sub Command1_Click()
text1.text = "salam"
text2.text = "khosh amadid"
end sub

[saeedzx]

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

مثلا کلیک - دابل کلیک و ....

شما می توانید همان که دوستمون ameri110 (http://www.barnamenevis.org/forum/member.php?u=90878) گفت عمل کنید و یا در خاصیت های متفاوت این کار رو انجام بدین

[sajjad_india]

ببین یه راه دیگه هم من میگم

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

نکته : حالا میتونی بجای msgbox همون Text1.text="sallam" باشه .
دگمه شماره یک :

Private Sub Command1_Click()
MsgBox "Hello"
End Subدگمه شماه دو :

Private Sub Command2_Click()
MsgBox "Sallaamm"
End Subحالا میخوای دوباره دستورات دگمه 1 و 2 رو با یک دگمه دیگه یعنی دگمه شماره اجرا کنی برای این کار و سهولت و قشنگ شده سورس شما میتونید با دستور call دگمه شماره 1 و 2 رویدادهای Click رو اجرا کنی
دستور:

Private Sub Command3_Click()
Call Command1_Click
Call Command2_Click
End Sub