Вопрос № 76312: Здраствуйте, эксперты.
Я хочу писать и использовать в своих программах *.dll файлы, помогите с литературой (ну тоесть дайте ссылочку), где б про это почитать.
Алекс....Вопрос № 76359: Уважаемые эксперты. Всем доброго дня
Имеется объект (image или picture), который перемещается по форме под управлением клавиатуры. Как сделать, чтобы координаты этого объекта измерялись не от левого верхнего угла объекта, а например от центра объ...Вопрос № 76502: Добрый день всем знатокам.
Нужен макрос сравнения, который решал бы следующую задачу:
после его запуска (вручную т.е. из другого макроса), он бы сравнил значение
ячейки А1 со значение в ячейке В2 и выполнил два действия
-если А1<В2...Вопрос № 76584: Как в Access на VBA написать программку на определение наличия файла в определенном месте?...Вопрос № 76628: Здравствуйте!
Порекомендуйте что почитать по теме:
"Разработка приложений VBA" желательно с простенькими примерами...
Вопрос № 76.312
Здраствуйте, эксперты.
Я хочу писать и использовать в своих программах *.dll файлы, помогите с литературой (ну тоесть дайте ссылочку), где б про это почитать.
Алекс.
Отправлен: 18.02.2007, 18:07
Вопрос задал: Alxx (статус: Посетитель)
Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Тесленко Евгений Алексеевич
Здравствуйте, Alxx!
ссылочка http://all-ebooks.com/
В разделе программирование очень много литературы (free).
Евгений
Ответ отправил: Тесленко Евгений Алексеевич (статус: 5-ый класс)
Ответ отправлен: 18.02.2007, 18:18 Оценка за ответ: 5
Отвечает: Присяжнюк Анатолий Васильевич
Здравствуйте, Alxx!
Рекомендую сайты: http://www.kbyte.ru и http://www.bit.pirit.info .
Там можно найти и списки литературы и статьи по данному вопросу.
С уважением - АВП
Ответ отправил: Присяжнюк Анатолий Васильевич (статус: 1-ый класс)
Ответ отправлен: 18.02.2007, 18:27 Оценка за ответ: 5
Отвечает: KunkTator
Здравствуйте, Alxx!
Надо учесть, что в VB не обычные сишные дээльэли, а так называемые ActiveX dll. Их идеология и способы их использования ("подключения" к программе, проекту) различны. Начать можно с http://www.visual.2000.ru/develop/ms-vb/cp9712/activex.htm
--------- Sapienti sat!
Ответ отправил: KunkTator (статус: 2-ой класс)
Ответ отправлен: 18.02.2007, 20:05 Оценка за ответ: 5
Вопрос № 76.359
Уважаемые эксперты. Всем доброго дня
Имеется объект (image или picture), который перемещается по форме под управлением клавиатуры. Как сделать, чтобы координаты этого объекта измерялись не от левого верхнего угла объекта, а например от центра объекта
Буду благодарен за ответ
Конт
Отвечает: Присяжнюк Анатолий Васильевич
Здравствуйте, Kont kontovich!
Координаты центра можно привязать к координатам левого верхнего угла так:
Xc = Picture.Left + picture.width / 2
Yc = Picture.Left + Picture.Height / 2
и дальше можете работать с координатами центра...
С уважением - АВП
Ответ отправил: Присяжнюк Анатолий Васильевич (статус: 1-ый класс)
Ответ отправлен: 19.02.2007, 06:48 Оценка за ответ: 5 Комментарий оценки: Я перепробовал разные варианты, но ваш ответ подсказал правильное решение. Большое спасибо
Вопрос № 76.502
Добрый день всем знатокам.
Нужен макрос сравнения, который решал бы следующую задачу:
после его запуска (вручную т.е. из другого макроса), он бы сравнил значение
ячейки А1 со значение в ячейке В2 и выполнил два действия
-если А1<В2 запустил бы макрос М1
-если А1>=B2 запустил бы макрос М2
(А1,В2 и макросы М1 и М2 находятся в одной книге Excel)
kas
Отправлен: 19.02.2007, 21:51
Вопрос задал: Kas (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Alec Perle
Здравствуйте, Kas!
'если макрос находится в листе:
Sub MyCompare()
if Cells("A1")<Cells("A2) then
Call M1
else
Call M2
end if
End Sub
'если не в листе, а в другом модуле:
Sub MyCompare()
with ActiveSheet 'а здесь может быть и Sheets("Книга1")
if .Cells("A1")<.Cells("A2) then
Call M1
else
Call M2
end if
end with
End Sub
'ключевое слово Call - для наглядности, сиктансис позволяет его не использовать для вызова макросов.
--------- Пессимист - это хорошо информированный оптимист (а оптимист - хорошо проинструктированный пессимист)
Ответ отправил: Alec Perle (статус: 4-ый класс)
Ответ отправлен: 19.02.2007, 22:00 Оценка за ответ: 5
Отвечает: Чалагаев И.Г
Здравствуйте, Kas!
Sub Primer()
If Range("a1").Value < Range("b2").Value Then Call m1
If Range("a1").Value >= Range("b2").Value Then Call m2
End Sub
Ответ отправил: Чалагаев И.Г (статус: 1-ый класс)
Ответ отправлен: 19.02.2007, 22:56 Оценка за ответ: 5
Вопрос № 76.584
Как в Access на VBA написать программку на определение наличия файла в определенном месте?
Отправлен: 20.02.2007, 12:03
Вопрос задала: Dariola (статус: Посетитель)
Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: PsySex
Здравствуйте, Dariola!
-----------------------
If Dir$("c:pagefile.sys", vbSystem + vbHidden + vbReadOnly) = "" Then
MsgBox "File not exist"
End If
------------------------
--------- Bom Shankar!
Ответ отправил: PsySex (статус: Студент)
Ответ отправлен: 20.02.2007, 13:37 Оценка за ответ: 5
Отвечает: Чалагаев И.Г
Здравствуйте, Dariola!
Dim a As String
a = InputBox("введи директорию проверки и имя файла с расширением")
If dir(a) <> "" Then
MsgBox ("Такой файл существует")
Else
MsgBox ("Такой файл не существует")
End If
Ответ отправил: Чалагаев И.Г (статус: 1-ый класс)
Ответ отправлен: 20.02.2007, 14:00
Отвечает: Тесленко Евгений Алексеевич
Здравствуйте, Dariola!
Добавьте в Ваш код строку подобную следующей:
If Dir$(strPathAndFile) = "" Then .... (File not found)
Удачи.
Евгений.
Здравствуйте!
Порекомендуйте что почитать по теме:
"Разработка приложений VBA" желательно с простенькими примерами
Приложение:
Отправлен: 20.02.2007, 19:20
Вопрос задал: W4rmonger (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Присяжнюк Анатолий Васильевич
Здравствуйте, W4rmonger!
Зайдите на сайты http://kbyte.ru и http://bit.pirit.info - это имено для Вас.
И примеров куча.
С уважением - АВП
Отвечает: Тесленко Евгений Алексеевич
Здравствуйте, W4rmonger!
Вопос № 76312 тоже был о источниках информации.
Я тоже повторюсь " ..http://all-ebooks.com/ В разделе Программирование очень много литературы (free)..."
Удачи.
Евгений.
