设置字体和工具提示中动态创建的ContextMenuStrip项

Question

随着几个静态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 

的问题是：我怎么可以设置不同的字体，如“宋体”为这样的项目添加工具提示文本。这是因为我需要这些项目的比例字体。

Answer 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