VBCoding Библиотека кодов Visual Basic 6 Работа с меню Добавить 3D-Line под Меню

Visual Basic 6
Добавить 3D-Line под Меню
Если вы хотите, чтобы ваше меню было подчеркнутым, добавьте в событие Form_Load() код 1 или 2
'1. Добавите 1 Frame

Private Sub Form_Load()
Frame1.Caption = ""
Frame1.Height = 30
Frame1.Width = Screen.Width + 100
Frame1.Move -50, 0
End Sub

'2.

Private Sub Form_Load()
AutoRedraw = True
ScaleMode = 3
Cls
Line (0, 0)-Step(ScaleWidth, 0), QBColor(8)
Line (0, 1)-Step(ScaleWidth, 0), QBColor(15)
AutoRedraw = False
End Sub

Источник: http://www.vbnet.ru/
 

Добавить комментарий


Защитный код
Обновить

 
VBCoding Библиотека кодов Visual Basic 6 Работа с меню Добавить 3D-Line под Меню  
Powered by Exponenta -