اضافه کردن دکمه به RitchTexBox?

[امیر-نا]

با سلام
آیا میشه که به داخل یک ritchTextBox یک دکمه اضافه کرد؟


ممنون
امیر

[یاشار]

بله میشه ، یه راه ساده‌اش اینکه که یه دکمه از ToolBox بردارید بندازید تویRTB
ولی اگر بخواهین دگمه به اسکرول بار بالا پایین بشه ... یه خورده کار داره.

راه حل ساده به درد نخور:

Dim btnRTB As New Windows.Forms.Button

        btnRTB.Name = "btn1"

        btnRTB.Text = "Click me"



        btnRTB.Top  = ....

        btnRTB.Width = ....

        btnRTB.Height = ....



        RTB.Controls.Add(btnRTB)

        AddHandler btnRTB.Click , address of SomeDelegate .... long story

حالا اگه اشکالی نداره میتونم بپرسم چه کاری میخواهین انجام بدین ؟

[امیر-نا]

با سلام
ممنون از جوابتون
میشه بگین چه جوری به این دکمه کار انتساب داد

ممنون امیر

[یاشار]

میشه بگین چه جوری به این دکمه کار انتساب داد

اگر منظورتون از انتساب، یک EventHandler هست که بتونه Click Event رو اداره کنه، باید با استفاده از دستور AddHandler این Event رو به یک روتین در برناممون مربوط کنیم. اون روتین رو قبل از هر کاری ایجاد می‌کنیم و برای اینکه مطمئن بشیم کار می‌کنه یک MesBox توش میذاریم :

    Private Sub btn1_Clicked(ByVal sender As Object, ByVal e As EventArgs)



        MsgBox("byebye cruel world")



    End Sub

بعد متغییری که باید مقدار شیی Button رو نگه داره به همراه withevents در سطح فرم (خارج از همه روتین‌ها و فانکشن‌ها) تعریف می‌کنیم

Dim WithEvents btn As Windows.Forms.Button

بعد هر جای برنامه که می‌خواهیم این دکمه به فرم اضافه بشه، یک نمونه ازش درست میکنیم و اجرا می‌کنیم.

btn = New Windows.Forms.Button



        btn.Name = "btn1"

        btn.Text = "Hello"

        btn.Top = 0

        btn.Left = 0



        AddHandler btn.Click, AddressOf btn1_Clicked



        Me.RTB1.Controls.Add(btn)

اگر هم منظورتون چیز دیگه‌ایه که یه کم بیشتر توضیح بدین.