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

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

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 1.824 RSS
←   Март 2012   →
 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:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

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

Лучшие эксперты по данной тематике

Асмик
Статус: Академик
Рейтинг: 9949
∙ повысить рейтинг » 		Роман Селиверстов
Статус: Советник
Рейтинг: 4359
∙ повысить рейтинг » 		Vasiliy83
Статус: Профессионал
Рейтинг: 2154
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Basic/VBA

Номер выпуска:1074
Дата выхода:11.03.2012, 23:00
Администратор рассылки:Vasiliy83 (Профессионал)
Подписчиков / экспертов:123 / 57
Вопросов / ответов:3 / 9

Консультация # 19134: Здарвствуйте уважаемые эксперты. Помогите пожулайста решить возникший вопрос. Суть его заключается в том чтобы на VBA6.0 сделать форму в виде сердечка... для девушки небольшой сюрприз. Буду благодарен за любую оказанную помощь в решении этого вопроса....

Консультация # 30905: Создан обьект Set FSO = CreateObject("Scripting.FileSystemObject") открыт файл, достаточно большой. Set l = FSO.OpenTextFile(FileIn, 1, True) Из него в цикле построчно читается информация, обрабатывается и записывается в другой файл. do ss = l.readline .... loop Пожалуйста, подскажите, какой критерий ...
Консультация # 54800: Здравствуйте уважаемые эксперты,кто может помочь, заране спасибо. 1Как средствами VB6 можно сохранить все сообщения определенной темы или даты из Outlook Express, находящиеся в одной из папок(рассылки например), в HTML-формате ? 2Вопрос:КАК? как запихать HTML-страницы в EXEшник(хотя бы из папки какой нибудь) и организовать только их просмор...

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

Здарвствуйте уважаемые эксперты. Помогите пожулайста решить возникший вопрос. Суть его заключается в том чтобы на VBA6.0 сделать форму в виде сердечка... для девушки небольшой сюрприз. Буду благодарен за любую оказанную помощь в решении этого вопроса.

Дата отправки: 02.04.2005, 21:34
Вопрос задал: Zdobnin_Pavel
Всего ответов: 4
Страница онлайн-консультации »

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

Здравствуйте, Zdobnin_Pavel!
Если нужен пример ввиде проги, пиши мне на почту PavPS@List.ru - вышлю (но там не в форме сердечка...).

Консультировал: PavPS
Дата отправки: 02.04.2005, 22:18
Рейтинг ответа:

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

Консультирует rusfaq.ru:

Здравствуйте, Zdobnin_Pavel!
Есть примерчик на http://mastershome.net.ru/vbfaq/d10.htm, http://www.vbland.net/modules.php?name=News&file=print&sid=16
Ну и можешь попробовать программку Scanner http://vbscanner.narod.ru

Приложение:

Консультировал: rusfaq.ru
Дата отправки: 03.04.2005, 12:56
Рейтинг ответа:

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

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

Здравствуйте, Zdobnin_Pavel!
Примитивное сердечко из формы я сделал так.
Можно делать без файла (но мне для оаытов было удобно так).
Структура файла: первое число - кол-во точек в полигоне. Далее в столбик поочередно чередуются Х, У координаты каждой точки полигона, например
8
0
20
20
0
25
20
30
0
50
20
50
50
25
100
0
50
Увеличив кол-во точек добъешся плавности переходов. Можно задать функцию расчета точек (этого я не знаю! у по высшей математике 3).
УДАЧИ

Приложение:

Консультировал: ale2k
Дата отправки: 03.04.2005, 13:15
Рейтинг ответа:

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

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

Здравствуйте, Zdobnin_Pavel!
Копать в сторону CreatePolygonRgn, пример есть на http://www.vbnet.ru/faq/showtopic.asp?id=239.
PS у меня пример заработал только после того, как я заменил Rgn = CreatePolygonRgn(P(0), 428, 0) на Rgn = CreatePolygonRgn(P(0), 428, 1).

Консультировал: Licvidator
Дата отправки: 03.04.2005, 13:15
Рейтинг ответа:

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

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

Создан обьект
Set FSO = CreateObject("Scripting.FileSystemObject")
открыт файл, достаточно большой.
Set l = FSO.OpenTextFile(FileIn, 1, True)
Из него в цикле построчно читается информация, обрабатывается и записывается в другой файл.
do
ss = l.readline
....
loop
Пожалуйста, подскажите, какой критерий конца файла можно поставить в цикле (кроме Err.Number = 62)?

Дата отправки: 06.12.2005, 12:46
Вопрос задал: Алексей Юрьевич Филин
Всего ответов: 2
Страница онлайн-консультации »

Консультирует PsySex (Профессионал):

Здравствуйте, Алексей Юрьевич Филин!
Перед повтором цикла(перед Loop) впишите такую строчку:
------------------------------
If l.AtEndOfLine Then Exit Do
------------------------------
А еще решение Вашей задачи без применения FSO, см. пример в приложении.

Приложение:

