Hi,
I am generating a context menu when right clicking a record in a GDBG. Also specifying a Tooltip for each added BarItem, but the tooltip dosent show up...here is the code:
--------------------------------------------
Private Sub LoadContextMenu()
If MenuLoaded = False Then
Dim RetVal As Boolean, ErrMsg As String
Dim MyReader As SqlDataReader
RetVal = Connect_SQLDataReader(MyReader, "SELECT * FROM LtrPadModRights WHERE UserID = ''" & SRApp.User & "''", ErrMsg)
Do While MyReader.Read
Dim ParentBarItem1 As New ParentBarItem
ParentBarItem1.Text = MyReader.Item(0)
ParentBarItem1.ImageList = Me.ilContextMenu16
ParentBarItem1.ImageIndex = 3
ParentBarItem1.Style = 2
ParentBarItem1.UpdateUIMFCStyle = True
Dim MyReader2 As SqlDataReader
RetVal = Connect_SQLDataReader(MyReader2, "SELECT * FROM LMLetterMast WHERE Data_Source = ''" & MyReader.Item(0) & "''", ErrMsg)
Do While MyReader2.Read
Dim ChildBarItem As New BarItem
ChildBarItem.Text = MyReader2.Item("Master_Letter")
If Not IsDBNull(MyReader2.Item("Description")) Then ChildBarItem.Tooltip = MyReader2.Item("Description")
ChildBarItem.ImageList = Me.ilContextMenu16
ChildBarItem.ImageIndex = 4
ParentBarItem1.Items.Add(ChildBarItem)
Loop
MyReader2.Close()
If ParentBarItem1.Items.Count > 0 Then
mnu_SelectLetter.Items.Add(ParentBarItem1)
End If
Loop
MyReader.Close()
MenuLoaded = True
End If
End Sub
