![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Просмотр результатов
Списки свойств и листинги программ можно включать и в другие документы. Ниже приведен список свойств вместе с текстом программы из урока 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
|