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

Visual Basic для новичков и профессионалов #33


Информационный Канал Subscribe.Ru

Visual Basic для новичков и профессионалов

Visual Basic для новичков и профессионалов 23(33)

Сайт рассылки:
Сегодня в выпуске:
Бред автора

Здравствуйте уважаемые подписчики!

Возобновлен раздел Юмор. Каждый выпуск будет "снабжаться" парочкой свежих анекдотов.

Маленький опрос:

Нравится ли Вам дизайн рассылки???
Варианты ответов
Голосов
1
1
8
2

 

Правила рассылки
1. Вопросы, касающиеся другой сферы программирования, а также сферы ПО - НЕ ПРИНИМАЮТСЯ!
2. Запрещена пересылка файлов автору рассылки размером более 200КБ без предварительного уведомления автора рассылки!
3. Письма с указанием ссылок на какой-либо ресурс или сайт будут отвергнуты, либо ссылкы будут заменены на <РЕКЛАМА> и не будут опубликованы в рассылке!
4. Используйте текстовый формат письма при написании вопроса или ответа.
Новости сайта www.basic.webhost.ru

В скорем времени сайт покинет всем уже знакомый домен: www.basic.webhost.ru. Причина тому несоответствующее название, а также масса других причин. Новый адрес пока не разглашается.

Вопросы и ответы

 

Место
Имя
Баллы
1
*Casper*
86
2
HouseBugs
28
3
Андрей (now@...)
24
4
Андрей Е.
18
5
Гарвинев Олег
12

Также немного изменилась система начисления. Если вы присылаете пример, он будет проанализирован, за что будут начислены баллы. С каждым ответом Вы сможете изменить свое положение в таблице!

<<Новые вопросы>>


67/ Здравствуйте! У меня к Вам два вопроса по VBA.
1. Мне часто приходится выполнять расчеты в Excel по формулам. Каким образом можно организовать вычисление в цикле так, чтобы после каждого следующего обращения формулы к ячейке X ее содержимое изменялось бы с определенным шагом?
2. При поиске в таблице базы данных какого-либо значения я пользуюсь формулами "ВПР" или "ГПР". Как можно сделать, чтобы при нахождении приближенного значения функция возвращала наименьшее из наибольших значений в строке или столбце списка, а не наибольшее из наименьших, как заложено в формулах?
Заранее благодарю. Александр. [Ответить]


68/ Как поменять рисунок рабочего стола? SystemParametersInfo работает только с bmp файлами, а как применить jpg или gif? [Ответить]
69/ Добрый день уважаемые программисты!
Подскажите, какой функцией конвертировать цвет, выдаваемый оператором POINT в вид RGB. Заранее спасибо! [Ответить]

70/ Здраствуйте, подскажите пожалуйсто как наложить на большую картинку меньшую по определенным координатам, при этом результат сохранить в графический файл (bmp). [Ответить]
71/ Например есть соединение с интернетом и локальной сетью - как можно средствами VB6 узнать кол-во принятых и отправленых байт? Меня интересует конкректный пример, но можно хоть что-нибудь - если это вообще возможно. Заранее благодарю. [Ответить]
72/ Как можно средствами VB прописать программу в автозагрузку, и как можно будет оттуда её убрать? [Ответить]

>ЗАДАТЬ СВОЙ ВОПРОС В РАССЫЛКУ<

<<Вопросы без ответа>>

21/ Хелло френды! Всех с днем влюбленных.

Есть маленький вопросик:
Имею PictureBox контрол, который отображает на экране то, что болжно быть на принтере. Вывод обрабатывает один и тот же модуль. Ведь интерфейс принтера и PictureBox'а схожи. Для предпросмотра использую такую технологию: На форме PictureBox, как контейнер, заделан под цвет формы. Внутри него размещаю еще несколько PictureBox'ов, который имитируют собой страницы. Получается как в ворде. Далее задний PB раздвигаю в высоту так, чтобы при перемещении его внутри формы можно было увидеть все страницы. Справа VScroolBar, который привязан к заднему пиктуребоксу по принципу PBBGround.Top=0 - VScroolBar.Value и все это в событие Scrool. Получается эффект смещения страниц. Их можно листать. И вот сам вопросик. Можно ли как-нибудь смаштабировать все эти пиктуребоксы так, чтобы не менять алгоритм вывода на них. Модуль вывода и форматирования занимает почти 100 КБ. Переписывать его не хочется.

