Всё, праздники закончились... Несколько понедельников подряд я вас поздравлял с Новым годом, Рождеством, Старым Новым годом... Теперь поздравляю с вытрезвлением :-)))))
Читайте!

Книги

		Переход на VB .NET. Стратегии, концепции, код (цена ~ 158 руб.) Эта книга была задумана как одна из первых книг о.NET, которая ознакомит читателя с основными идеями новой архитектуры и подготовит его к знакомству с более детальной литературой, например документацией Microsoft и ее толкованиями, которая неизбежно появится на рынке. Она поможет вам взглянуть на эту технологию с позиций ваших собственных рабочих планов и быстро освоить те концепции, которые покажутся необычными для большинства прогр...
		Автор(ы): Дан Эпплман, Издательство: Питер, 2002 г.
		Программирование на VB.NET. Учебный курс (цена ~ 119 руб.) Эта книга является вводным курсом по изучению языка программирования Visual Basic .NET. Даны основные принципы объектно-ориентированного программирования в контексте языка VB .NET, поскольку без хорошей подготовки в этой области невозможно в полной мере пользоваться всеми преимуществами VB .NET. Изложены азы всех аспектов языка, которыми должен владеть любой профессиональный разработчик VB .NET
		Автор(ы): Г. Корнелл, Дж. Моррисон, Издательство: Питер, 2002 г.
		VB.NET для разработчиков (цена ~ 125 руб.) Основная задача книги - быстро ознакомить разработчиков Visual Basic с изменениями в .NET Framework. Программисты, использующие Java, C++, Delphi или другие инструменты разработки приложений и интересующиеся Visual Basic или технологией .NET Framework, также найдут эту книгу полезной. Хотя книга посвящена Visual Basic.NET, ее основная цель - продемонстрировать взаимодействие Visual Basic и ...
		Автор(ы): Кит Франклин, Издательство: Вильямс, 2002 г.

Остальные книги о VB можно найти здесь.

наверх

---

Citycat by Email

   Программа Citycat by Email позволяет работать с сервером Subscribe.ru с помощью электронной почты. Теперь Вам не нужно тратить деньги на работу в online и просматривать мегабайты рекламы для того, чтобы подписаться на нужную рассылку! Вам просто необходимо скачать небольшую базу данных по всем рассылкам каталога с нашего сайта, после чего Вы сможете подписываться и отписываться от рассылок, заказывать архивы прошлых выпусков, выполнять поиск по каталогу рассылок и многое другое.
   Программу Citycat by Email можно бесплатно загрузить с сайта http://sapisoft.h1.ru.

наверх

---

Новости сайта VBNet

Дата: 19.01.2003 10:49 | Раздел: Примеры кода | Автор: Бороздин Дмитрий

ТекстИнф - Пример работы с текстом в VB: разделение текста на слова в массивы, подсчёт количества лов и предложений в тексте, работа с символами.

Дата: 18.01.2003 10:47 | Раздел: Примеры кода | Автор: Millenium

WinBAR - Идея создания тулбара для Windows - Но сосвсем по другой форме...

Дата: 17.01.2003 09:52 | Раздел: Примеры кода | Автор: Половый Александр

ExtPic - Извлечение рисунков из файлов - в продолжение к примеру PicInDoc.

Дата: 17.01.2003 09:45 | Раздел: Примеры кода | Автор: Attackie Software

MouseCommander - Исходники программы MouseCommander 0.98.99 на VB6 Данный пример использует следующие действия: * Написание собственного скриптового языка * Управление курсором мыши и клавишами мыши * Посылка данных с клавиатуры в Windows-программы * Управление чужими окнами * Проигрывание WAV файлов

Дата: 16.01.2003 09:51 | Раздел: Примеры кода | Автор: Цьока Александр

NetUserGetInfo - При написании одной из своих программ, столкнулся с тем, что необходимо было проверять привилегии пользователя с заданным именем в домене. Это пример работы с функцией NetUserGetInfo. Оказалось, что доступно большое количество полезной информации о пользователях. Ну кроме того там еще немного всяких мелочей например OLE drag'n'drop результатов.

