Вопрос № 69671: Здравствуйте.
1. Можно ли на vb 6, создать поток, если да то приведите пожалуйста пример.
2. Можно ли получить ссылку на массив ActiveX элементов из программы?
3. И програмно создать такой массив.
...Вопрос № 69735: Здравствуйте!
Помогите написать код.
Нужно определить путь к программе и из той директории запустить файл 1.swf...
Вопрос № 69.671
Здравствуйте.
1. Можно ли на vb 6, создать поток, если да то приведите пожалуйста пример.
2. Можно ли получить ссылку на массив ActiveX элементов из программы?
3. И програмно создать такой массив.
Отправлен: 05.01.2007, 16:42
Вопрос задал: DragonTusk (статус: 2-ой класс)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 4)
Отвечает: KunkTator
Здравствуйте, DragonTusk!
по п.1: апишная CreateThread
http://www.freevbcode.com/ShowCode.Asp?ID=4029
или
http://www.google.com/search?q=VB+CreateThread&rls=com.microsoft:ru&ie=UTF-8&oe=UTF-8&startIndex=&startPage=1
--------- Sapienti sat!
Ответ отправил: KunkTator (статус: 2-ой класс)
Ответ отправлен: 06.01.2007, 11:35
Отвечает: Залетин Виталий Викторович (мь!тарь)
Здравствуйте, DragonTusk!
1. Гиблое дело. И не пытайтесь! Хотя для общего просвещения могу посоветовать почитать кое-что:
http://www.vbrussian.com/Article.asp?ID=42 - там есть пример реализации сего дела.
http://www.codenet.ru/progr/vbasic/threads.php - статья очень уважаемого мною Дэна Эплмана. Очень хороша!
http://www.codenet.ru/progr/vbasic/multi.php - очень познавателен пример, прикрепленный к статье.
Но повторюсь: реализация многопотоковости именно в 6 версии бейсика - дело неблагодарное.
3. Расположите на форме хотябы один такой элемент управления и присвойте его свойству Index значение 0. Чтобы загрузить дальше, следующий элеемнт (те же характеристики (можно потом и изменить) и т. д.), используйте команду Load. Например, у меня на форме лежит один выпадающий список "cbo" со значением свойства Index в 0, чтобы там появился еще один такой же, но с Index=1, надо выполнить такой код: Load cbo(cbo.Count). В принципе, и доступ к ним такой же.
--------- Учиться никогда не поздно. Особенно программированию!
Отвечает: PsySex
Здравствуйте, Student - Николай!
Если речь идет о пути откуда запущена ваша прога, то так:
=====================================================
Private Sub Command1_Click()
Dim sPath As String
sPath = App.Path
sPath = sPath + ""
sPath = Replace(sPath, "", "\")
Shell "cmd /X /C start " + sPath + "1.swf"
End Sub
=====================================================
--------- Bom Shankar!
Ответ отправил: PsySex (статус: Студент)
Ответ отправлен: 06.01.2007, 11:34 Оценка за ответ: 5
Отвечает: QDSota
Здравствуйте, Student - Николай!
И еще один ваирант ответа:
...
shell "start " & CurDir & "1.swf"
...
--------- Открыть глаза навстречу солнцу
Ответ отправил: QDSota (статус: Профессионал) Россия, Зеленоград Тел.: 8-916-53-43-916 ICQ: 84611301 ---- Ответ отправлен: 06.01.2007, 11:59 Оценка за ответ: 5