Консультировал: PsySex (Профессионал)
Дата отправки: 07.12.2005, 09:12
Рейтинг ответа:

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

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

Здравствуйте, Алексей Юрьевич Филин!

Dim f As Scripting.FileSystemObject
Dim t As TextStream

Set f = New Scripting.FileSystemObject
Set t = f.OpenTextFile("c:\1.txt")
While Not t.AtEndOfStream
\'Читаем посторочно и выводим на экран каждую строку
MsgBox "Line Text: " & vbCrLf & t.ReadLine
Wend
t.Close

Если Вы пишете скрипт, то все тоже. Если нет - то подключите Microsoft Scripting Runtime. А вообще-то, поэкспериментируйте с этой битблиотекой: там много чего интересного.

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

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

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

Здравствуйте уважаемые эксперты,кто может помочь, заране спасибо.
1Как средствами VB6 можно сохранить все сообщения определенной темы или даты из Outlook Express, находящиеся в одной из папок(рассылки например), в HTML-формате ?
2Вопрос:КАК? как запихать HTML-страницы в EXEшник(хотя бы из папки какой нибудь) и организовать только их просмортр, без использования Internet Explorer(подключение к инету не надо), средствами VB6?

P.S.прошу прощения если кому не ответил,деньги за инет имеют тенденцию быстро кончаться ;),но все советы были очень полезны

Дата отправки: 09.09.2006, 05:56
Вопрос задал: Vavunchik
Всего ответов: 3
Страница онлайн-консультации »

Консультирует Кокорич Вадим Леонидович:

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

Отвечу на второй Ваш вопрос. Без использования Internet Explorer никакой документ в формате HTML (HTM) просмотреть нельзя, а для просмотра HTML-документа на жестком диске Вашего компьютера вовсе незачем лезть в Интернет. И более того, элементарный пример: в настройках обозревателя (панель управления) уберите поддержку показа рисунков - и Ваш рабочий стол не сможет отображать ничего, кроме ярлычков к программам. Как говорилось в одной рекламе - Internet Explorer всегда с Вами! Живым примером компилированных HTML-страниц является файл справки Windows либо любой другой программы, имеющей свою справочную систему. Отсюда вывод: пользуйтесь либо возможностью VB создавать DHTML-приложение, либо, к примеру, Html Help Workshop от Microsoft и т.п. программами.

Консультировал: Кокорич Вадим Леонидович
Дата отправки: 09.09.2006, 09:33
Рейтинг ответа:

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

Консультирует Макаренко Е.В.:

Здравствуйте, Vavunchik!
1.По первому вопросу лично видится только перекидывание вставок из одного приложения в другое. Т.е. вы подаете outlook команду на экспорт во вполне определенный файл. Потом этот файл можно переконвертировать в любой угодный для Вас формат. Например, используя ту же манипуляцию офисными приложениями, доступную из VB.

2.Запихать HTML в экзешник будет сложновато. Это ведь в самом простом случае - текст + ссылки на картинки/навороченные вставки. Все операции по проецированию этого текста/программного кода в окошки берет на себя интерпритатор браузера. Хотите - можете свой написать. :)
Однако, в простейшем случае, если нужно что-нибудь вроде просмотра таблиц, выход есть. Полагаю, вам пригодится элемент Microsoft Office SpreadSheet. Этот урезанный вариант экселя понимает CSV, HTML, XML форматы.

Консультировал: Макаренко Е.В.
Дата отправки: 09.09.2006, 10:32
Рейтинг ответа:

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

Консультирует Залетин Виталий Викторович (мь:

Здравствуйте, Vavunchik!
2. Запхните все HTML-страницы в строковой ресурс (в смысле, текст этих страниц, который видно, когда их открываешь в блокноте), потом по надобности пишите этот код в нужный файл и запускайте его в броузере (без него никак). Скомпилировав приложение, Вы получите экзешник с зашитыми в него HTML-страницами - они будут храниться как ресурс. Без извлечения никак нельзя. Хотя можно попытаться создать объект InternetExplorer.Application и записать в него текст, извлеченный из строкового ресурса - тогда никакого писания в файл не понадобится. Например, так:

Sub ee()
Dim o As Object
Dim s As String

Set o = CreateObject("InternetExplorer.Application")
\'Это обязательно - иначе у Вас не будет объекта Document
o.navigate "about:blank"

s=LoadResString(101) \'Или Ваш номер - смотря как в ресурсах
o.Document.write s

\'Делаем ишак видимым
o.Visible = True
\'и убиваем объект - пусть живет своей жизнью
Set o = Nothing
End Sub
Хотя без ишака можно и обойтись - есть же контрол WebBrowser, хотя разница не очень большая.

Консультировал: Залетин Виталий Викторович (мь
Дата отправки: 09.09.2006, 13:57
Рейтинг ответа:

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

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

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

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

© 2001-2012, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про"
Калашников О.А. | Гладенюк А.Г.
Хостинг: Компания "Московский хостер"
Версия системы: 2011.6.36 от 26.01.2012
В избранное