Дата: 16.01.2003 09:45 | Раздел: Примеры кода | Автор: EROS

Пример работы с Excel, QueryDefs - Пример работы с Excel, QueryDefs Особенностью данного примера является перенос данных в Excel используя метод CopyFromRecordset об'екта Sheets, что на порядок быстрее заполнения каждой ячеки в отдельности, перебирая строки и столбцы набора забисей во вложенных циклах.Показан пример использования форматирования страницы и вставка формулы из VB-кода. Также попутно имеется пример работы с QueryDefs, использования запроса хранимого в базе данных. Запрос создан с использованием агрегирующих функций SQL вычисляемыми ядром полями, с группировкой по одному полю и сортировкой по двум полям. В прилагаемой базе данных почти 1300 строк, в результирующем наборе записей -106, весь процесс создания занимает около 1 сек!!!

Дата: 15.01.2003 10:17 | Раздел: Статьи по VB | Автор: Ларин Александр

Реализация длинной арифметики на Visual Basic’е - Статья об использовании длинной арифметики (дествия над большими числами, которые не помещаются в стандартных числовых типах VB) на Visual Basic.

Дата: 15.01.2003 09:49 | Раздел: Примеры кода | Автор: Yura

Часы в трее - Часы в трэе с редактором стилей.

Дата: 15.01.2003 09:45 | Раздел: Примеры кода | Автор: Yura

Сапёр - Еще один клон игры от Микрософт.

Дата: 14.01.2003 10:11 | Раздел: Примеры кода | Автор: Артем Кривокрисенко

DrawFocusRect - Рисование фокусного прямоугольника средствами API.

Дата: 13.01.2003 06:15 | Раздел: Примеры кода | Автор: Беляев Данила

XO_FMOD - MP3-плэйер с эквалайзером, плагинами и эффектами.

Дата: 13.01.2003 06:15 | Раздел: Примеры кода | Автор: Беляев Данила

XO - Простенький музыкальный формат на базе МИДИ комманд.

Дата: 12.01.2003 06:14 | Раздел: Примеры кода | Автор: Половый Александр

Пасьянс "Тройка" - Реализация пасьянса "Тройка" на Visual Basic.

Дата: 12.01.2003 06:11 | Раздел: ActiveX контролы | Автор: Alex_L

Registry - DLL для работы с реестром.

Последние 20 тем форума на VBNet.Ru:

05:12 / 19 янв.  как выдернуть инфу отсюда- | Хитов: 1 |  Ответов: 0
01:24 / 19 янв.  API для Pwr Managment | Хитов: 2 |  Ответов: 0
01:17 / 19 янв.  Помогите разобраться с Gif анимацией | Хитов: 1 |  Ответов: 0
01:03 / 19 янв.  Контрол как в Outlook Express | Хитов: 0 |  Ответов: 0
23:33 / 18 янв.  Пароль ;) | Хитов: 8 |  Ответов: 0
22:45 / 18 янв.  Opera 7.0 | Хитов: 6 |  Ответов: 1
22:39 / 18 янв.  Kernel32 | Хитов: 11 |  Ответов: 1
21:55 / 18 янв.  Нужен контрол такой же, как DTPicker | Хитов: 5 |  Ответов: 1
21:29 / 18 янв.  Помогите плз!!!!!!!! | Хитов: 9 |  Ответов: 0
21:26 / 18 янв.  и ещё один вопрос | Хитов: 11 |  Ответов: 1
21:20 / 18 янв.  програмирование под DirectX! Help! | Хитов: 5 |  Ответов: 1
20:40 / 18 янв.  Как с помощью Adodc1 выполнить Execute | Хитов: 2 |  Ответов: 0
18:30 / 18 янв.  Выбор языка | Хитов: 14 |  Ответов: 2
17:43 / 18 янв.  подскажите как заполнить TreeView | Хитов: 13 |  Ответов: 1
12:53 / 18 янв.  передача файлов через интернет | Хитов: 13 |  Ответов: 1
10:34 / 18 янв.  монированные диски в ХР | Хитов: 9 |  Ответов: 0
00:27 / 18 янв.  Версия ACCESS или ядра Jet | Хитов: 12 |  Ответов: 0
23:25 / 17 янв.  Нужные библиотеки | Хитов: 32 |  Ответов: 4
22:43 / 17 янв.  Всем! WWW-ссылки | Хитов: 30 |  Ответов: 0
21:54 / 17 янв.  Новое сообщение без темы | Хитов: 8 |  Ответов: 0


