بدست آوردن نام كامند

[n_ali27]

سلام خدمت دوستان و استايد گرامي
آيا ميشود ماژولي تهيه كرد كه در يك فرم كه داراي تعدادي command است با كليك روي هر command نام آن command در يك TextBox داخل همان فرم نمايش داده شود ، خواهشمند است دوستان گرامي راهنمايي بفرمايند

[mazoolagh]

چه کاربردی داره این کار؟

[Abbas Amiri]

آيا ميشود ماژولي تهيه كرد كه در يك فرم كه داراي تعدادي command است با كليك روي هر command نام آن command در يك TextBox داخل همان فرم نمايش داده شودبیشتر شبیه تمرین ومثال کتابهاست ولی شاید برای دوستمان موردمصرف داشته باشد. تابع زیر را دریک ماژول کپی کنید


Function cmdCaption(cmd As CommandButton, txt As TextBox) As String
txt = cmd.Caption
End Function


ودر روال کلیک باتن های موردنظرآنرا صدا بزنید .( نام باتن و تکست باکس نمایش دهنده بعنوان آرگومانهای تابع )


Private Sub Command1_Click()
cmdCaption Command1, Text1
End Sub