استفاده از Tool Tip

سلام . می تونین این کد رو در قسمت MouseHover کنترل PictureBox وارد کنید :





        On Error Resume Next

        Dim toolTip1 As New ToolTip()

        toolTip1.AutoPopDelay = 5000

        toolTip1.InitialDelay = 1000

        toolTip1.ReshowDelay = 500

        toolTip1.ShowAlways = True

        Dim str As String

        For i = 0 To dg1.RowCount

            dg1.CurrentCell = dg1.Rows(i).Cells(0)

            str = str & vbCrLf & dg1.CurrentRow.Cells(0).Value

        Next



        toolTip1.ToolTipTitle = "عنوان توضیحات"

        toolTip1.SetToolTip(PictureBox1, str)

این Cells 0 شما می تونین تغییر بدین . بستگی به تعداد ستون های دیتا گرید خودتون داره . اولین ستون میشه 0 بعد 1 و 2 ...