Оформление кнопок в стиле xp - VB

Узнай цену своей работы

Формулировка задачи:

Уж очень хочется, что бы оформление у программы было, как у xp. Как мне установить вот такие кнопочки и какой контрол использовать?

Решение задачи: «Оформление кнопок в стиле xp»

textual
Листинг программы
Private Sub Form_Load()
With Shape1 'можна определить в свойствах
.BorderStyle = 0
.Visible = False
.Top = Image1(0).Top
.Width = Image1(0).Width
.Height = Image1(0).Height
.ZOrder 0
.BackColor = vbBlue '
.DrawMode = 15      '
End With
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Shape1.Visible = True Then Shape1.Visible = False
End Sub
'Image1(Index) набор картинок для кнопок
Private Sub Image1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Shape1.Visible = False Then Shape1.Visible = True
If Shape1.Left <> Image1(Index).Left Then Shape1.Left = Image1(Index).Left
End Sub

Оцени полезность:

12   голосов , оценка 4.25 из 5
Похожие ответы