Последние поступления в Библиотеку кодов:

Автоматическое упорядочивание элементов... (87)
Drag&Drop - контролы (78)



Новости от VBNet-чиков!:

11:59 / 17 янв. User Unknown сообщает: Билл Гейтс покажет правительственным структурам программный код Windows
   Компания Microsoft в среду предоставит правительственным структурам программный код операционной системы Windows
   Как сообщает Lenta.Ru со ссылкой на Financial Times, решение о раскрытии своего программного кода руководители Microsoft объясняют желанием убедить правительственные структуры пользоваться системой Windows. Код системы уже поступил в распоряжение НАТО и правительства России.
   Решение Microsoft можно назвать сюрпризом. В прошлом году Билл Гейтс охарактеризовал программный код Windows как самую ценную интеллектуальную собственность своей корпорации. В ходе судебного разбирательства, связанного с обвинениями Microsoft в нарушении антимонопольного законодательства, Гейтс отвергал все требования конкурентов о рассекречивании программного кода.
   Передачу кода правительственным структурам следует расценивать как стремление Microsoft занять прочные позиции на рынке программного обеспечения для государственных организаций. По словам представителя отдела стратегии продвижения продукта Micrososft Крэга Муни, правительства занимают второе место на общем потребительском рынке в данной сфере. Мунди уверен, что правительственные организации не рассекретят вверенную им интеллектуальную тайну.
   В значительной степени шаг Microsoft продиктован увеличением среди правительственных структур пользователей операционной системы Linux с открытым программным кодом. Билл Гейтс и его коллеги надеются, что сумеют убедить потребителей из госструктур в надежности и безопасности Windows.
   В ближайшее время Microsoft передаст программные коды к ОС Windows XP и Windows 2000. Через некоторый период будут раскрыты коды к новой системе для серверов и Windows CE, используемой в мобильных компьютерах. Представители правительственных структур сумеют также посетить офис компании и ознакомиться с небольшим количеством кодов к другим программным продуктам. Соглашения о передаче кода подписаны уже с 10 правительственными структурами. Еще с 20 организациями и ведомствами Microsoft ведет переговоры.
   (источник:http://www.federalpost.ru/)

14:05 / 14 янв. Gella сообщает: Впервые в России! Полный трек MCAD по Visual Basic .NET + подарок первым слушателям!

Центр Компьютерного Обучения "Специалист" при МГТУ им. Н.Э.Баумана при информационной поддержке профессионального журнала "Программист" представляет новейшую программу сертификации Microsoft для разработчиков - Microsoft Certified Application Developer (MCAD). 27 января 2003 г. в Центре стартует первый в России трек подготовки MCAD по Visual Basic .NET.

Новая программа сертификации Microsoft Certified Application Developer (MCAD) предназначена для специалистов, использующих Microsoft Visual Studio .NET и .NET Framework для разработки, внедрения и поддержки приложений на уровне предприятия, отдельных компонент, клиентов для рабочих станций и Web, сервисов для хранилищ данных. Чтобы получить статус Microsoft Certified Application Developer, необходимо выбрать один из языков программирования - Visual Basic .NET или Visual C#, изучить 7 курсов и сдать 3 экзамена.

Особенности новой сертификации - отсутствие экзамена по архитектуре, который необходим для практической работы только руководителей проектов и обязателен для сертификации Microsoft Certified Solutions Developer (MCSD) - до сегодняшнего дня единственной сертификационной программы для разработчиков Microsoft.

Специальный подарок для первых слушателей! Первые слушатели курсов программы MCAD получают в подарок от информационного спонсора свежий номер журнала "Программист"!

Также, все курсы программы MCAD уже сейчас можно пройти не выходя из дома - дистанционно!

Подробнее: http://www.specialist.ru/news/news.asp?newsid=150



наверх

---

Новости сайта VBMania

наверх

---

Новости сайта Азбука VB

наверх

---

Новости сайта MSDN

наверх

---

Новости сайта GotdotNet

• 17.01.2003 - Открыта регистрация на участие в мастер-классах на gotdotnet.ru
  Мастер Класс представляет собой серию online-семинаров по разработке приложений с использованием технологий .NET Framework.
  
• 15.01.2003 - Получи футболку с логотипом MSDN!
  Разместите в форуме по обсуждению качества онлайнового перевода пять отзывов-рецензий на переводы статей библиотеки MSDN и получите в качестве вознаграждения футболку с логотипом MSDN !
  

Новые статьи:

• 17.01 - Использование ActiveX-элементов с Windows Forms в Visual Studio .NET
• 16.01 - Планирование размера системных ресурсов для Интернет систем

наверх

---

Новости сайта dotSite

Новые статьи:

Новые примеры:

наверх

---

Доска объявлений

   Ищу телеработу.

• Переводы: английский, украинский, русский.
• Cipper программист.
• Assembler программист.
• PIC разработчик
• композитор
• Прогрессивные стили
• 3D анимация
• GIF анимация

Антон Лозовский.

наверх

---

Мои программы

BalloonMessage for MS Agent


Авторы: Шатрыкин Иван и Павел Сурменок.

наверх

---

Вопрос/Ответ

Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы.

Вопросы:

---

Автор вопроса: rafa

Ответ ожидается по этому адресу

   Как можно использовать разряды числа LONG для хранения логичеких значений. Нужно для баз данных - 32 бита поля LONG это же 32 логических поля BOOLEAN! Зачем заводить отдельные поля? Желательно все это оформить в три функции проверить бит, сбросить бит, поднять бит. (флаг). У самого пока есть только идея, реализовать не могу.

---

Автор вопроса: Артур

Ответ ожидается по этому адресу

   Некоторые программы (например, офис, или архиваторы) в окно "свойства" своих файлов (то, что открывается из контекстного меню проводника) добавляют собственные вкладки. Как это сделать для своих файлов?

---

Автор вопроса: Артур

Ответ ожидается по этому адресу

   Суть в следующем. Я с помощью апи SetParent делаю контрол дочерним окном рабочего стола. После этого мой контрол, естественно, повисает на экране отдельно от моей формы, чего я, в общем-то, и добиваюсь. Но при этом он отмечается собственной кнопкой на Taskbar-e. Как этого избежать? Ведь у контрола просто нет свойства ShowInTaskbar.

Если сформулировать по-другому: как добиться, чтобы окно не отображалось на Taskbar, если нет возможности изменить свойство ShowInTaskbar?

---

Автор вопроса: Игорь

Ответ ожидается по этому адресу

   Помогите узнать, сколько байтов прошло через сетевую карту. Говорят, что можно без Winsocka с помощью API-функции, но я не нашел.

---

Автор вопроса: Mind Engine/team PowerAmiga

Ответ ожидается по этому адресу

   На днях поковырялся с ocx MSMAPI 6.0, все пыхтит ок (хотя и тормознуто, клиент The Bat!) но возник затык с задачей по сохранению аттачa во внешний файл, ну скока не ковырялся, не просек метода, который бы дал че хочу! =(

Просветите кто могет, или пинка к более продвинутому контролу по сабжу дайте! :)

---

Автор вопроса: Pistol

Ответ ожидается по этому адресу

   На форме имеется Frame с controls(text boxes, buttons и labels).
Как сделать так, что бы на Form_Resize не только растягивался фрэйм, но и контролы все изменяли свое местоположение в нем, и не меняли свой размер и порядок, а только расстояние между друг другом ?

---

Автор вопроса: Шакиров Виталий

Ответ ожидается по этому адресу

   Пишу программу основанную на технологии клиент-сервер, но в наличии нет полной документации по winsock, если у кого нибудь она есть то я буду Вам очень благодарен если Вы вышлете ее мне: email - ntfs@netmail.kg

---

Автор вопроса: Oxygen

Ответ ожидается по этому адресу

   Есть две проги. отношения они друг к другу не имеют. Как можно передать значение какой-либо переменной из одной в другую. Пользоваться левыми файлами и буфером обмена не пользоваться.

---

Автор вопроса: lom

Ответ ожидается по этому адресу

   Не подскажите где можно найти описание всех свойств и методов контрола MediaPlayer

---

Автор вопроса: goodroman

Ответ ожидается по этому адресу

   Я хочу создать в реестре значение типа DWORD равное = 1, а оно мне создаёт 31(в шестнадцатеричной) и 49 (в десятичной). Привожу код. Подскажите пожайлуста где ошибка?

Private Sub PiZdA_Click()
Dim hREn As Long, IDenT As Long, znak As String
hREn = RegOpenKeyEx(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\", 0, KEY_ALL_ACCESS, IDenT)
znak = 1
Print znak
Call RegSetValueEx(IDenT, "NoDesktop", 0, REG_DWORD, ByVal znak, 4)
End Sub

---

Автор вопроса: Саша

Ответ ожидается по этому адресу

   Как с помощью Sock пердать с одного компьютера что-нибуть на другой ? Т.е. мне мужно что-бы один Sock отсылал данные другой принимал. Связь локальная

---

Автор вопроса: Zoomer

Ответ ожидается по этому адресу

   Можно ли программно отключить монитор, мышь и клавиатуру?

---

Автор вопроса: Vir

Ответ ожидается по этому адресу

   Привет всем! Пока могу с вами говорить. Пришло мне по почте письмо 15 января, наверное с вирусом. Может я и не единственный.
Писмо имеет "Тему: Fw: Redirection error notification"; "От: Vvi@izhstal.ru.COPYMAIL" и вложение с названием SiamoDiTe.exe
Если письмо открыть блокнотом то между тегами есть скрипт

iframe id="Sample" style="display:none"

и

setTimeout('f2();',5000);
   function f2()
   {
    Sample.document.write('');
   }

Если кто знает, что это за функции и что это за вирус напишите.

---

Автор вопроса: Владимир

Ответ ожидается по этому адресу

   Подскажите,пожалуйста, как проверить состояние "горячей клавиши", сменить присвоенное ей действие или назначить новое?

---

Ответы:

---

Вопрос:

   Есть сайт заказов на ASP. Полученный заказ отправляется на мэйл.
Вопрос: можно ли полученый заказ отправить на факс или распечатать мэйл автоматом при его получении?

Ответ:

Автор ответа: P@Ssword

Если юзать M$ OutGluk, то просто создаёшь правило проверки входящей почты: при получении через учётную запись <имя> распечатать. С другими почтовыми программами - аналогично.

---

Вопрос:

   У меня два вопроса:
1) возможно ли сделать так, чтобы программа меняла свой код сама (переделывала бы себя сама по ходу своей работы)
2) создал я новое меню(динамически), а как им пользоваться (как писать функции которые будут выполнятся при нажатии на созданное меню) где указывается имя динамически-созданного меню или как его и его методы и свойства ещё использовать

