Просмотр результатов

Списки свойств и листинги программ можно включать и в другие документы. Ниже приведен список свойств вместе с текстом программы из урока 5. При этом текст листинга не обязательно набирать заново — можно создать текстовый файл и вставить его в нужный документ. В этом примере я установил режим печати в файл и выбрал драйвер принтера Generic/Text, входящий в состав Windows.

ПОДСКАЗКА Чтобы создать текстовый файл со свойствами и исходными текстами программ проекта, сначала установите драйвер принтера Generic/Text, поставляемый вместе с Windows 95 или NT. При настройке печати выберите вместо порта принтера строку FILE, а затем, после выполнения команды File > Print в Visual Basic, установите флажок Print to File. Полученный текстовый файл можно просмотреть в редакторе WordPad или включить в другой документ.

Ниже приведен исходный текст примера с меню и панелью инструментов из урока 5. Не беспокойтесь, если у вас он будет выглядеть несколько иначе — значения некоторых свойств несущественны.

Form1 - 1

Option Explicit

Private SubmnuFileExit_Click()

End

End Sub

Private Sub tbrToolbar_ButtonClick(ByVal Button As ComctlLib.Button)

Select Case Button.Key

Case Is = "New"

MsgBox "Нажата кнопка New"

Case Is = "Open"

MsgBox "Нажата кнопка Open"

Case Is = "Save"

MsgBox "Нажата кнопка Save"

End Select

End Sub

frmData – 1

VERSION 5.00

Object = "{6B7E6392-850A-101B-AFCO-4210102A8DA7}#1.1#0"; COMCTL32.OCX

Begin VB.Form Form1

Caption = "Form1"

ClientHeight =1572

ClientLeft =3084

ClientTop =2556

ClientWidth =3744

LinkTopic ="Form1"

ScaleHeight =1572

ScaleWidth =3744 Begin ComctlLib.Toolbar tbrToolbar

Align = 1 'Выравнивание по верхнему краю

Height = 336

Left = 0

TabIndex = 0

Top = 0

Width = 3744

_ExtentX = 6604

_ExtentY = 593

ButtonWidth = 487

Appearance = 1

ImageList = "imToolbar"

BeginProperty Buttons {0713E452-850A-101B-AFCO-4210102A8DA7}

NumButtons = 4

BeginProperty Button1 {0713F354-850A-101B-AFCO-4210102A8DA7}

Key = ""

Object.Tag = ""

Style = 3

Value = 1

MixedState = -1 'True

EndProperty

BeginProperty Button2 {0713F354-850A-101B-AFCO-4210102A8DA7}

Key = "New"

Object.Tag =""

ImageIndex = 1

EndProperty

BeginProperty Button3 {0713F354-850A-101B-AFCO-4210102A8DA7}

Key = "Open"

Object.Tag = ""

ImageIndex = 2

EndProperty

BeginProperty Button4 {0713F354-850A-101B-AFCO-4210102A8DA7}

Key = "Save"

Object.Tag =""

ImageIndex =3

EndProperty

EndProperty

MouseIcon = {Binary}

End

Begin ComctlLib.ImageList imlToolbar

Left = 2520

Top = 720

_ExtentX = 804

_ExtentY = 804

BackColor = -21474836643

ImageWidth = 16

ImageHeight = 16

MskColor = 12632256

BeginProperty Images {0713E8C2-850A-101B-AFCO-4210102A8DA7}

NumListImages = 3

BeginProperty ListImage1 {0713E8C3-850A-101B-AFCO-4210102A8DA7}

Picture = {Binary}

Key = ""

frmData - 2

EndProperty

BeginProperty ListImage2 {0713E8C3-850A-101B-AFCO-4210102A8DA7}

Picture = {Binary}

Key = ""

EndProperty

BeginProperty ListImage3 {0713E8C3-850A-101B-AFCO-4210102A8DA7}

Picture = {Binary}

Key = ""

EndProperty

EndProperty

End

Begin VB.Menu mnuFile

Caption = "&File"

Begin VB.Menu mnuFileExit

Caption = "E&xit"

End

End

Begin VB.Menu mnuEdit

Caption = "&Edit"

Begin VB.Menu mnuEditCut

Caption = "Cu&t"

End

Begin VB.Menu mnuEditCopy

Caption = "&Copy"

End

Begin VB.Menu mnuEditPaste

Caption = "&Paste"

End

End

Begin VB.Menu mnuHelp

Caption = "&Help"

Begin VB.Menu mnuHelpAbout

Caption = "&About"

End

End

End

Дата добавления: 2015-07-20