Заранее всем спасибо. Если есть примеры, то можно сюда (casperosft@inbox.ru) [Ответить]

28/ Как вывести все иконки ассоциативных файлов (как в проводнике) [Ответить]
31/ Привет! Скажите, как пользоваться SpeechAPI? Меня интересует пример [Ответить]
40/ Здраствуйте ! У меня к вам будет один вопрос. Можно ли на ВБ (у меня установлена 6-я версия программы) сделать поиск подключенных компьютеров по локальной сети.Мне нужно узнать их ай-пи адрес и желательно имя компьютера. Я начинающий программист, если можно, обьясните более подробно. Заранее спасибо [Ответить]
41/ А возможноли сделать на VB трех мерный кубик-рубик. Похожий на этот "http://conus-video.zp.ua/img/rubik.zip". Или хотя бы подскажите, где можно взять исходник к такой игре. [Ответить]
43/ Здравствуйте уважаемые програмисты. Смотрю я на это дело, сайт развивается, рассылка стала хорошей. То есть объемной. Я конечно не надеялся получать тут ответы, но смотрю, что после прекращения рассылки Visual Basic: "новости сайтов, советы, примеры кодов". Вижу что часть писателей теперб здесь. У меня к вам такой вопрос. Видел программу типа Чатер Бокс. Смысл простой я звоню со своего компа на другой имеющий эту же прогу. Она соединяется. Вся суть в том что можно переслать файлы или написать текст. Если кто знает как это сделать на VB. Как открыть порт и набрать номер я знаю. А дальше? [Ответить]
49/ Тут такая проблема... Я собрался изучить базы данных, а вот хелп не могу найти, в частности по MSH FlexGrid, если у вас есть хелп по контролам вы бы не смогли бы мне прислать или подсказать как с ним работать. Зарание благодарю!!!! [Ответить]
54/ Как сделать турнирную таблицу (Как в футболе). Самое главное - это сортировка. Заранее спасибо! [Ответить]
57/ Здравствуйте. Уважаемы програмисты, я не программирую на VB. Недавно появилась задачка, которую я предполагаю как можно решить, но не знаю как реализовать. Исходные данные. Есть сетевой принтер с возможностью двухсторонней печати. Пользователи работают с MS Word. На печать посылаются задания из n листов. При этом, листы с 1 по n-2 должны быть напечатаны с одной стороны. Лист n-1 является последним листом документа, а лист n оборотной стороной листа n-1. Предпологаемое решение. По нажатию кнопки "Печать1" из переменной "Количество листов в документе" извлекается заначение n и если n<2 выводится на экран сообщение "Печать с оборотом не возможна" и производится выход из программы, если n>2 вызывается на исполнение функция печати, которой в параметрах передается: 1. Печатать листы с 1 по n-2; 2. Печатать без оборота. Вызывается на исполнение функция печати, которой в параметрах передается: 1. Печатать листы n-1, n; 2. Печатать с оборотом. При этом желательно сделать так, чтобы между вызовами функций печати в очередь печати не проскочило какое-нибудь задание. Естественно, все это оформить в виде макроса. Прошу Вас помочь мне. [Ответить]
59/ Доброго здоровья всем читателям рассылки! У меня есть один вопрос. Имеются два BMP рисунка разного размера, необходимо наложить на рисунок большего размера рисунок меньшего размера строго по заданным координатам, сохранить полученный рисунок. Буду благодарен за любые мысли. [Ответить]
60/ Здравствуйте уважаемые программисты! Может кто-нибудь знает,как работать с модемом в VB. Хотя бы номер набирать. Киньте исходничок на мыло, кому не лень. Спасёте меня по-крупному! perekladov_vova@mail.ru [Ответить]
62/ Здравствуйте уважаемуе программисты. Подскажите принцип работы с объектом phone. Вопрос жизни и смерти. [Ответить]
63/ Здравствуйте! Как сделать столбец для таблицы с помощью VB который будет показывать номера кварталов с min зарплатой(в таблице 4 квартала). Другой столбец - Динамика изменения средней зарплаты по кварталам (рост, падение, колебание, постоянно)\ нужно найти среднее знаение среди записей каждого отдела и чтобы написал динамику изменени, то что напискано в скобках, одно слово. [Ответить]
64/ Как зафиксировать утопленную кнопку на форме средствами VB? [Ответить]
<<Полученные ответы на вопросы рассылки>>


