Делаем кнопочное меню как в VB.Net шаг 2
На втором этапе, мы компилируем наш ActiveX DLL проект в DLL файл.
Далее, следует нарисовать 6 возможных состояний кнопки, что получилось у меня можно посмотреть тут
Размер изображении для меню VB.Net стандартный, кому интересно можно сравнить :)
И ещё, нам нужно где-нибудь взять иконки, которые будут накладываться на кнопочки в меню, я взял такие:
Создаем обычный exe проект, в котором мы и будем использовать нашу dll
Копируем такой код:
Dim D As New Button Private Sub Form_Load() D.Shtuk 5 D.CreateBut 10, 10, Icon1(0), "Щетка", 24 D.CreateBut 10, 90, Icon1(1), "Щетка", 20 D.CreateBut 10, 170, Icon1(2), "Реестр", 20 D.CreateBut 10, 250, Icon1(3), "Сервис", 20 D.CreateBut 10, 330, Icon1(4), "Параметры", 10 End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) D.MouseDown End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) D.MouseUp End Sub Private Sub Timer1_Timer() D.Timer_but Form1, But1 End Sub
Готовый проект можно скачать по ссылке: DLL | |
Просмотров: 2373 | Комментарии: 2 | |
Всего комментариев: 0 | |