We use cookies to give you the best experience on our website. If you continue to browse, then you agree to our privacy policy and cookie policy. Image for the cookie policy date
close icon

XPMenu Tooltip Not Visible

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

Live Chat Icon For mobile
Up arrow icon