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

Программирование на Visual Basic

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Программирование на Visual Basic/Visual Studio и ASP/ASP.NET" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Июль 2003   →
 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
Автор
Сергей

Статистика

6.089 подписчиков
-7 за неделю
←   Все выпуски   →

Программирование на Visual Basic 6.0 в примерах.


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

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

Выпуск – 15: Печать(часть 2)

Периодичность рассылки: каждая суббота или воскресенье

Сайт и архив рассылки: www.symsoft.narod.ru

mailto:  symsoft@narod.ru

Ведущий рассылки: Сёмин Герман Сергеевич aka FerrUM

 

На этом уроке мы продолжим тему принтеров и напишем программу, которая выводит список всех принтеров, установленных на вашем компьютере (или же ничего не выводитJ).

Урок – 15

 “Коллекция Printers”

1.      Создайте новый проект Standard EXE.

2.      Укажите имя проекта PrintersCollection.

3.      Задайте свойству Name формы Form1 значение frmMain, а Caption – Список принтеров.

4.      Щелкните правой кнопкой но панели инструментов и выберите в контекстном меню команду Components

5.      Там будет список, промотайте вниз и поставьте галочку возле строки Microsoft Common Controls 6.0. Нажмите кнопку Применить и OK. (Это окно очень полезно!!! С помощью него можно добавлять новые компоненты на панель инструментов, которые ранее не были доступны).

6.      Создайте на frmMain табличный список (ListView) и задайте его свойству Name – lvwPrinters.

7.      Дважды щёлкните на форме frmMain, чтобы открыть окно программы.

8.      Вставьте в процедуру события Resize  следующий фрагмент:

Private Sub Form_Resize()

lvwrinters.Move 0, 0, ScaleWidth, ScaleHeight ‘Код нужен, чтобы табличный список был ‘расположен по всему объёму формы.

   End Sub

9.      Вставьте в процедуру события Load следующий фрагмент:

Private Sub Form_Load()

Dim p As Printer

Dim x As ListItem

 

With lvwPrinters     ‘With обозначает – работая с ... и начинаем редактировать свойства

.View = lvwReport  ‘Переключаем ListView в таблицу

.ColumnHeaders.Add , , "Принтер” ‘Добавляем столбцы

.ColumnHeaders.Add , , "Драйвер”

.ColumnHeaders.Add , , "Порт"

End With

 

For Each p In Printers

With p

Set x = lvwPrinters.ListItems.Add(, , DeviceName) ‘ Записываем в таблицу имя Принтера(ов)

x.SubItems(1) = .DriverName ‘Название драйвера

        x.SubItems(2) = .Port    ‘ И порт на который установлен принтер

End With

Next

 

End Sub

         10. Сохраните и запустите программу. Она, если у вас установлен принтер, выведет его и его              свойства.

Вот и всё! Программа, которую мы написали – очень полезна при разработке текстовых программ.  Ну а на следующем уроке мы перейдём к графике.

Выпуск – 15: Печать(часть 2)

Периодичность рассылки: каждая суббота или воскресенье

Сайт и архив рассылки: www.symsoft.narod.ru

mailto:  symsoft@narod.ru

Ведущий рассылки: Сёмин Герман Сергеевич aka FerrUM

 

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное