[VB2005] 簡易替 ComboBox 下拉式清單加入 ToolTip

這篇是一個很簡易的方法。在 Form 上放置一個 ComboBox1 跟一個 ToolTip ,ComboBox1.DrawMode 屬性設為 OwnerDrawFixed 。
當屬性設為非 Normal 時,DrawItem 事件會有作用,所以編寫 DrawItem 事件:

程式碼

Private Sub ComboBox1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ComboBox1. DrawItem

     Dim indexItem As Integer = Math.Max(e.Index, 0)

     Dim txtItem As String = sender.GetItemText(sender.Items(indexItem))

 

     e.DrawBackground()

     e.Graphics.DrawString(txtItem, e.Font, New SolidBrush(e.ForeColor), e.Bounds)

 

     With Me.ToolTip

          If sender.DroppedDown Then

               If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then

                    If .GetToolTip(sender) <> txtItem Then

                         .Show(txtItem, sender, e.Bounds.Right, e.Bounds.Bottom)

                    End If

               End If

          Else

               .Hide(sender)

          End If

     End With

 

     e.DrawFocusRectangle()

End Sub

 
廣告
Categories: 技術分享 | 發表留言

文章分頁導航

發表迴響

在下方填入你的資料或按右方圖示以社群網站登入:

WordPress.com Logo

您的留言將使用 WordPress.com 帳號。 登出 / 變更 )

Twitter picture

您的留言將使用 Twitter 帳號。 登出 / 變更 )

Facebook照片

您的留言將使用 Facebook 帳號。 登出 / 變更 )

Google+ photo

您的留言將使用 Google+ 帳號。 登出 / 變更 )

連結到 %s

在WordPress.com寫網誌.

%d 位部落客按了讚: