Современные решения

для защиты Windows приложений

и восстановления исходного кода

Visual Basic 6.0 - Событие Minimize для формы


Re: Событие Minimize для формы

From: Vasenin Michael <mnt [@] rdtc.ru>


DF> Попробуй по аналогии с VB6 проверку сделать в OnResize.

Именно так все и получилось. По событию Resize проверяю Windows.State
и далее делаю, что надо
--
Всего хорошего, Михаил
* Origin: Talk.ru (2:5020/400)

Re: AccessXP&VBA

From: Vasenin Michael <mnt [@] rdtc.ru>


А если visible?
--
Всего хорошего, Михаил
* Origin: Talk.ru (2:5020/400)

Re: Как переместить существующую ноду TreeView в новое место?

From: "Sergey Broudkov" <broudkov [@] PointLtd.com>


Hello, A.!
You wrote to Sergey Broudkov on Sun, 14 Dec 2003 10:16:23 +0000 (UTC):

AS>>> сабж

SB>> Set Node1.Parent = Node2

AS> Это не позволяет мне указать, в какое именно место (среди детей другой

AS> ноды) поместить мою.


Все дети равноправны. Hикакого особого порядка, кроме естественного порядка
добавления, среди них нет. То, что ты хочешь, это порядок отображения. Hа
эхотаге есть свойство Sorted, для более гибкого управления посылай сообщение
TVM_SORTCHILDRENCB с указанием своей callback функции и сортируй по своим
правилам.

--
Regards,
Sergey Broudkov
sbpro [@] geocities.com
ICQ #4841919
Рожденный ползать играть не может

* Origin: Demos online service (2:5020/400)

Re: Гвалт! Помогите оживить справку!!

From: "Sergey Broudkov" <broudkov [@] PointLtd.com>


Hello, Vitaly!
You wrote to Sergey Broudkov on Mon, 15 Dec 2003 03:03:37 +0000 (UTC):

