Solved

Help with displaing field definition when placing cursor on a row of a listbox using VB.NET

Posted on 2016-09-24
7
32 Views
Last Modified: 2016-09-25
Hi,

When I place the cursor on a row of my listbox I need to display the defnition of the field, for example If I place my cursor on a row containing TV, would like too see a tooltip with the word television.

Thanks,

Victor
0
Comment
Question by:vcharles
  • 4
  • 3
7 Comments
 
LVL 63

Expert Comment

by:Fernando Soto
ID: 41814195
Hi Victor;

So where are you getting the "definition" to display in the tooltip?
0
 

Author Comment

by:vcharles
ID: 41814202
Hi Fernando,

I would like the hardcode the definition.

Thanks,

Victor
0
 
LVL 63

Accepted Solution

by:
Fernando Soto earned 500 total points
ID: 41814239
Hi Victor;

Something like the following should work.
Public Class Form1

    Dim ttc1 As New ToolTip()

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        '' Items to be added to the ListBox
        Dim items As New List(Of MyListBoxItem)() From {New MyListBoxItem With {.Item = "NSN", .ToolTipValue = "NSN Value Here"},
            New MyListBoxItem With {.Item = "NSC", .ToolTipValue = "NSC Value Here"},
            New MyListBoxItem With {.Item = "FIF", .ToolTipValue = "FIF Value Here"}
        }

        ListBox1.DataSource = items
        ListBox1.DisplayMember = "Item"
        ListBox1.ValueMember = "ToolTipValue"

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ttc1.SetToolTip(ListBox1, "Select an Item to see Description")
        ttc1.ShowAlways = True
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
        ttc1.SetToolTip(ListBox1, ListBox1.SelectedValue.ToString)
    End Sub

End Class

Public Class MyListBoxItem
    Public Property Item As String
    Public Property ToolTipValue As String

    Public Overrides Function ToString() As String
        Return Item
    End Function
End Class

Open in new window

0
Creating Instructional Tutorials  

For Any Use & On Any Platform

Contextual Guidance at the moment of need helps your employees/users adopt software o& achieve even the most complex tasks instantly. Boost knowledge retention, software adoption & employee engagement with easy solution.

 

Author Comment

by:vcharles
ID: 41814256
Hi Fernando,

Thanks for the code. How do you modify it to work when I place the mouse on the row? not select the row.

Thanks,

Victor
0
 
LVL 63

Expert Comment

by:Fernando Soto
ID: 41814270
You can't because the ToolTip control is attached to a control and not to a collection.
0
 

Author Comment

by:vcharles
ID: 41814286
Ok. Thanks.
0
 
LVL 63

Expert Comment

by:Fernando Soto
ID: 41814621
Not a problem Victor, glad to help.
0

Featured Post

Space-Age Communications Transitions to DevOps

ViaSat, a global provider of satellite and wireless communications, securely connects businesses, governments, and organizations to the Internet. Learn how ViaSat’s Network Solutions Engineer, drove the transition from a traditional network support to a DevOps-centric model.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

The ECB site provides FX rates for major currencies since its inception in 1999 in the form of an XML feed. The files have the following format (reducted for brevity) (CODE) There are three files available HERE (http://www.ecb.europa.eu/stats/exch…
A long time ago (May 2011), I have written an article showing you how to create a DLL using Visual Studio 2005 to be hosted in SQL Server 2005. That was valid at that time and it is still valid if you are still using these versions. You can still re…
Exchange organizations may use the Journaling Agent of the Transport Service to archive messages going through Exchange. However, if the Transport Service is integrated with some email content management application (such as an antispam), the admini…

726 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question