Код создания меню:
Private Declare Function CreatePopupMenu Lib "user32" () As Long
Private Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu _
As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As _
Any) As Long
Const MF_STRING = &H0&
Dim hMenu As Long
Private Sub Form_Load()
'Создаём пустое всплывающие меню
hMenu = CreatePopupMenu()
'Добавляем несколько пунктов в меню
AppendMenu hMenu, MF_STRING, ByVal 0&, "Hello !"
AppendMenu hMenu, MF_STRING, ByVal 0&, ByVal 0&
AppendMenu hMenu, MF_STRING, ByVal 0&, "TrackPopupMenu"
End Sub

пробовал создавать как контрол, но и это не выходит (пишет, что класса VB.Menu нет)

В чём тут дело ?

Ответ:

Автор ответа: RaZoom

Если ты создаешь меню средствами WinAPI, то и работать с ним придется через API, а именно вот так:

'Код модуля
Public Declare Function CreatePopupMenu Lib "user32" () As Long
Public Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long
Public Declare Function TrackPopupMenu Lib "user32" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal x As Long, ByVal y As Long, ByVal nReserved As Long, ByVal hWnd As Long, lprc As RECT) As Long
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const MF_STRING = &H0&
Public Const WM_COMMAND = &H111
Public Const GWL_WNDPROC = (-4)
Public hMenu&
Public Type RECT
         Left As Long
         Top As Long
         Right As Long
         Bottom As Long
