1

いくつかの静的contextmenustripアイテムを使用して、次のようにデータベースから動的に追加のアイテムを作成します。

reader = cmd.ExecuteReader()
If reader.HasRows Then Arh_ContextMenuStrip.Items.Add("-", Nothing, Nothing)
While (reader.Read())
    If CStr(reader.GetValue(0)).Length = 17 And Not CStr(reader.GetValue(0)) = mydatabase Then
        Arh_ContextMenuStrip.Items.Add(CStr(reader.GetValue(0)), Nothing, AddressOf myHandler_Click)
        'How to set font "Courier New" for this item?
        'How to set tooltip for this item?
    End If
End While

質問は、そのようなアイテムに「Courier New」などの異なるフォントを設定し、そのようなアイテムごとにツールチップ テキストを追加する方法を教えてください。これは、これらのアイテムにプロポーショナル フォントが必要になるためです。

4

1 に答える 1

1

これを試してみてください、

While (reader.Read())

     If CStr(reader.GetValue(0)).Length = 17 And Not CStr(reader.GetValue(0)) _
     = mydatabase Then

        'Adding item into a context menu strip will return the same.
        Dim xAddedItem = Arh_ContextMenuStrip.Items.Add(CStr(reader.GetValue(0)), _
        Nothing,AddressOf myHandler_Click)

        'Set Different fonts matching your requirement
        xAddedItem .Font = New Font("Courier New", 14, FontStyle.Bold)
        xAddedItem .ToolTipText = "Hello I'm the tool tip"

    End If

End While
于 2013-03-14T09:22:32.557 に答える