Ответов не поступало.
Обучение для новичков

На данный моменд раздел приостановлен в связи с переездом на другой домен. Приносим свои извинения.

Задать вопрос>>>

Компоненты, контролы, исходники

Буква (M) означает, что данный архив содержит только модуль.

Примеры и модули
Ссылка
Описание
Ссылка
Описание
about.zip Стандартное окно About в VB (4.2KB) OpenCD.zip Управление CD (M) (1KB)
anigif.zip Анимация в VB (5KB) progressbar.zip Progress Bar в трее (4KB)
appprioritet.zip Устанавливаем приоритет в приложении (1.8KB) randomform.zip Разные формы (M) (2KB)
biosinfo.zip Просматривает ифрормацию о БИОСе (5.5KB) RandomForms.zip Разные формы (1KB)
cd-rom.zip Работа с CD-ROM (1.6KB) Reestr.zip Работа с реестром (2.5KB)
commondialog.zip Диалог открытия файла без контрола (1.9KB) registry.zip Регистрация в реестре (9.5KB)
coolvbmenu.zip Клевое меню в VB (14KB) resource.zip Просмоторщик ресурсов проги (46.6KB)
disableendtasks.zip Запрет нажатия Ctrl+Alt+Del (1.8KB) RU_EN.zip Переключение языка программно (M) (1KB)
File_size.zip Определяет размер файла (M) (1KB) sharp.zip Пример часиков (2.1KB)
fso.zip Работа с FSO (File System Object) (101KB) ShutDown.zip Шатдаун компьютера (M) (1KB)
HDD_info.zip Информация о диске (M) (1KB) sort.zip Сортировка массива за 0.2 секунды! (M) (1KB)
hddserial.zip Серийный номер диска (24KB) Standart.zip Стандартные диалоги и окна (M) (1KB)
Hibernate.zip Выключение и перезагрузка ПК (M) (1KB) systrayicon.zip Иконка в трее (21KB)
lines2000.zip Пример игры Lines (74KB) transparent.zip Прозрачность окна (M) (1KB)
manifest.zip ХР стиль в аппликухе (2.5KB) Tray_icon2.zip Икнока в трее 2 (M) (1KB)
mdlMain.zip ХР стиль в приложении (M) (1KB) Tray_icon.zip Иконка в трее (M) (1KB)
winwordorfo.zip Проверка орфографии с помощью Word'а (1.9KB)    

Компоненты:

Ссылка
Описание
Ссылка
Описание
Кнопка с текстовым полем Двухцветный прогресс бар
Электронные часы Бегущая строка
Компонент редактирования даты Иконка в трее
Кнопка в стиле XP, Office, и др. TextBox вмещающий более 65КБ текста
Прогресс Бар в классическом стиле Вертикальный лейбл
Кнопка Плейер
Компонент для создания гиперссылок Программное создание иконки NEW!!!
Статья

Есть вопросы относительно статьи, задавайте!

Объект Printer

