Need some code help with tool tip display text

[Marc]

HI,

I have a set of dynamically created buttons and textbox's. Each
button
is linked to a textbox using the accessiblename property. I want to
show a button tool tip containing the text box's text. My code so far
is below although i know this wont work!
any help is greatly appreciated.
Private Sub AddNewDriverToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
AddNewDriverToolStripMenuItem.Click
Dim NewBtn As New Button()
NewBtn.AccessibleName = CStr(Now)
Me.Controls.Add(NewBtn)
Dim NewTxt As New RichTextBox
NewTxt.AccessibleName = NewBtn.AccessibleName
Me.Controls.Add(NewTxt)
Dim ctlControl As Control
Dim s As String
For Each ctlControl In Me.Controls
If TypeOf ctlControl Is RichTextBox And
ctlControl.AccessibleName = NewBtn.AccessibleName Then
s = NewBtn.Text
End If
Next
ToolTip1.SetToolTip(NewBtn, s)

[RobinS]

Is there some reason you posted this 3 times?

Just wondering,
Robin S.
----------------------------------
"Marc" <ma*********@hotmail.comwrote in message
news:11**********************@p10g2000cwp.googlegr oups.com...

HI,

I have a set of dynamically created buttons and textbox's. Each
button
is linked to a textbox using the accessiblename property. I want to
show a button tool tip containing the text box's text. My code so far
is below although i know this wont work!
any help is greatly appreciated.
Private Sub AddNewDriverToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
AddNewDriverToolStripMenuItem.Click
Dim NewBtn As New Button()
NewBtn.AccessibleName = CStr(Now)
Me.Controls.Add(NewBtn)
Dim NewTxt As New RichTextBox
NewTxt.AccessibleName = NewBtn.AccessibleName
Me.Controls.Add(NewTxt)
Dim ctlControl As Control
Dim s As String
For Each ctlControl In Me.Controls
If TypeOf ctlControl Is RichTextBox And
ctlControl.AccessibleName = NewBtn.AccessibleName Then
s = NewBtn.Text
End If
Next
ToolTip1.SetToolTip(NewBtn, s)

[Marc]

On 2 Mar, 16:25, "RobinS" <[e-mail]:

Is there some reason you posted this 3 times?

Just wondering,
Robin S.
----------------------------------"Marc" <[e-mail] in message

news:11**********************@p10g2000cwp.googlegr oups.com...

HI,

I have a set of dynamically created buttons and textbox's. Each
button
is linked to a textbox using the accessiblename property. I want to
show a button tool tip containing the text box's text. My code so far
is below although i know this wont work!

any help is greatly appreciated.

Private Sub AddNewDriverToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
AddNewDriverToolStripMenuItem.Click

Dim NewBtn As New Button()
NewBtn.AccessibleName = CStr(Now)
Me.Controls.Add(NewBtn)

Dim NewTxt As New RichTextBox
NewTxt.AccessibleName = NewBtn.AccessibleName
Me.Controls.Add(NewTxt)

Dim ctlControl As Control
Dim s As String
For Each ctlControl In Me.Controls
If TypeOf ctlControl Is RichTextBox And
ctlControl.AccessibleName = NewBtn.AccessibleName Then
s = NewBtn.Text
End If
Next

ToolTip1.SetToolTip(NewBtn, s)- Hide quoted text -

- Show quoted text -

Cause 3 times is ucky

[rowe_newsgroups]

Cause 3 times is ucky

Not if you make us mad - we don't like multipostings.

BTW I answered this in other thread.

Thanks,

Seth Rowe
On Mar 2, 12:11 pm, "Marc" <[e-mail]:

On 2 Mar, 16:25, "RobinS" <[e-mail]:

Is there some reason you posted this 3 times?

Just wondering,
Robin S.
----------------------------------"Marc" <[e-mail] in message

news:11**********************@p10g2000cwp.googlegr oups.com...

HI,

I have a set of dynamically created buttons and textbox's. Each
button
is linked to a textbox using the accessiblename property. I want to
show a button tool tip containing the text box's text. My code so far
is below although i know this wont work!

any help is greatly appreciated.

Private Sub AddNewDriverToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
AddNewDriverToolStripMenuItem.Click

Dim NewBtn As New Button()
NewBtn.AccessibleName = CStr(Now)
Me.Controls.Add(NewBtn)

Dim NewTxt As New RichTextBox
NewTxt.AccessibleName = NewBtn.AccessibleName
Me.Controls.Add(NewTxt)

Dim ctlControl As Control
Dim s As String
For Each ctlControl In Me.Controls
If TypeOf ctlControl Is RichTextBox And
ctlControl.AccessibleName = NewBtn.AccessibleName Then
s = NewBtn.Text
End If
Next

ToolTip1.SetToolTip(NewBtn, s)- Hide quoted text -

- Show quoted text -

Cause 3 times is ucky

[RobinS]

Ucky is right! :-P

Robin
-----------------------------
"Marc" <ma*********@hotmail.comwrote in message
news:11**********************@z35g2000cwz.googlegr oups.com...

On 2 Mar, 16:25, "RobinS" <[e-mail]:

>Is there some reason you posted this 3 times?

Just wondering,
Robin S.
----------------------------------"Marc" <[e-mail]
in message

news:11**********************@p10g2000cwp.googleg roups.com...

HI,

I have a set of dynamically created buttons and textbox's. Each
button
is linked to a textbox using the accessiblename property. I want to
show a button tool tip containing the text box's text. My code so far
is below although i know this wont work!

any help is greatly appreciated.

Private Sub AddNewDriverToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
AddNewDriverToolStripMenuItem.Click

Dim NewBtn As New Button()
NewBtn.AccessibleName = CStr(Now)
Me.Controls.Add(NewBtn)

Dim NewTxt As New RichTextBox
NewTxt.AccessibleName = NewBtn.AccessibleName
Me.Controls.Add(NewTxt)

Dim ctlControl As Control
Dim s As String
For Each ctlControl In Me.Controls
If TypeOf ctlControl Is RichTextBox And
ctlControl.AccessibleName = NewBtn.AccessibleName Then
s = NewBtn.Text
End If
Next

ToolTip1.SetToolTip(NewBtn, s)- Hide quoted text -

- Show quoted text -

Cause 3 times is ucky