PDA

View Full Version : برگشت مقدار تابع در تكست باكس فرم دلخواه



user2535
چهارشنبه 29 مهر 1388, 00:36 صبح
باسلام
دومتغير از نوع فرم و تكست باكس تعريف كرده ام
Dim frm As Form
Dim txb As TextBox

حالا txb را برابر form1 و txb را برابر textbox1 قرار داده ام
frm = Form1
حالا اگر بخواهم بگويم txb عضوي از frm است چطوري ممكن است؟

يعني اينكه يك مقداري را من دارم و مي خواهم آن در هر يك از تكست باكسهاي هر فرمي كه دلم بخواهد بگذارم چه طور ممكن است
به عبارت ديگه مي خواهم تابعي درست كنم كه نام فرم و نام تكست باكس را بگيره و بعد مقدار را در آن تكست باكس فرم مورد نظر برگرداند
باتشكر

reza1944
چهارشنبه 29 مهر 1388, 01:57 صبح
حالا اگر بخواهم بگويم txb عضوي از frm است چطوري ممكن است؟


frm.control.add(txb)



Public Sub CallbackTextbox(ByVal frm As Form, ByVal tbx As TextBox, ByVal prm As String)
frm.Controls.Item(tbx.Name).Text = prm
End Sub


اين شايد اون چيزي باشه كه ميخواهي همون تابع

نحوه استفاده هم



CallbackTextbox(Form2, Form2.TextBox1, "Reza1944")

reza1944
چهارشنبه 29 مهر 1388, 02:00 صبح
البته تابع بالا كار رو پيچونده اولا اين تابع هم همون كار رو ميكنه



Public Sub CallbackTextbox(ByVal tbx As TextBox, ByVal prm As String)
tbx.Text = prm
End Sub


نحوه استفاده


CallbackTextbox(Form2.TextBox1, "Reza1944")


البته در شرايطي كه بخواهي وقتي نام فرم رو مينويسي تمام تكست باكسهاي اون فرم رو جدا كنه اين ديگه به يك تابع يه كم پيچيده تر نياز داره

كارت راه نيفتاد بهم خبر بده

موفق باشي