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

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

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

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

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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

12   голосов, оценка 4.250 из 5


СДЕЛАЙТЕ РЕПОСТ