End Type
Public Type POINTAPI
         x As Long
         y As Long
End Type
Global proc&

Public Function PopupProc&(ByVal lngHwd&, ByVal lngMsg&, ByVal lngWparam&, ByVal lngLparam&)
     If lngMsg = WM_COMMAND Then
     Select Case lngWparam
         Case -101
             MsgBox "Привет!", vbExclamation
         Case -103
             MsgBox "Еще раз привет!", vbExclamation
         Case Else
     End Select
     End If
     PopupProc = CallWindowProc(proc, lngHwd, lngMsg, lngWparam, lngLparam)
End Function

'Код формы
Private Sub Form_Load()
     hMenu = CreatePopupMenu()
     AppendMenu hMenu, MF_STRING, ByVal -101&, "Hello !"
     AppendMenu hMenu, MF_STRING, ByVal -102&, ByVal 0&
     AppendMenu hMenu, MF_STRING, ByVal -103&, "TrackPopupMenu"
     proc = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf PopupProc)
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
     If Button = vbRightButton Then
     Dim rc As RECT, pos As POINTAPI
     GetCursorPos pos
     With rc
     .Left = 0
     .Top = 0
     .Right = 0
     .Bottom = 0
     End With
     TrackPopupMenu hMenu, 0, pos.x, pos.y, 0, Form1.hWnd, rc
     End If