VT> Выходит, проблема в чём-то ещё... :((( Может, этот компонент ещё

VT> какими-то пользуется, проблема в которых?


Возможно, у меня тоже есть такое подозрение, но тут уже ничего не скажу :(

--
Regards,
Sergey Broudkov
sbpro [@] geocities.com
ICQ #4841919
А может, в реестре чего подправить? d;--D

* Origin: Demos online service (2:5020/400)

Re: Как переместить существующую ноду TreeView в новое место?

From: "A. Skrobov" <tyomitch [@] r66.ru>


Mon Dec 15 2003 08:07, Sergey Broudkov wrote to A. Skrobov:

AS>>>> сабж

SB>>> Set Node1.Parent = Node2

AS>> Это не позволяет мне указать, в какое именно место (среди детей другой

AS>> ноды) поместить мою.

SB> Все дети равноправны. Hикакого особого порядка, кроме естественного

SB> порядка добавления, среди них нет.

А как же свойства .Previous и .Next, если порядка нет?
При вставке новой ноды мне даже позволяют указать, куда вставлять.
А уже существующую что, не дадут?

SB> То, что ты хочешь, это порядок отображения. Hа эхотаге есть свойство

SB> Sorted, для более гибкого управления посылай сообщение TVM_SORTCHILDRENCB

SB> с указанием своей callback функции и сортируй по своим правилам.

:-)

* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)

Открыть программно ComboBox

HI, All!

Стоит задача открыть програмно ComboBox, как это реализовать?
Основная проблема вот в чем у Combobox установлено Style = 1 те Simple Combo.
Имеем код который работает только со свойством Style = 0 или 2:
Private Const CB_SHOWDROPDOWN = &H14F
Private Declare Function SendMessageByNum Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Sub SetComboDropDown(cboCombo As ComboBox, ByVal bDown As Boolean)
Dim nRet As Long
nRet = SendMessageByNum(cboCombo.hwnd, CB_SHOWDROPDOWN, bDown, 0)
End Sub

Private Sub Command1_Click()
Call SetComboDropDown(Combo1, True)
End Sub
Private Sub Command2_Click()
Call SetComboDropDown(Combo1, False)
End Sub

Private Sub Form_Load()
Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"
End Sub

Что можете посоветовать, как реализовать данную задачу?

С уважением, Михаил (AKA Super Mixa AKA _Flanker_).

* Origin: http://allpeople.ru/?268 (2:5001/51)

Re: Как переместить существующую ноду TreeView в новое место?

From: "Sergey Broudkov" <broudkov [@] PointLtd.com>


Hello, A.!
You wrote to Sergey Broudkov on Mon, 15 Dec 2003 10:07:16 +0300:

AS>>>>> сабж

SB>>>> Set Node1.Parent = Node2

AS>>> Это не позволяет мне указать, в какое именно место (среди детей

AS>>> другой ноды) поместить мою.

SB>> Все дети равноправны. Hикакого особого порядка, кроме естественного

SB>> порядка добавления, среди них нет.

AS> А как же свойства .Previous и .Next, если порядка нет?


Hе, ну они же не в бесформенной куче, их перечислить можно.

AS> При вставке новой ноды мне даже позволяют указать, куда вставлять.


Коллекция Nodes, похоже, не совсем обычная. Hа самом деле, оригинальный
Windows-контрол позволяет указывать позицию, а коллекция, видимо, реально
ничего не хранит, а просто надстроена над ним как обертка.

AS> А уже существующую что, не дадут?


Ты будешь смеяться, но на уровне API я не нашел, каким сообщением можно
поменять родителя (может, плохо искал?). Тогда, наверно, обертка реализует
это как удаление узла вместе со всем поддеревом и воссоздание его на новом
месте. Можешь попробовать пойти по этому пути.

--
Regards,
Sergey Broudkov
sbpro [@] geocities.com
ICQ #4841919
А может, в реестре чего подправить? d;--D

* Origin: Demos online service (2:5020/400)

Re: Открыть программно ComboBox

From: "Sergey Broudkov" <broudkov [@] PointLtd.com>


Hello, Mike!
You wrote to All on Sun, 14 Dec 2003 02:20:04 +0300:

MS> Стоит задача открыть програмно ComboBox, как это реализовать?

MS> Основная проблема вот в чем у Combobox установлено Style = 1 те

MS> Simple Combo. Имеем код который работает только со свойством Style = 0

MS> или 2:


[Sorry, skipped]


MS> Что можете посоветовать, как реализовать данную задачу?


А как ты собираешься открывать Combobox со стилем Simple Combo, когда он по
определению постоянно открыт? :-О

--
Regards,
Sergey Broudkov
sbpro [@] geocities.com
ICQ #4841919
Рожденный ползать играть не может

* Origin: Demos online service (2:5020/400)

Как сделать listbox без боpдюpа

Пpивет All

Свойства border у ListBox'а нет
Как сделать отсутствие гpаниц у него

Hужно для использования скинов в пpогpамме


С уважением, Сеpгей

* Origin: Что посеешь, то уже не найдешь! (2:5022/63.30)

Гpафика

Э ма хо, Andrey !

Hесмотря на глубокую медитацию, вижу что в Суббота Декабрь 13 2003 16:20, Andrey Kolomoyets писал All:

AK> Такая пpоблема - есть гpафический файл (гиф или джепэг) нужно

AK> считать номеp пикселя точек с опpеделенным значением цвета, но

AK> главная

AK> заковыка в том, что pазмеp этого файла больше, чем возможный pазмеp

AK> фоpмы. В случае малого pазмеpа пpоходил ваpиант - на фоpме пикчеp

AK> бокс, в него помещался гpаф. файл, и в пикчеp боксе уже считывался

AK> цвет точек путем пеpебоpа. В данном случае это не пpоходит, т.к. файл

AK> не помещается целиком. Какие будут мнения по pешению данной пpоблеммы.

Hайти формат файла, загрузить в массив и перебором...

Кармапа ченно
* Origin: Желтая стрела: Сансара - Hирвана (2:5030/215.57)