Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Basic / VBA

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 1.824 RSS
←   Июль 2021   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/basic
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

1.824 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: Программирование на Basic / VBA


РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты в разделе

Megaloman
Статус: Мастер-Эксперт
Рейтинг: 232
∙ повысить рейтинг » 		solowey
Статус: Академик
Рейтинг: 83
∙ повысить рейтинг » 		Асмик Гаряка
Статус: Советник
Рейтинг: 0
∙ повысить рейтинг »

Basic

Номер выпуска:1155
Дата выхода:18.07.2021, 00:15
Администратор рассылки:Андреенков Владимир (Академик)
Подписчиков / экспертов:2 / 14
Вопросов / ответов:3 / 4

Консультация # 17886: Здравствуйте. У меня есть исходник программы для дозвона до абонента по модему. Каким образом, после ответа абонента, проиграть ему звуковой файл? Как отследить момент снятия трубки? Спасибо....
Консультация # 123697: Здравствуйте! Пожалуйста, подскажите, как сделать конструктор, деструктор классов на vb6. И возможно ли такое в принципе? sub new() ругается sub finalize() не срабатывает А ещё меня интересует наследование классов, как я понял, у microsoft и на это тоже свой вариант? impliment или что там,а главное где это писать...
Консультация # 42072: Здравствуйте! Имеется следующая задача: в конце строки вставить картинку, причем картинка должна иметь положение="за текстом". Делаю так: Set pic = Selection.InlineShapes.AddPicture("E:\1.jpg", False, True,Selection.Range) pic.Select pic.ConvertToShape Selection.ShapeRange.WrapFormat.Type = 3 Select...

Консультация # 17886:

Здравствуйте. У меня есть исходник программы для дозвона до абонента по модему. Каким образом, после ответа абонента, проиграть ему звуковой файл?
Как отследить момент снятия трубки?
Спасибо.

Дата отправки: 06.03.2005, 00:39
Вопрос задал: Vorchun
Всего ответов: 1
Страница онлайн-консультации »

Консультирует Зубар Тарас Васильевич:

Здравствуйте, Vorchun!
Звуковой файл можно проиграть с помощью АПИ sndPlaySound. Для ответа на другой вопрос нужен исходник программы.

Консультировал: Зубар Тарас Васильевич
Дата отправки: 07.03.2005, 14:03
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 123697:

Здравствуйте!

Пожалуйста, подскажите, как сделать конструктор, деструктор классов на vb6. И возможно ли такое в принципе?

sub new() ругается

sub finalize() не срабатывает

А ещё меня интересует наследование классов, как я понял, у microsoft и на это тоже свой вариант? impliment или что там,а главное где это писать и что это мне даст?

Дата отправки: 18.02.2008, 17:10
Вопрос задал: Талипов А Н
Всего ответов: 2
Страница онлайн-консультации »

Консультирует Тесленко Евгений Алексеевич:

Здравствуйте, Талипов А Н!
http://ifolder.ru/4469396 - VB6.0_знакомство.rar ~2Mb
Евгений.

Консультировал: Тесленко Евгений Алексеевич
Дата отправки: 18.02.2008, 20:47
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует MMAX:

Здравствуйте, Талипов А Н!
вы правильно все поняли

//Цитата
· Initialize - это событие возникает в момент создания (появления) нового объекта класса при работе приложения.
· Terminate - это событие возникает в момент уничтожения объекта.

Это похоже на нужное, но вот как мне теперь в классе создать процедуры , которые будут отрабатывать по этим событиям? Имя-то объекта я не знаю?
//Цитата

ну так вот в теле класса создаете процедуру следующеко вида

Private Sub Class_Initialize()
..
начальная инициализация переменных класса
..
End Sub

далее когда вы будете создавать класс например таким оброзом

dim clsMyClass1 as New clsMyClass

далее вызовется процедура Class_Initialize которая и проинициализирует переменные класса

процедуру следующеко вида созданная в классе позволит произвести процедуру "уничтожения" класса

Private Sub Class_Terminate()
Set mvarParent = Nothing
End Sub

она будет автоматически вызвана в следующем условии
Set clsMyClass1 = Nothing

Консультировал: MMAX
Дата отправки: 19.02.2008, 13:30
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 42072:

Здравствуйте! Имеется следующая задача: в конце строки вставить картинку, причем картинка должна иметь положение="за текстом". Делаю так:

Set pic = Selection.InlineShapes.AddPicture("E:\1.jpg", False, True,Selection.Range)
pic.Select
pic.ConvertToShape
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4

Но при выполнениии pic.ConvertToShape картинка перемещается в произвольное место. Что можно сделать? Может быть как-то можно узнать координаты курсора?

Дата отправки: 04.05.2006, 18:04
Вопрос задал: Alexius
Всего ответов: 1
Страница онлайн-консультации »

Консультирует Genyaa:

Здравствуйте, Alexius!

Может просто не нужно "терять объект из виду"? (см. Приложение)

Приложение:

Консультировал: Genyaa
Дата отправки: 04.05.2006, 19:00
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!
В избранное