End Sub

Особое внимание: wIDNewItem в каждой строке AppendMenu должен иметь _уникальное значение_ за исключением случая, когда разные пункты меню должны выполнять одни и те же действия.

---

Вопрос:

   как в ресурсы запихнуть готовые диалоги(формы), а потом юзать их оттуда (как MustDie делает с SHELL32.DLL).
К примеру я создам одну DLL'ку а потом буду юзать картинки, диалоги оттуда другими программами.

Ответ:

Автор ответа: P@Ssword

IMHO, shell32.dll не позволяет напрямую брать у неё диалоги, а делается это с помощью WinAPI. А что диалоги у неё в ресурсах - так это причуды C++ и к делу отношения не имеют. А чтобы сделать подобное на VisualBASIC, просто создаёшь ActiveX.DLL, туда кидаешь формочки и модуль класса, а в классе пишешь нечто вроде

Public Sub ShowMySuperPuperParatruperDialogue (ZZZagolovok As String)
Dim frm As Form1

         Set frm = New Form1
         frm.Show
End Sub

Public Function Cool (Flags As Long) As String
Dim frm As Form2

         Set frm = New Form2
         frm.Show vbModal
         Cool = frm.Caption
         Unload frm
End Function

В последнем случае при закрытии формы её надо не выгружать, а ПРЯТАТЬ (Me.Hide).

---

