Конструктор форм at run-time ActiveX OCX cFormDesi
 
Главная HI-TECH Форум Поиск Книги Авторам Новости партнёров Реклама
Новостей на сайте: 10263
Программы  
  Система
  Безопасность
  Интернет и сети
  Текст
  Графика и дизайн
  Мультимедиа
  Программирование
  Бизнес
  Образование
  Дом, семья, хобби
  Игры и развлечения
 
Рассылка
 
 
Рейтинг программ...    
    Ф2Мастер Банк (137343)
    Товар версия 1.10 (24522)
    New_Profile v3.4 (400) (23200)
    Коллекция софта № 13 (22842)
    Коллекция руссификаторов O-S (20018)
    NetGraf 1.0 (19269)
    Revolter Commander 3.9 beta 8 (15026)
    Intel Sound MAX 4.0 Ac' 97 5.12.01 (14270)
    Коллекция софта № 14 (13940)
    Net Transport 2.22 (13807)
 

[!] Знаете ли Вы, что наш портал является источником большого количества эксклюзивных статей?


Другое Софт
Конструктор форм at run-time ActiveX OCX cFormDesi
12.05.2005
Конструктор форм at run-time ActiveX OCX cFormDesigner - Позволяет пользователям приложения настраивать форму и элементы управления на ней по своему усмотрению. Для этого программисту достаточно написать несколько строчек кода.

Компонент позволяет следующее:
- Перемещать элементы управления на форме и в контейнерах
- Менять размеры элементов управления
- Масштабировать ЭУ при изменении размеров формы
- Сохранять текущие размеры и расположение ЭУ на форме и в контейнерах
- Сохранять текущие размеры столбцов и строк в DataGrid
- Восстанавливать последние изменения на форме при следующем запуске
- Сохранять исходные размеры и расположение элементов управления на форме
- Сохранять исходные размеры столбцов и строк в DataGrid
- Отменять изменения на форме по запросу пользователя

Среда разработки
Компонент разработан на VB6 SP5

Пример кода
Option Explicit
'Минимально допустимые размеры формы в twips, до которых будет выполняться _ масштабирование ЭУ.
'По умолчанию: HeightFormMin = 4000 ; WidthFormMin = 6000

Private Sub Form_Activate()
Static b As Boolean
'Желательно активизировать объект в событие Form_Activate. Это связано с SSTab
If Not b Then FormDesigner1.DesignInit Me : b = Not b
End Sub

Private Sub Form_Resize()
'При Resize Form режим конструирования сбрасывается
mnuModeDesign.Checked = False
End Sub

Private Sub mClearSetting_Click()
'Удаляет все сохранённые размеры
FormDesigner1.ClearSetting
End
End Sub

Private Sub mnuMode_Click()
mnuModeDesign.Checked = FormDesigner1.DesignMode
End Sub

Private Sub mnuModeDesign_Click()
'Разрешить/Запретить перенос ЭУ на форме
mnuModeDesign.Checked = Not FormDesigner1.DesignMode
FormDesigner1.DesignMode = mnuModeDesign.Checked
End Sub

Private Sub cmdRestoreControlsDefaulSize_Click()
'Выполняется для формы и ЭУ по запросу пользователя
FormDesigner1.RestoreControlsDefaulSize
End Sub

Private Sub cmdRestoreDataGridDefaultSize_Click()
'Выполняется для конкретного DataGrid по запросу пользователя
FormDesigner1.RestoreDataGridDefaultSize DataGrid1
End Sub

Private Sub mnuModeExit_Click()
Unload Me
End Sub

Private Sub mRestoreControls_Click()
'Восстанавливает исходные размеры ЭУ
FormDesigner1.RestoreControlsDefaulSize
End Sub

Private Sub mRestoreDataGrid_Click()
If TypeOf ActiveControl Is DataGrid Then FormDesigner1.RestoreDataGridDefaultSize _ ActiveControl
End Sub

Ограничения
Компонент позволяет изменять размеры и перемещать следующие ЭУ:
1. Все встроенные ЭУ VB6
2. DataGrid, SSTab, DataCombo, DBList, DBCombo, TreeView, ListView

Для этого достаточно только разместить ЭУ на форме.
Для остальных ActiveX Control необходимо написать код:

Private Sub ActiveX_Control_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button =vbLeftButton And FormDesigner1.DesignMode Then FormDesigner1.DragBegin ActiveX_Control
End If

''FlatScrollBar - не поддаётся дизайну

Если у ActiveX Control нет события MouseDown, то можно использовать следующий код:

Private Sub WebBrowser1_GotFocus()
If clsFormDesigner.DesignMode Then clsFormDesigner.DragBegin WebBrowser1

Для ЭУ, являющимся элементом массива, необходим код:

Private Sub DataGrid1_MouseDown(Index As Integer, Button As Integer, _
Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton And FormDesigner1.DesignMode Then _ FormDesigner1.DragBegin DataGrid1(Index)

В перспективе
В следующей версии компонента предполагается реализовать:
1. Масштабировать ЭУ при изменении размеров контейнера
2. Скрывать ЭУ на форме.

Скачать (60 Кб, Freeware, Win 9x/Me/2000/XP, RUS)


Ссылки по теме:
Eltima Virtual Serial Port AX Control 6.0
Radialix Localizer
Refactor Pro for Visual Studio .NET 1.0.26
mInstaller v2.7
SEO PowerSuite Enterprise 12



 
 
Статьи    
  Windows 10
  Windows 8
  Windows 7
  Windows Vista
  Windows XP/2003
  Windows NT/2000
  Безопасность
  Windows 9x/ME
  Hardware
  Software
  Интернет
  BIOS
  Сеть
  Разное
 
Рекомендуем
 
 
Рейтинг статей...    
    Предел входящих подключений в Windows (127021)
    Как установить Windows XP на ноутбук или как добавить SATA-драйвер в дистрибутив Windows XP (62584)
    Из дома в офис - быстро, надежно и безопасно (54470)
    Всё, что надо начинающему хакеру (40010)
    Второй сервис-пак для Windows XP: личный опыт (22394)
    Восстановление реестра Windows XP (21624)
    Вызываем синий экран смерти Windows (17403)
    Как устроена защита Windows Vista (16386)
    Информация о proxy серверах (16301)
    Настройка удаленного подключения между Windows 7 и Linux с помощью TightVNC (14934)
 
 
Programmed by Ventura
 

 

Яндекс цитирования