Вопросы

В этом разделе вопросы, которые мне приходили по E-Mail или задавали на сайте.
Вы можете задать свой вопрос, который я размещу здесь.
Задать свой вопрос>>

В:
А каким образом можно управлять CD вынуть, загрузить?

О:
Public Declare Function mciSendString Lib "winmm.dll" _
Alias "mciSendStringA" _
(ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long

Public Sub DoorOpen()
Call mciSendString("Set CDAudio Door Open Wait", 0&, 0&, 0&)
End Sub

Public Sub DoorClose()
Call mciSendString("Set CDAudio Door Closed Wait", 0&, 0&, 0&)
End Sub

В:
А каким образом можно записать программу (или ярлык) при запуске
в папку, например
в Автозапуск в меню Пуск?

О:
В реестр:
Set reg = CreateObject("WScript.Shell")
reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\YourProgram", _
"yourprog.exe"
Set reg = Nothing

В Пуск:
On Error Resume Next
path1 = App.Path
If Right(path1, 1) <> "\" Then path1 = path1 + "\"
'Русская виндовс
FileCopy path1 + App.EXEName + ".exe", _
"C:\WINDOWS\All Users\Главное меню\Программы\Автозагрузка\prog.exe"
'Английская виндовс
FileCopy path1 + App.EXEName + ".exe", _
"C:\WINDOWS\All Users\Start menu\Programms\Startup\yourprog.exe"

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

О:
Private Const MOUSEEVENTF_ABSOLUTE = &H8000
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Const MOUSEEVENTF_MIDDLEDOWN = &H20
Private Const MOUSEEVENTF_MIDDLEUP = &H40
Private Const MOUSEEVENTF_MOVE = &H1
Private Const MOUSEEVENTF_RIGHTDOWN = &H8
Private Const MOUSEEVENTF_RIGHTUP = &H10
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long,
ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, ByVal
dwExtraInfo As Long)
Public Enum enButtonToClick
btcLeft
btcRight
btcMiddle
End Enum

Private Function MouseFullClick(ByVal MBClick As enButtonToClick) As
Boolean
On Error Resume Next
Dim cbuttons As Long
Dim dwExtraInfo As Long
Dim mevent As Long
Select Case MBClick
Case btcLeft
mevent = MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP
Case btcRight
mevent = MOUSEEVENTF_RIGHTDOWN Or MOUSEEVENTF_RIGHTUP
Case btcMiddle
mevent = MOUSEEVENTF_MIDDLEDOWN Or MOUSEEVENTF_MIDDLEUP
Case Else
MouseFullClick = False
Exit Function
End Select
mouse_event mevent, 0&, 0&, cbuttons, dwExtraInfo
MouseFullClick = True
End Function

В:
Здравствуйте подскажите пожалуйста почему когда я использую функцию
ExitWindowsEx и использую константу на выключение а оно только
збрасывает в окно приветствия и все подскажите пожалуйста что нужно
сделать чтобы комп вырубался.

О:
Передавай не константы а 1,0, т. е. Call ExitWindowsEx(1,0)

В:
Простите за невежество, подскажите что такое "Tag формы" и как его
можно изменить программным путём?
Спасибо.

О:
Таг формы - это свойство формы, являющееся строковым комментарием,
устанавливается свойством Form.Tag.

В:
У меня тут вопросик возник.
Дело в том, что я собираюсь к своим прогам подключать динамические
библиотеки - но их теперь надо написать!

Я вчера заляпал dll, с простой функцией показа формы, которая
соответственно в этой dll.

Поясняю.
Я создал ActiveX DLL, добавил в него модуль классов (где эта самая
функция описана), добавил форму. Так вот.
Я в своей программе объявляю:
Dim Module as _название моего модуля_

в функции пишу:
Set Module = New _название моего модуля_
И теперь обращаюсь к функции

------------
Вот Только при компиляции что-то он орет у меня.
Если написать Dim Module as _название моего модуля_._название модуля
классов_

Компиляция проходит, но все равно что-то не хочет нормально работать.

ВОПРОС: Как правильно создавать dll, и как потом к ней обращаться из
др. проекта?

О:
Создаешь DLL:
1. Создаешь класс
2. Добавляешь туда все что нужно.
3. Компилируешь DLL.
Использование:
1. Создаешь Модуль и Форму
2. В Модуле пишешь Public my_class As New
ТвойДЛЛ.Твой_Класс
3. В форме:
my_class.my_function arg1, arg2
Естественно при этом должна быть
подключена эта твоя библиотека.
ТвойДЛЛ - это то, что высветится в ObjectBrowser,
после подключения ДЛЛ.
На чужом компьютере твою DLL надо регистрировать.
Используй Package&Deployment.
А вобше: поищи, на моем сайте есть соответствующая статья.

Вопросы без ответов

Прошу помочь. Нужно сделать прогу в VB6 для копирования кусков текста из одного документа word в другие. Хотел сделать это через word.application, но не могу найти справочник с описанием или хотя бы подробные примеры. Подскажите, где их можно достать?
E-Mail: deonisiy84"NoSpam"@mail.ru

Привет Влад!
Проблема с идееспособностью своих мыслей....
У меня 9 TextBox, (пятнашки, восемь с цифрами в порядке возрастания, а один пустой), мне нужно так чтобы при нажатии на TextBox с цифрой, эта цифра переносилась на пустой TextBox...
Пока решил пробовать на text, когда пойму, буду исследовать глубже....
Спасибо!
E-Mail: asvb"NoSpam"@bk.ru

Есть конструктор DataEnvironment в нем два Commanda (Command2 определен как Cild для Command1) пока SQL запросы расположены в окне свойств конструктора Command все работает как надо, как только SQL для Command1 пишем в коде как DataEnvironment1.Commands(1).CommandText = "SELECT..."(пишем один к одному-просто копируем) выдает ошибку ,что не может найти поля Command2 для построения DataReporta.Что можно сделать,чтобы строить SQL запрос из кода?
E-Mail: svcx"NoSPaM"@mail.ru

У меня такой вопрос.
У нас есть несколько Word templates, которые должны посылаться на сетевые принтеры согласно IP адреса принтера. Например:
Если имя документа = "Файл А" тогда
послать на IP=xxxxxxxxx
если имя документа = "Файл Б" тогда
послать на IP=xxxxxxxx1
Вся информация об IP, драйверах, именах принтеров хранится в одной таблице. Другая таблица хранит имена документов и ключ к рекорду соответствующего принтера.
Можно ли выполнить эту задачу в VBA? Или же это возможно только в VB? Можете ли вы подкинуть идею как манипулировать IP адресом в коде?
Я могу считывать имена принтеров, подсоединенных к моему компу при помощи API процедуры. Но мне нужно посылать на удаленные принтеры при помощи IP addresses.
Спасибо заранее!!!!
P.S. Все драйвера удаленных принтеров уже заинсталлированны на всех компьютерах сети.
E-Mail: safonovaa"NoSpAm"@gmail.com(я не ошибся, перед @ два "а")

Да и еще один вопрос как можно связываться с портами например СОМ или
LTP,USB.И если можно поподробней пожалуйста заранее благодарен.
E-Mail: beliar87"Del it"@mail.ru

Добрый день!
Подскажите пожалуйста, как сделать, чтобы в форме можно было проигрывать Flash-открытки?
Заранее спасибо.
Андрей.
E-Mail: AStepin"NoSpam"@mirinfo.ru