Вопрос:

   Каким образом можно узнать информацию о файле, точнее *.avi, нужно длительность, размеры, и т.п.

Ответ:

Автор ответа: Владимир Кирко

Чуть модифицированный пример из API Guide 3.7

------------------------------------------------------
Private Const OF_SHARE_DENY_WRITE As Long = &H20
Private Type AVIFileInfo
     dwMaxBytesPerSec As Long
     dwFlags As Long
     dwCaps As Long
     dwStreams As Long
     dwSuggestedBufferSize As Long
     dwWidth As Long
     dwHeight As Long
     dwScale As Long
     dwRate As Long
     dwLength As Long
     dwEditCount As Long
     szFileType As String * 64
End Type
Private Declare Function AVIFileOpen Lib "avifil32" Alias "AVIFileOpenA" (ppfile As Long, ByVal szFile As String, ByVal mode As Long, pclsidHandler As Any) As Long
Private Declare Function AVIFileRelease Lib "avifil32" (ByVal pfile As Long) As Long
Private Declare Function AVIFileInfo Lib "avifil32" Alias "AVIFileInfoA" (ByVal pfile As Long, pfi As AVIFileInfo, ByVal lSize As Long) As Long
Private Declare Sub AVIFileInit Lib "avifil32" ()
Private Declare Sub AVIFileExit Lib "avifil32" ()
Private Sub Form_Load()
     'KPD-Team 2001
     'URL: http://www.allapi.net/
     'E-Mail: KPDTeam@Allapi.net
     Dim hFile As Long, AviInfo As AVIFileInfo
     'initialize the AVIFile library
     AVIFileInit
     'create a handle to the AVI file
     If AVIFileOpen(hFile, "C:\WINNT\clock.avi", OF_SHARE_DENY_WRITE, ByVal 0&) = 0 Then
         'retrieve the AVI information
         If AVIFileInfo(hFile, AviInfo, Len(AviInfo)) = 0 Then
             MsgBox "AVI dimensions: " + CStr(AviInfo.dwLength) + " sec, " + CStr(AviInfo.dwWidth) + "x" + CStr(AviInfo.dwHeight)
         Else
             MsgBox "Error while retrieving AVI information... :("
         End If
         'release the file handle
         AVIFileRelease hFile
     Else
         MsgBox "Error while opening the AVI file... :("
     End If
     'exit the AVIFile library and decrement the reference count for the library
     AVIFileExit
End Sub

---

Ответ:

Автор ответа: Loki

В этом тебе поможет FSO!

---

Ответ:

Автор ответа: Иван

2. Дело в том, что Win2000 не поддерживает такую функцию вообще и на сколько мне известно, в Win2000 и в WinXP не возможно убрать свою программу с диспетчера задач.

---

Вопрос:

   Помогите решить задачу по получению данных с удаленных веб-сайтов.
На сколько я понял стандартное решение это Microsoft Internet Controls (SHDOCVW.DLL), открываем Explorer: Set IE = New InternetExplorer... это все понятно, а как получить данные от Explorer открытого не программой или от нескольких открытых страниц, есть ли функция возвращающая количество IE и переключения между ними или подскажите другие методы.

Ответ:

Автор ответа: Владимир Кирко

Попробуйте посмотреть статью
http://www.infocity.kiev.ua/prog/c/content/c033.phtml?id=1438
Там, правда, не всё просто, но, вроде бы, есть исходники.

---

Вопрос:

   Как в центре MDI формы написать какой-то текст?

Ответ:

Автор ответа: xMaxtor

Создай просто форму со свойством BorderStyle=0 и на ней поставь Label и напиши что тебе нужно, а форму можно постаить хоть по ценру хоть сбоку, по другому просто не как.

---

Ответ:

Автор ответа: Артем Кривокрисенко

Попробуй использовать функцию TextOut или DrawText.

---

---

Можете заполнить эту форму, либо отослать вопрос СЮДА

Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта.

Текст сообщения:

Ваше имя
E-mail для ответа

наверх