Динамически изменять ширину элемента при перемещении мыши.

[shest]

Подскажите, как динамически изменять ширину элемента при перемещении мыши.
На форме TreeView и текстовое поле. Я так понимаю, это обработка процедур MouseDown и
DragDrop? А как их обработать?

[Faust]

Я так понимаю, это обработка процедур MouseDown и
DragDrop?

Насколько я помню английский и VB, перемещение мыши должно создавать событие MouseMove. Но вот привязывать размеры элемента к указателю я бы не стал - слишком много ненужной работы. А обрабатывать MouseDown можно, к примеру, так:

Код: Выделить всё

Sub Text1.MouseDown (Button As Integer, Shift As Integer, X As Integer, Y As Integer)
'параметры процедуры я заполнял по памяти, так что стоит их проверить
Text1.Width = X+240
Text1.Height = Y+240
'таким нехитрым методом можно изменять размер текстбокса,
'просто перетянув его нижний правый угол
'(он будет чуть ниже и правее, чем указатель мыши;
'при этом главное - вначале кликнуть на текстбоксе, а не на форме).
End Sub


[shest]

Это не то немного.
Динамически изменять ширину так, как напр. в проводнике. Проводите курсором над границей списка файлов и папок и дерева, далее MouseDown и перетаскиваете границу (изменяете ширину) как вам надо.

[Sebas]

Блин, ты в VB6 кроме стандырных контролов ничё незнаешь чтоли?
ПОдключи AddIn с примерами там есть такой конструктор

[GSerg]

Фи, как грубо...
http://bbs.vbstreets.ru/viewtopic.php?p=24453#24453

[shest]

Огромное спасибо.
С UserControl разобрался.
Просто я думал, что это можно оформить ввиде процедур MouseDown и DragDrop