Visual Basic использует принтер, установленный по умолчанию в операционной системе. Он помогает легко установить его разрешение, свойства шрифтов и т.п.
Сперва рассмотрим команду PrintForm, выводящую на принтер графический образ окна формы. Если в приложении используется несколько форм, то необходимо указать требуемое имя в качестве параметра:

ИмяФормы.PrintForm

Поскольку данная команда выполняет побитовый перенос формы вместе с заголовком и рамкой на принтер, она не обладает достаточной гибкостью. Более того, большинство принтеров обладают большей разрешающей способностью, чем экран компьютера.
Большинство команд принтера в Visual Basic зависят от ориентации страницы. Это означает, что Visual Basic пересчитывает все выводимые символы (фактически точки) перед передачей информации на принтер. Это позволяет полностью управлять внешним видом печатающейся страницы.
Обычный способ для передачи информации на принтер состоит в использовании метода Print, связанного с объектом Printer. Например, поскольку метод Print учитывает ориентацию страницы, можно использовать свойства CurrentX и CurrentY для точного позиционирования текста и даже точек на странице.
Синтаксис команды для вывода текста на печать очень прост:

Printer.Print текст

В данном контексте можно использовать символы ";" и "," таким же образом, как в формах. Точка с запятой подавляет автоматический переход на следующую строку, а запятая осуществляет переход к новой печатной зоне (те же 14 колонок). Функции Tab и Spc работают аналогичным образом.
Управлять свойствами шрифта тоже можно обычным образом. Например:

Printer.Font.Name = "Script" 'Используется индексный шрифт размером 18 пунктов
Printer.Font.Size = 18

Как и в формах, изменения шрифта принтера не влияют на предыдущий текст. Все изменения отражаются только на вновь выводимом тексте.

Полезные свойства и методы для объекта Printer

Если изучить контекстную справку, то можно убедиться в наличии у объекта Printer 40 свойств и 12 методов. Большинство из них еще незнакомы читателю, например, DrawMode. Однако их знание является очень важным в плане работы не только с принтером, но и с формами. Ниже следует краткое описание некоторых наиболее часто используемых свойств и методов объекта Printer. (См. электронную документацию по тем свойствам и методам, которые не описаны здесь, а также документацию по символьным константам, обозначающим различные установки принтеров.)

ColorMode. Позволяет определить тип принтера - цветной он или монохромный. Возможны два значения данного свойства, они приведены в таблице ниже.

Символическая константа Значение
vbPRSMMonochrome 1
vbPRSMColor 2


Copies. Устанавливает количество печатающихся копии.

Height, Width. Возвращают горизонтальный и вертикальный размеры бумаги в принтере, установленном в Windows. Они измеряются в твипсах, если только не установлена другая единица измерения. Данные значения нельзя изменить в период работы программы; они предназначены только для чтения. Они используются, например, для проверки того, переключился ли пользователь на другой размер бумаги, если выводимая информация не умещается на стандартном листе 8,5х11 дюймов. (Для такой страницы Visual Basic выдает значение ширины 12 288 твипсов и высоты - 15 744 твипсов.)

EndDoc. Этот метод сообщает Windows об окончании работы с документом. Его синтаксис следующий:

Printer.EndDoc

Данная строка освобождает память от последних страниц текста и посылает их в Диспетчер Печати Windows на печать.

NewPage. Данный метод завершает текущую страницу и посылает принтеру команду перехода на следующую страницу. Синтаксис:

Printer.NewPage

Page. Это свойство сохраняет количество напечатанных страниц текущего документа. Счетчик начинается с 1 и заканчивается после выполнения операции EndDoc. Он увеличивается на 1 всякий раз при использовании метода NewPage, а также в случаях, когда выводимая информация не вмещается на одну страницу. Обычно его
используют при выводе верхнего колонтитула.

PrintQuality. Используется для установки качества печати, если это поддерживает драйвер принтера. Синтаксис:

Printer. PrintQuality = значение где можно использовать четьгое встпоенные константы, пепечисленные в таблице ниже

