Вопрос № 83674: Товарищи, помогите. Программа рисует график (на форме, на рикчер боксе, неважно), который нужно сохранить в графический файл. Нигде не нашёл как это делается.
Товарищ AlbusFalco предложил такой вариант:
Private Sub Command1_Click()
..Вопрос № 83753: Здравствуйте!
Создал форму для просмотра таблицы, входящей в состав базы данных Access(просмотр записей осуществляется с помощью элемента Data). Таблица называется Students и содержит данные следующие о студентах: Фамилия, Имя, Отчество, год рожд...Вопрос № 83780: Уважаемые эксперты!
Подскажите как написать программу в VBA которая могла-бы преобразовывать в Excel'е любое рублевый формат в текстовый,
т.е. 1324,20р. -> "одна тысяча триста двадцать четыре руб. 20 коп."
Заранее благодарен...Вопрос № 83803: Можно ли на VB6 использовать объекты GDI+. Если да то если возможно пример....
Вопрос № 83.674
Товарищи, помогите. Программа рисует график (на форме, на рикчер боксе, неважно), который нужно сохранить в графический файл. Нигде не нашёл как это делается.
Товарищ AlbusFalco предложил такой вариант:
Private Sub Command1_Click()
SavePicture Picture1.Picture, "c:myImage.bmp"
End Sub
Но это не работает (Инвалид проперти валуе, извините за мой английский). Возможно он забыл упомянуть о каких нибудь подключаемых библиотеках, или изменённых свойствах?
Эксперты! Помогите, пожалуйста! Внесите свет науки в мой тёмный мозг!
Отправлен: 22.04.2007, 13:08
Вопрос задал: Beruboi (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: PsySex
Здравствуйте, Beruboi!
Эксперт немного ошибься.
SavePicture Picture1.Image, "c:111.bmp"
Причем должно быть установлено свойство Picture1.AutoRedraw = True
--------- Bom Shankar!
Ответ отправил: PsySex (статус: Практикант)
Ответ отправлен: 22.04.2007, 14:14 Оценка за ответ: 5 Комментарий оценки: Отлично! Огромная Вам благодарность!!!
Вопрос № 83.753
Здравствуйте!
Создал форму для просмотра таблицы, входящей в состав базы данных Access(просмотр записей осуществляется с помощью элемента Data). Таблица называется Students и содержит данные следующие о студентах: Фамилия, Имя, Отчество, год рождения, и четыре оценки за экзамены. Поля в таблице называются Fam, Name, Otch, god_rozhd, matem, histor, inform, himia. Как мне теперь создать запрос для того, чтобы вывести список студентов, фамилии которых начинаются с букв Б, В, К, подсчитать средний балл за экзамены и сохранить
это все в текстовый файл.
Отвечает: PsySex
Здравствуйте, Valeriy_USTU!
Код в приложении.
ps конечно могут помочь, но бывает, что не хватает времени, тем более вам нужна не подсказка, а можно сказать готовая программа....
Приложение:
--------- Bom Shankar!
Ответ отправил: PsySex (статус: Практикант)
Ответ отправлен: 24.04.2007, 12:52
Вопрос № 83.780
Уважаемые эксперты!
Подскажите как написать программу в VBA которая могла-бы преобразовывать в Excel'е любое рублевый формат в текстовый,
т.е. 1324,20р. -> "одна тысяча триста двадцать четыре руб. 20 коп."
Заранее благодарен!
Отправлен: 23.04.2007, 08:03
Вопрос задал: Sheix002 (статус: 1-ый класс)
Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: forest_walker
Здравствуйте, Sheix002!
Если речь идет о подсказке, то вот Вам самая простая идея:
- сразу решаете: на какое максимальное число нулей будете закладываться?
- заносите число в промежуточную ячейку
- сравниваете число с максимально возможным: больше оно, скажем, миллиона? если да, то делите на миллион, выкидываете остаток, получаете, скажем, три и добавляете в ячейку строчку "три миллиона" (придется понаписать заготовок :) )
- вычитаете из промежуточной ячейки три миллиона (или сколько там получится)
- смотрите, а больше ли остаток ста тысяч? нет, не больше, значит идем дальше...
Можно идти и наоборот, с младших разрядов, но тогда алгоритм станет несколько сложнее.
А вообще-то можно поискать готовое решение: наверняка уж кто-нибудь заморочился.
С уважением.
--------- осторожность, точность... и горит все синим пламенем! :))
Ответ отправил: forest_walker (статус: Практикант)
Ответ отправлен: 23.04.2007, 10:38
Отвечает: Decodomo
Здравствуйте, Sheix002!
в excele я сделал это так без vba
=СЖПРОБЕЛЫ(СЦЕПИТЬ(ЕСЛИ(C10>0;ВЫБОР(C10;$C1;$C2;$C3;$C4;$C5;$C6;$C7;$C8;$C9;);"");" ";ЕСЛИ(C11=1;ВЫБОР(C12+1;$A$10;$A$11;$A$12;$A$13;$A$14;$A$15;$A$16;$A$17;$A$18;$A$19);ЕСЛИ(C11>1;ВЫБОР(C11;;$B3;$B4;$B5;$B6;$B7;$B8;$B9;$B10);""));" ";ЕСЛИ(C11<>1;ЕСЛИ(C12>0;ВЫБОР(C12;A1;A2;$A3;$A4;$A5;$A6;$A7;$A8;$A9);"");"");" ";ЕСЛИ(C11=1;B13;ЕСЛИ(C12=1;B11;ЕСЛИ(ИЛИ(C12=2;C12=3;C12=4);B12;ЕСЛИ(И(C11=0;C12=0);"";ЕСЛИ(ИЛИ(C12=0;C12>4);B13;"")))));"
";ЕСЛИ(C13>0;ВЫБОР(C13;$C1;$C2;$C3;$C4;$C5;$C6;$C7;$C8;$C9;);"");" ";ЕСЛИ(C14=1;ВЫБОР(C15+1;$A10;$A11;$A12;$A13;$A14;$A15;$A16;$A17;$A18;$A19);ЕСЛИ(C14>1;ВЫБОР(C14;;$B3;$B4;$B5;$B6;$B7;$B8;$B9;$B10);""));" ";ЕСЛИ(C14<>1;ЕСЛИ(C15>0;ВЫБОР(C15;B1;B2;$A3;$A4;$A5;$A6;$A7;$A8;$A9);"");"");" ";ЕСЛИ(C14=1;B16;ЕСЛИ(C15=1;B14;ЕСЛИ(ИЛИ(C15=2;C15=3;C15=4);B15;Е
СЛИ(И(C14=0;C15=0);"рублей";ЕСЛИ(ИЛИ(C15=0;C15>4);B16;"")))));" ";ТЕКСТ(ОКРУГЛ(ОСТАТ(C19;1)*100;);"00");" ";C18))
ну и на этом же листе в табличке у меня написаны сами рублевые слова с разными окончаниями
файл можно скачать от сюда
http://xinul.narod.ru/
прямая сцылка
http://xinul.narod.ru/bez_macrosov.xls
Ответ отправил: Decodomo (статус: 1-ый класс)
Ответ отправлен: 23.04.2007, 10:44
Отвечает: PsySex
Здравствуйте, Sheix002!
Есть такой хелп Кирпичики называется - прикрепил к ответу.
Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа. --------- Bom Shankar!
Ответ отправил: PsySex (статус: Практикант)
Ответ отправлен: 23.04.2007, 11:44
Вопрос № 83.803
Можно ли на VB6 использовать объекты GDI+. Если да то если возможно пример.
Отправлен: 23.04.2007, 10:26
Вопрос задал: DragonTusk (статус: 3-ий класс)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)
