• Авторизация


. 31-10-2006 15:36 к комментариям - к полной версии - понравилось!


 (32x32, 1Kb)

! На форме помещаем следущие элементы: 


PictureBox.Name="imgTopLt
    AutoSize = -1 ' True 
    BorderStyle = 0 ' None
    Picture = "Растровое изображение для верхнего левого угла


PictureBox.Name="imgTopRt"
     AutoSize = -1 ' True
     BorderStyle = 0 ' None
     Picture = "Растровое изображение для верхнего правого угла


PictureBox.Name="imgDnLt"
     AutoSize = -1 ' True
     BorderStyle = 0 ' None
     Picture = "Растровое изображение для нижнего левого угла"
     MousePointer = 6 ' Size NE SW 


PictureBox.Name="imgDnRt"
     AutoSize = -1 ' True
     BorderStyle = 0 ' None
     Picture = "Растровое изображение для нижнего правого угла"
     MousePointer = 8 'Size NW SE 



! Нижние левый и правый углы служат дополнительно для изменения положения и размера окна
 

PictureBox.Name="imgFrameLt"
     AutoSize = -1 ' True
     BorderStyle = 0 ' None
     Picture = "(None)" ' Оставляем пустой, рамка будет рисоваться программно
     MousePointer = 9 ' Size W E


PictureBox.Name="imgFrameRt"
     AutoRedraw = -1 ' True
     BorderStyle = 0 'None
     Picture = "(None)" 'Оставляем пустой, рамка будет рисоваться программно
     MousePointer = 9 'Size W E 


PictureBox.Name="imgFrameDn"
     AutoRedraw = -1 'True
     BorderStyle = 0 'None
     Picture = "(None)" 'Оставляем пустой, рамка будет рисоваться программно
     MousePointer = 7 'Size N S 


! Рамки тоже несут двойную нагрузку, ими так же можно изменять положение и размер окон 

PictureBox.Name="imgTopHead"
     AutoRedraw = -1 'True
     BorderStyle = 0 'None 


! На этом элементе располагаем метку для заголовка окна
 

Label.Name="lblFormCapt"
     AutoSize = -1 'True
     BackStyle = 0 'Transparent
     Caption = "MyForm" 'Здесь будет отображаться заголовок приложения
     ForeColor = &H00FF0000& 'Цвет для заголовка 





! Важно: В элементе lblFormCapt

хранится заголовок отображаемый на форме 
! В свойствах формы
Form.Caption хранится заголовок отображаемый на панели задач при

Form.ShowInTaskbar
="True" 
! Обычно он должен быть одинаковым, однако в нашем случае мы можем задать его разным: 
! Например, на панели задач отобразить в короткой форме типа "
MyApication", 
! а на форме более подробно: "
MyApication:Открытый файл


! Кнопки управления окна 


PictureBox.Name="cmdMin"
     AutoSize = -1 'True
     BorderStyle = 0 'None
     Picture = "Растровое изображение кнопки минимизировать


PictureBox.Name="cmdMax"
     AutoSize = -1 'True
     BorderStyle = 0 'None
     Picture = "Растровое изображение кнопки максимизировать


PictureBox.Name="cmdRest"
     AutoSize = -1 'True
     BorderStyle = 0 'None
     Picture = "Растровое изображение кнопки восстановить"
     Visible = 0 'False 


PictureBox.Name="cmdClose"
     AutoSize = -1 'True
     BorderStyle = 0 'None
     Picture = "Растровое изображение кнопки закрыть"


! Так как мы задали BorderStyle=0, стандартное меню нам больше не доступно, будем создавать его сами


PictureBox.Name="imgMenu"
     BorderStyle = 0 'None

! Область для текстового меню

PictureBox.Name="imgToolBar"
     BorderStyle = 0 'None


! Область для пиктографического меню


PictureBox.Name="imgButt"
     BorderStyle = 0 'None


! Область для отображения функциональных кнопок


PictureBox.Name="imgStatusBar"
     BorderStyle = 0 'None


! Область для строки состояния 
! В зависимости поставленной задачи или желания программиста могут присутствовать или нет


PictureBox.Name="ClientArea"
     BackColor = &H00E1DFDF&


! Клиентская область где будут располагаться все остальные элементы вашего приложения
! Примечание: Расположение элементов на форме при проектировании не имеет роли, так как их положение
будут определятся программно.
вверх^ к полной версии понравилось! в evernote


Вы сейчас не можете прокомментировать это сообщение.

Дневник . | _Программирование_ - Дневник _Программирование_ | Лента друзей _Программирование_ / Полная версия Добавить в друзья Страницы: раньше»