| ← Июнь 2002 → | ||||||
|
1
|
2
|
|||||
|---|---|---|---|---|---|---|
|
4
|
5
|
6
|
8
|
9
|
||
|
11
|
12
|
13
|
14
|
15
|
16
|
|
|
19
|
20
|
22
|
23
|
|||
|
25
|
26
|
27
|
29
|
30
|
||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://vbnet.ru
Открыта:
31-07-2001
Статистика
0 за неделю
Visual Basic: новости сайтов, советы, примеры кодов. Выпуск 64.
| Информационный Канал Subscribe.Ru |
Visual Basic: новости сайтов, советы, примеры кодов.
Выпуск 64.
|
VBNet
VBMania
Голосование: Нет тем! Доска почёта: Sergey Y. Tkachev Кононенко Роман Kirill Sergey Sapozhnikov Sobic Ссылки: |
Господа!!! читайте MSDN!!! Несколько слов от автора:
Новый 64-ый выпуск рассылки!!!
Читайте! Содержание выпуска
Книги
Остальные книги о VB можно найти здесь. наверх Citycat by Email Программа Citycat by Email позволяет работать с сервером Subscribe.ru с помощью электронной почты. Теперь Вам не нужно тратить деньги на работу в online и просматривать мегабайты рекламы для того, чтобы подписаться на нужную рассылку! Вам просто необходимо скачать небольшую базу данных по всем рассылкам каталога с нашего сайта, после чего Вы сможете подписываться и отписываться от рассылок, заказывать архивы прошлых выпусков, выполнять поиск по каталогу рассылок и многое другое. Программу Citycat by Email можно бесплатно загрузить с сайта http://sapisoft.h1.ru. наверх Новости сайта VBNet
Последние 20 тем форума на VBNet.Ru: 07:51 / 8 июн. ВНИМАНИЕ! Завтра будет новый форум! | Ответов: 3 02:44 / 8 июн. Два вопроса по внешним DLL (+) | Ответов: 1 01:48 / 8 июн. Наследование | Ответов: 1 20:15 / 7 июн. Сортировка базы | Ответов: 2 15:37 / 7 июн. Как через API вытащить размер каталога. | Ответов: 1 15:30 / 7 июн. Help NetShareEnum | Ответов: 1 15:23 / 7 июн. Crystal Report... HELP!!!! | Ответов: 3 13:48 / 7 июн. Private, Public и др. | Ответов: 2 12:31 / 7 июн. DataReport | Ответов: 1 01:41 / 7 июн. Должен же быть способ лучше? (+) | Ответов: 1 15:51 / 23 мар. попробуй так | Ответов: 1 15:31 / 23 мар. zapusk ishodnikov s neta | Ответов: 0 09:27 / 23 мар. Error: Logon session doesn't exist | Ответов: 0 03:21 / 23 мар. Перекодировка текста WIN/DOS | Ответов: 1 03:03 / 23 мар. эй тут есть крутые или нет? | Ответов: 1 22:33 / 22 мар. Как минимизировать любое окно проги (игры)???? | Ответов: 0 20:59 / 22 мар. Outlook отправка почты | Ответов: 0 17:59 / 22 мар. Сортировка таблицы в базе данных | Ответов: 1 19:58 / 21 мар. Печать рисунка | Ответов: 0 14:32 / 21 мар. Точка и восклицательный знак | Ответов: 1 Последние поступления в Библиотеку кодов: наверх Новости сайта VBMania
наверх Новости сайта Азбука VB
наверх Доска объявлений Ищу телеработу.
наверх Мои программы BalloonMessage for MS Agent BalloonMessage for Microsoft Agent реализует диалог программы с
пользователем, используя при этом технологию Microsoft Agent. OCX реализует три
типа диалоговых окон: InputBox, MsgBox и MsgLabels. Автор: Шатрыкин Иван. Соавтор: Павел Сурменок. наверх Вопрос/Ответ Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы. Вопросы:Автор вопроса: AngySacin Ответ ожидается по этому адресу Можно ли програмно вставить сообщение в папку "Исходящие" Outlook Express(не Microsoft Outlook!)? (VB6) Автор вопроса: Виталий Ответ ожидается по этому адресу Здравствуйте, подскажите, как средствами VB просмотреть изображение с видеовхода на видеокарте к которому подключен, скажем, видеомагнитофон. Или хотябы вывести картинку? Автор вопроса: Alex Ответ ожидается по этому адресу Как сделать, чтобы с яапуском программы яапускалась моя программа (например, с InternetExplorer,Notepage или Soliter). Может есть какой-то ключ в реестре, или есть другой способ? Ответы: Вопрос: У меня несколько вопросов (пишу на VBasice 3.0 и Visual Basic 6.0) : 1)Где можно найти программу для перевода из VB любой версии в DELPHI (желательно 6-версии)? 2)Как сделать , чтобы программа автоматически запускалась после загрузки КОМПа? 3) Как работать с реестром? 4) Допустим я нашел нужную мне функцию winAPI, как определить, какие к ней нужны константы и тд? 6)Можно ли сделать так, чтобы тому, кому я даю проги не надо было устанавливать VBasic 3.0 или 6.0 ? Ответ: Автор ответа: Kurt Haeldar 2. Эту прогу нужно будет прописать в автозагрузку. 4. Если работать с VB - то обязательно нужно заглянуть на сайт www.allapi.net. Там лежит прога API-Guide, очень удобный справочник по API функциям. В Дэлфи параметры функций можно узнать из справки, а вот список самих функций там все равно отсутствует. 6. Просто создать установочный пакет при помощи Setup Toolkit в самом VB. Другое дело, что SETUP для программы, которая делает всего лишь 2+2=5 :-))) этот SETUP будет весить никак не менее 2 с лишним Mb Вопрос: У меня несколько вопросов (пишу на VBasice 3.0 и Visual Basic 6.0) : 1)Где можно найти программу для перевода из VB любой версии в DELPHI (желательно 6-версии)? 2)Как сделать , чтобы программа автоматически запускалась после загрузки КОМПа? 3) Как работать с реестром? 4) Допустим я нашел нужную мне функцию winAPI, как определить, какие к ней нужны константы и тд? 6)Можно ли сделать так, чтобы тому, кому я даю проги не надо было устанавливать VBasic 3.0 или 6.0 ? Ответ: Автор ответа: Игорь Шаронов 1) скорее всего, нет такой 2) http://vbnet.ru/faq/showtopic.asp?id=355 или http://vbnet.ru/faq/showtopic.asp?id=182 6) сам пакет не надо устанавливать, достаточно установить пакет необходимым библиотек для запуска программ, написанных на ВБ6.0 весом около мегабайта. Если у пользователя Виндоуз-98, NT4.0 и выше, то ничего устанавливать не надо. Вопрос: У меня несколько вопросов (пишу на VBasice 3.0 и Visual Basic 6.0) : 1)Где можно найти программу для перевода из VB любой версии в DELPHI (желательно 6-версии)? 2)Как сделать , чтобы программа автоматически запускалась после загрузки КОМПа? 3) Как работать с реестром? 4) Допустим я нашел нужную мне функцию winAPI, как определить, какие к ней нужны константы и тд? 6)Можно ли сделать так, чтобы тому, кому я даю проги не надо было устанавливать VBasic 3.0 или 6.0 ? Ответ: Автор ответа: Кершенгольц Андрей 1) Мечтать не вредно. Однозначно перевести прогу с одного языка на другой вряд ли возможно. Все равно придется поработать ручками. 2) Самое простое - помести ее в группу Автозагрузка (StartUp). Или в реестре - HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run 3) Через функции API. Если тебе хватит маленького кусочка реестра, то можно использовать функции VB (в VB 6.0 они точно есть, в 3.0 - не знаю) - GetSetting, SaveSetting и DeleteSetting. Они работают с веткой HKEY_CURRENT_USER\Software\VB and VBA Program Setting 4) В VB 6.0 есть такая программулина (может встраиваться в оболочку) - API Text Viewer. Там все есть. 6) А создать инсталляцию через Package and Deployment Wizard слабо? Вопрос: Как использовать параметры в командной строке при загрузке программы, откомпилированной в EXE файл? Ответ: Автор ответа: Игорь Шаронов Вам достаточно посмотреть здесь - http://vbnet.ru/faq/showtopic.asp?id=241 или здесь - http://vbnet.ru/faq/showtopic.asp?id=176 Вопрос: Как использовать параметры в командной строке при загрузке программы, откомпилированной в EXE файл? Ответ: Автор ответа: Real dim CmdLine as string CmdLine = Command() ' В CmdLine хранятся параметры командной строки Вопрос: Как использовать параметры в командной строке при загрузке программы, откомпилированной в EXE файл? Ответ: Автор ответа: Анатолий Для того, чтобы обработать параметр, заданный в командной строке, в нужном месте(например, при открытии формы программы) необходимо использовать функцию Command(). Dim strComm As String StrComm = Command() После этого в strComm окажется строка параметров запуска, ее и надо использовать... Вопрос: Как использовать параметры в командной строке при загрузке программы, откомпилированной в EXE файл? Ответ: Автор ответа: Кершенгольц Андрей В VB есть такая функция - Command (Command$). Первая возвращает командную строку в переменную типа Variant, вторая - в пеерменную типа String. Ну а дальше уже дело техники. Вопрос: Пишу программу, где по ходу яаполнения списка сояда?тся динамический массив. На каждый элемент списка-один массив.Элементов может быть сколько угодно.Как давать имена таким массивам? По идее List1.List(i)в цикле, но на такие имена VB ругается. Ответ: Автор ответа: Анатолий Вот небольшая иллюстрация: на форме два листбокса и кнопка Private Sub Command1_Click() Dim i As Integer Dim iList() As String For i = 1 To 10 List1.AddItem Str$(i) Next ReDim iList(List1.ListCount) For i = 0 To List1.ListCount - 1 iList(i + 1) = List1.List(i) Next For i = 1 To UBound(iList) List2.AddItem iList(i) Next End Sub Масссив объявлен без размерности, затем переопределен через Redim. Если нечто подобное делать после каждого обновления листвокса, то в массиве iList() всегда будет свежая инфа... Если нужно создавать именно массивы, а не элементы, то надо объявить массив массивов :-) через пользовательский тип, ну, примерно Type Mass UserMas(10) As String End Type Dim iList() as Mass Вопрос: Программа должна открыть файл A.TXT в своем каталоге. Как это осуществить, если путь к программе меняется? Ответ: Автор ответа: Kurt Haeldar Если меняет свое местоположение прога, то придется указывать полностью имя файла, который надо открыть. Вопрос: Программа должна открыть файл A.TXT в своем каталоге. Как это осуществить, если путь к программе меняется? Ответ: Автор ответа: Ivan Если запускаемый exe файл лежит в той же директории, что и текстовый файл, то: App.path & “\a.txt” Вопрос: Программа должна открыть файл A.TXT в своем каталоге. Как это осуществить, если путь к программе меняется? Ответ: Автор ответа: Мунгалов Андрей для этого есть функция App.Path возвращает путь откуда была запущена программа, одно замечание возвращенный путь не содержит на конце знак "\" его нужно добавить самостоятельно например так: progpath = App.Path & "\" Вопрос: Программа должна открыть файл A.TXT в своем каталоге. Как это осуществить, если путь к программе меняется? Ответ: Автор ответа: Анатолий Есть в VB6 параметр App.Path(дает путь к папке запущенного приложения) - strPath = App.Path & ["\" & ]"A.txt" То что в [] может и не понадобиться - надо проверять последний символ App.Path, и если это не "\", тогда ее добавить. Вопрос: Программа должна открыть файл A.TXT в своем каталоге. Как это осуществить, если путь к программе меняется? Ответ: Автор ответа: Ewgeniy Чтобы узнать место расположения программы: MsgBox App.Path Вопрос: Программа должна открыть файл A.TXT в своем каталоге. Как это осуществить, если путь к программе меняется? Ответ: Автор ответа: Real Команда App.path возвращает директорий откуда запускается программа. Но только нужно будет обработать два варианта, так как команда возвращает директорий либо со слэшем в конце либо без него, это зависит от того где лежит эзешка , в корне дисков С:\ или D:\ и т.п. или же в какой либо директории C:\xxx\ccc .... Вопрос: Программа должна открыть файл A.TXT в своем каталоге. Как это осуществить, если путь к программе меняется? Ответ: Автор ответа: Иван Используй app.path - даёт путь своей проги То есть имя твоего A.TXT = app.path & "\a.txt" Вопрос: Программа должна открыть файл A.TXT в своем каталоге. Как это осуществить, если путь к программе меняется? Ответ: Автор ответа: Кершенгольц Андрей App.Path возвращает путь к каталогу с программой (без символа "\") Вопрос: 1.Как проследить яапуск конкретной программы? 2.Как получить список открытых программ? Ответ: Автор ответа: Ivan Получение заголовка всех запущенных приложений. Public Declare Function GetDesktopWindow Lib "user32" () As Long Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Public Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long Public Const GW_HWNDFIRST = 0 Public Const GW_HWNDLAST = 1 Public Const GW_HWNDNEXT = 2 Public Const GW_HWNDPREV = 3 Public Const GW_OWNER = 4 Public Const GW_CHILD = 5 Использование: Поместите на форму объекты ListBox1 и CommandButton1. В модуле формы поместите следующий код: Private Sub Command1_Click() Dim hwnd& Dim dummy& Dim strCaption$ List1.Clear ' Рабочий стол - самое первое окно hwnd& = GetDesktopWindow() ' Первое дочернее окно - окно первого уровня hwnd& = GetWindow(hwnd&, GW_CHILD) ' Теперь получим заголовки окон всех уровней Do dummy& = GetWindowTextLength(hwnd&) If dummy <> 0 Then strCaption = String(dummy + 1, " ") dummy = GetWindowText(hwnd&, strCaption, dummy + 1) List1.AddItem strCaption End If hwnd& = GetWindow(hwnd&, GW_HWNDNEXT) Loop While hwnd& <> 0 End Sub Вопрос: как можно назначить hotkey, для вызова проги, т.е. я свернул её в трэй и мне надо её вызвать. Ответ: Автор ответа: Игорь Шаронов Ответ на ваш вопрос вы можете найти здесь - http://vbnet.ru/faq/showtopic.asp?id=172 Вопрос: 1) Есть прога убирающая с экрана значки, а как убрать значки из Панели Задач. 2) Как програмно изменить разрешение экрана. Ответ: Автор ответа: Игорь Шаронов 2) Ответ смотрите тут - http://vbnet.ru/faq/showtopic.asp?id=130 Вопрос: Как отключить клавиатуру? Ответ: Автор ответа: Игорь Шаронов Только глобально... Предупреждение: после запуска этого кода для активизации клавиатуры вам надо перезагрузить компьютер Shell "rundll32 keyboard,disable" Вопрос: Подскажите как объявлять перечисления на VB_6.0. Ответ: Автор ответа: Кершенгольц Андрей Через Enum. Например: Public Enum asd asd1 = 0 asd2 = 27 asd3 = 6678 End Enum Можешь объявить переменные, например Dim sdf As asd Можете заполнить эту форму, либо отослать вопрос СЮДА Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта. |
|||||||||||||||||||||
Выпуск подготовили: |
Сурменок Павел | |||||||||||||||||||||
| http://subscribe.ru/
E-mail: ask@subscribe.ru |
Отписаться
Убрать рекламу |
| В избранное | ||
