Оформление кнопок в стиле 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д