Вопрос № 54016: Здравствуйте!
Подскажите как динамически добавить элемент управления, например кнопку на форму в VB5. Пример в VB6 работает, а в VB5 нет. Почему?...Вопрос № 54019: Подскажите можно-ли к VB6 подключить справку от VB5 чтобы работала по F1, без MSDN....
Вопрос № 54.016
Здравствуйте!
Подскажите как динамически добавить элемент управления, например кнопку на форму в VB5. Пример в VB6 работает, а в VB5 нет. Почему?
Приложение:
Отправлен: 01.09.2006, 18:36
Вопрос задал: Zacks (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Потому что поддержка такой возможности появилась только в VB 6.0 и то только в профессиональной (Professional) и промышленной (Enterprise) версиях. Если есть возможность использовать шестую версию VB - пользуйтесь ей, так как в ней используется также принципиально иной метод работы, например, с базами данных (ADO), есть ряд и других усовершенствований относительно пятой версии, как то:
- новый тип данных Dictionary
- добавлено инвертирование строк
- расширены функции форматирования для каждого типа данных
- у контролов (многих) появилось свойство Validate, который позволяет делать проверку правильности введенных данных и, в зависимости от этого, выпускать или не выпускатьфокус ввода
- и прочие полезные нововведения
Не вижу разумных доводов в пользу пятой версии
--------- Труд сделал обезьяну человеком, а лень человека - программистом !
Ответ отправил: Кокорич Вадим Леонидович (статус: 6-ой класс)
Ответ отправлен: 01.09.2006, 19:20
Отвечает: EPDSota
Здравствуйте, Zacks!
Рассказывать долго - поэтому на примере:
1. Нужно создать массив контролов: Рисуешь на форме кнопку, называешь ее Cmd, свойство index ставишь на 100 (то есть в своей форме можешь использовать 100 кнопок).
2. набираешь:
function AddButton(x,y,w,h,c)as integer
nm = Cmd.Count
Load Cmd(nm)
Cmd(nm).Caption = c
Cmd(nm).Top = y
Cmd(nm).Left = x
Cmd(nm).Height = h
Cmd(nm).Width = w
Cmd(nm).Visible = True
return nm'номер клавиши, который передается всем eventam
End function
sub deletebutton(nm)
unload Cmd(nm)
end sub
Private Sub Cmd_Click(Index As Integer)
MsgBox "You pressed key number " & Index
End Sub
3. пользуешься - везде, где не лень вставляешь addbutton, или сам пользуешь Load, Unload
--------- Открыть глаза навстречу солнцу
Ответ отправил: EPDSota (статус: Специалист)
Ответ отправлен: 02.09.2006, 10:15
Вопрос № 54.019
Подскажите можно-ли к VB6 подключить справку от VB5 чтобы работала по F1, без MSDN.
Отправлен: 01.09.2006, 18:48
Вопрос задал: Zacks (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Митрофанов Артем Борисович
Здравствуйте, Zacks!
Насколько я помню справка в VB6 существует только в формате HTML(то есть MSDN), а в VB5 MSDN еще не было
При любом обращении к справочной системе VB - будь то выбор пункта меню "Справка" или нажатие кнопки "Help" в окне сообщения об ошибке - среда сразу ищет установленный MSDN и при отсутствии такового на этом помощь и заканчивается. Пробовал установить MSDN для .NET (полноценный, на 3 компашках), но он игнорируется VB - см. выше. Помощь от VB 5 не пробовал подключать в связи с отсутствием таковой.
--------- Труд сделал обезьяну человеком, а лень человека - программистом !
Ответ отправил: Кокорич Вадим Леонидович (статус: 6-ой класс)
Ответ отправлен: 01.09.2006, 19:29