Константа Значение Описание
vbPRPQDraft 1 Черновая печать
vbPRPQLow 2 Низкое разрешение
vbPRPQMedium 3 Среднее разрешение
vbPRPQHigh 4 Высокое разрешение


Примечание: Дополнительно можно устанавливать разрешение в точках на дюйм, если принтер (и его драйвер) поддерживают это.

Набор Printers

По определению объект Printer представляет собой текущий принтер Windows. Набор Printers, с другой стороны, позволяет получить доступ ко всем установленным драйверам принтеров в системе (например, это может быть и драйвер факса). Число установленных принтеров можно получить так:

Printers.Count

Доступ к элементу набора осуществляется следующим образом:

Printers {индекс},

где индекс означает число от 0 до Printers.Count - 1.

Примечание: Фактически принтер по умолчанию можно изменить, используя Visual Basic. Это делается при помощи команды Set.

Например, следующий фрагмент кода использует оператор For-Next для проверки каждого принтера системы по признаку цветной/монохромный. (После изучения еще нескольких команд Вы сможете легко добавить сюда несколько строк, чтобы предложить пользователю перейти на цветной принтер.)

For I = 1 То Printers.Count - 1
If Printers(I).ColorMode = vbPRCMColor Then
MsgBox "At least one printer has a color mode"
End If Next I

Примечание: Изменять параметры можно только для текущего принтера системы.

Печать информации в RichTextBox

Метод SelPrint позволяет печатать текущее отформатированное содержимое данного элемента управления на текущий принтер. Если при этом пользователь выделил текст внутри RichTextBox, то метод SelPrint посылает на принтер только выделенный фрагмент. Если текст не выделен, то на принтер посылается все содержимое RichTextBox. Чтобы перевести принтер в состояние готовности (Ready), необходимо послать сперва на него пустую строку. Далее необходимо использовать контекст устройства для текущего принтера. (Контекст устройства представляет собой целое число, которое Windows использует для идентификации объекта.)
Таким образом, пример программы будет выглядеть так:

Printer.Print. " "
RichTextBoxl.SelPrint(Printer.hDC)

(Свойство hDC объекта Printer определяет идентификатор контекста устройства. Он используется Windows для специальных целей и лучше не вникать в то, как он работает.)


Дружественные сайты

http://www.delphi-faq.fatal.ru - Программирование на DELPHI: Вопросы и Ответы читателей; Статьи по программированию на Delphi, других языках программирования, графике (OpenGL/DirectX); Компоненты, Пакеты, Plug-in'ы, Модули для Delphi; Исходники программ, игр; Документация и ссылки на документацию по программированию; Рассылка, в которой каждый программист найдёт что-то полезное!

http://infomania2004.webhost.ru. Этот сайт создан для того, чтобы вы могли получить интересующую вас информацию с минимальными затратами сил и времени. Если вы не нашли здесь нужной информации, оставьте заявку..."

Все о Динамо - www.DinamoMania.ru На этом сайте вы найдете все новости и интервью ВСЕХ видов спорта Динамо. Также на сайте есть таблицы всех видов спорта. Видео и Фото материалы. И все это на одном сайте - www.DinamoMania.ru Это первый и единственный сайт, который освещает все виды одного клуба.

Юмор

- Здравствуйте, это программа "Слабое звено" и я, Мария Киселёва. Сегодня наш спонсор - новое слабительное "Юнимол". И я не успеваю задать вопрос...

(Прислал Андрей Еремин)

***

Любимая стадия алкогольного опьянения: еще могу ходить и говорить - но уже весело.

Наши партнеры
Рассылки Subscribe.Ru
Visual Basic для новичков и профессионалов
Программирование на Delphi

Хотите стать нашим партнером? Пишите сюда.


http://subscribe.ru/
http://subscribe.ru/feedback/
Подписан адрес:
Код этой рассылки: comp.soft.prog.vbforbeginprof
Отписаться

В избранное