@vld_inz

Нужен реальный код (пример) в VB.NET :как убрать или поменять цвет подсветки при наведении мыши в ToolStripMenuItem

Заранее благодарен

0

@Orlangur

vld_inz, В Form_load добавить
А так же добавить класс

2

@vld_inz

Большое спасибо за помощь
"Как всё просто, гениально и непонятно" - выражаясь словами одного из героев фильма "Отроки во Вселенной"

Непонятно:Inherits, Overloads Overrides, Using

Тема "Классы, конструктор" мне знакома поверхностно. Но как вижу - без этого никак. Какую литературу посоветуете?

И последнее - можно ли сотворить нечто похожее для ComboBox (я сделал через событие DrawItem), но Ваш вариант - интереснее



Private Sub ОбрКатегор_DrawItem(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ОбрКатегор.DrawItem
Call ОбновВыбора.Выбор(e, ОбрКатегор)
End Sub

Module ОбновВыбора

Sub Выбор(ByVal ie As System.Windows.Forms.DrawItemEventArgs, ByVal Comb As ComboBox)
If ie.Index < 0 Then Exit Sub

ie.DrawBackground()

Dim bcolor As Color = If(((ie.State And DrawItemState.Selected) = DrawItemState.Selected Or (ie.State And DrawItemState.Focus) = DrawItemState.Focus), _
Color.FromArgb(0, 130, 0), _
Comb.BackColor)


ie.Graphics.FillRectangle(New SolidBrush(bcolor), ie.Bounds)

ie.Graphics.DrawString(Comb.Items.Item(ie.Index).ToString, _
Comb.Font, _
New SolidBrush(Comb.ForeColor), _
ie.Bounds, _
New StringFormat With {.Alignment = StringAlignment.Near, _
.LineAlignment = StringAlignment.Center, _
.Trimming = StringTrimming.None, _
.FormatFlags = StringFormatFlags.NoWrap})


End Sub


End Module

0

@Orlangur

vld_inz, Если такой способ и есть, то мне он неведом) Combobox вроде как можно перерисовывать только через DrawItem. Литературу никакую, к сожалению, не посоветую, так как сам не читал. Посмотрите здесь Литература и ресурсы по Visual Basic .NET

0