Leaked source code of windows server 2003
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
VERSION 5.00Begin VB.Form DocProperty Caption = "Document Properties" ClientHeight = 9105 ClientLeft = 4650 ClientTop = 825 ClientWidth = 9375 LinkTopic = "Form1" ScaleHeight = 9105 ScaleWidth = 9375 Begin VB.TextBox SenderAddress Height = 405 Left = 6480 TabIndex = 61 Top = 6720 Width = 2415 End Begin VB.Frame Frame1 Caption = "File Name for transmission" Height = 1455 Left = 4800 TabIndex = 57 Top = 5040 Width = 4215 Begin VB.TextBox DisplayName Height = 375 Left = 240 TabIndex = 59 Text = "Display Name" Top = 960 Width = 3615 End Begin VB.TextBox FileName Height = 375 Left = 240 TabIndex = 58 Top = 360 Width = 3615 End End Begin VB.TextBox CoverpageNote Height = 405 Left = 4080 TabIndex = 54 Top = 1800 Width = 4815 End Begin VB.TextBox CoverpageSubject Height = 405 Left = 1200 TabIndex = 53 Top = 1800 Width = 1935 End Begin VB.TextBox EmailAddress Height = 495 Left = 6480 TabIndex = 48 Top = 11880 Width = 2415 End Begin VB.TextBox SenderOfficePhone Height = 495 Left = 6480 TabIndex = 47 Top = 11160 Width = 2415 End Begin VB.TextBox SenderHomePhone Height = 405 Left = 6480 TabIndex = 46 Top = 7680 Width = 2415 End Begin VB.TextBox SenderOffice Height = 375 Left = 6480 TabIndex = 45 Top = 7200 Width = 2415 End Begin VB.CommandButton Cancel Caption = "Cancel" BeginProperty Font Name = "Palatino Linotype" Size = 11.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 4320 TabIndex = 44 Top = 8400 Width = 4695 End Begin VB.CommandButton OK Caption = "OK" BeginProperty Font Name = "Palatino Linotype" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 120 TabIndex = 43 Top = 8400 Width = 3975 End Begin VB.TextBox SenderTitle Height = 495 Left = 1800 TabIndex = 37 Top = 11880 Width = 2535 End Begin VB.TextBox SenderCompany Height = 495 Left = 1800 TabIndex = 36 Top = 11160 Width = 2535 End Begin VB.TextBox SenderDepartment Height = 405 Left = 1800 TabIndex = 35 Top = 7680 Width = 2535 End Begin VB.TextBox SenderNumber Height = 375 Left = 1800 TabIndex = 34 Top = 7200 Width = 2535 End Begin VB.TextBox SenderName Height = 405 Left = 1800 TabIndex = 33 Top = 6720 Width = 2535 End Begin VB.TextBox RecipientCountry Height = 405 Left = 6480 TabIndex = 27 Top = 4440 Width = 2415 End Begin VB.TextBox RecipientZip Height = 405 Left = 6480 TabIndex = 26 Top = 3960 Width = 2415 End Begin VB.TextBox RecipientState Height = 405 Left = 6480 TabIndex = 25 Top = 3480 Width = 2415 End Begin VB.TextBox RecipientCity Height = 405 Left = 6480 TabIndex = 24 Top = 3000 Width = 2415 End Begin VB.TextBox RecipientAddress Height = 405 Left = 6480 TabIndex = 23 Top = 2520 Width = 2415 End Begin VB.TextBox RecipientOffice Height = 405 Left = 1800 TabIndex = 15 Top = 4440 Width = 2535 End Begin VB.TextBox RecipientOfficePhone Height = 405 Left = 1800 TabIndex = 14 Top = 5400 Width = 2535 End Begin VB.TextBox RecipientHomePhone Height = 405 Left = 1800 TabIndex = 13 Top = 4920 Width = 2535 End Begin VB.TextBox RecipientTitle Height = 405 Left = 1800 TabIndex = 12 Top = 3960 Width = 2535 End Begin VB.TextBox RecipientCompany Height = 405 Left = 1800 TabIndex = 11 Top = 3480 Width = 2535 End Begin VB.TextBox RecipientDepartment Height = 405 Left = 1800 TabIndex = 10 Top = 3000 Width = 2535 End Begin VB.TextBox RecipientName Height = 405 Left = 1800 TabIndex = 9 Top = 2520 Width = 2535 End Begin VB.TextBox BillingCode Height = 375 Left = 6720 TabIndex = 7 Top = 960 Width = 2175 End Begin VB.OptionButton SendNow Caption = "Send Immediately" Height = 375 Left = 6960 TabIndex = 6 Top = 240 Width = 1695 End Begin VB.OptionButton DiscountRate Caption = "Discount Rate" Height = 375 Left = 5400 TabIndex = 5 Top = 240 Width = 1455 End Begin VB.TextBox FaxNumber Height = 375 Left = 1800 TabIndex = 3 Top = 240 Width = 3015 End Begin VB.Frame coverpage Caption = "Coverpage" Height = 975 Left = 120 TabIndex = 0 Top = 720 Width = 5055 Begin VB.TextBox CoverpageName Height = 375 Left = 1680 TabIndex = 2 Top = 360 Width = 3015 End Begin VB.CheckBox SendCoverpage Caption = "Cover Page?" Height = 375 Left = 240 TabIndex = 1 Top = 360 Width = 1335 End End Begin VB.Label Label26 Caption = "Email Address :" Height = 375 Left = 5040 TabIndex = 60 Top = 12000 Width = 1215 End Begin VB.Label Label25 Caption = "Note :" Height = 255 Left = 3360 TabIndex = 56 Top = 1920 Width = 615 End Begin VB.Label Label24 Caption = "Subject :" Height = 375 Left = 240 TabIndex = 55 Top = 1920 Width = 855 End Begin VB.Label Label23 Caption = "Sender Office Phone:" Height = 495 Left = 5040 TabIndex = 52 Top = 11160 Width = 1215 End Begin VB.Label Label22 Caption = "Sender Home Phone :" Height = 375 Left = 4800 TabIndex = 51 Top = 7800 Width = 1575 End Begin VB.Label Label21 Caption = "Sender Office :" Height = 255 Left = 4800 TabIndex = 50 Top = 7320 Width = 1575 End Begin VB.Label Label20 Caption = "Sender Address :" Height = 255 Left = 4800 TabIndex = 49 Top = 6840 Width = 1695 End Begin VB.Label Label19 Caption = "Sender Title :" Height = 255 Left = 240 TabIndex = 42 Top = 12000 Width = 1335 End Begin VB.Label Label18 Caption = "Sender Company :" Height = 375 Left = 240 TabIndex = 41 Top = 11280 Width = 1455 End Begin VB.Label Label17 Caption = "Sender Department :" Height = 375 Left = 240 TabIndex = 40 Top = 7800 Width = 1575 End Begin VB.Label Label16 Caption = "Sender Fax Number :" Height = 375 Left = 240 TabIndex = 39 Top = 7320 Width = 1455 End Begin VB.Label Label15 Caption = "Sender Name :" Height = 255 Left = 240 TabIndex = 38 Top = 6840 Width = 1455 End Begin VB.Line Line3 BorderWidth = 5 X1 = 120 X2 = 8880 Y1 = 2400 Y2 = 2400 End Begin VB.Line Line2 BorderWidth = 5 X1 = 0 X2 = 9120 Y1 = 0 Y2 = 0 End Begin VB.Line Line1 BorderWidth = 5 X1 = 360 X2 = 9000 Y1 = 6600 Y2 = 6600 End Begin VB.Label Label14 Caption = "Recipient Country :" Height = 255 Left = 4920 TabIndex = 32 Top = 4560 Width = 1455 End Begin VB.Label Label13 Caption = "Recipient Zip Code :" Height = 375 Left = 4920 TabIndex = 31 Top = 4080 Width = 1455 End Begin VB.Label Label12 Caption = "Recipient State :" Height = 255 Left = 4920 TabIndex = 30 Top = 3600 Width = 1215 End Begin VB.Label Label11 Caption = "Recipient City :" Height = 255 Left = 4920 TabIndex = 29 Top = 3120 Width = 1455 End Begin VB.Label Label10 Caption = "Recipient Address :" Height = 255 Left = 4920 TabIndex = 28 Top = 2640 Width = 1575 End Begin VB.Label Label9 Caption = "Recipient Office Phone :" Height = 495 Left = 240 TabIndex = 22 Top = 5520 Width = 1575 End Begin VB.Label Label8 Caption = "Recipient Home Phone :" Height = 495 Left = 240 TabIndex = 21 Top = 5040 Width = 1335 End Begin VB.Label Label7 Caption = "Recipient Office :" Height = 375 Left = 240 TabIndex = 20 Top = 4560 Width = 1575 End Begin VB.Label Label6 Caption = "Recipient Title: " Height = 255 Left = 240 TabIndex = 19 Top = 4080 Width = 1335 End Begin VB.Label Label5 Caption = "Recipient Company:" Height = 375 Left = 240 TabIndex = 18 Top = 3600 Width = 1455 End Begin VB.Label Label4 Caption = "Recipient Dept:" Height = 255 Left = 240 TabIndex = 17 Top = 3120 Width = 1215 End Begin VB.Label Label3 Caption = "Recipient Name :" Height = 375 Left = 240 TabIndex = 16 Top = 2640 Width = 1335 End Begin VB.Label Label2 Caption = "Billing Code :" Height = 255 Left = 5520 TabIndex = 8 Top = 1080 Width = 1095 End Begin VB.Label Label1 Caption = "Fax Number" Height = 375 Left = 360 TabIndex = 4 Top = 240 Width = 1335 EndEndAttribute VB_Name = "DocProperty"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Cancel_Click() Unload DocPropertyEnd Sub
Private Sub Form_Load() FileName.Text = FaxDocument.FileName DisplayName.Text = FaxDocument.DisplayName FaxNumber.Text = FaxDocument.FaxNumber CoverpageName.Text = FaxDocument.CoverpageName BillingCode.Text = FaxDocument.BillingCode If (FaxDocument.DiscountSend <> False) Then DiscountRate.Value = True SendNow.Value = False Else DiscountRate.Value = False SendNow.Value = True End If If (FaxDocument.SendCoverpage <> False) Then SendCoverpage.Value = 1 Else SendCoverpage.Value = 0 End If EmailAddress.Text = FaxDocument.EmailAddress RecipientName.Text = FaxDocument.RecipientName RecipientCompany.Text = FaxDocument.RecipientCompany RecipientAddress.Text = FaxDocument.RecipientAddress RecipientCity.Text = FaxDocument.RecipientCity RecipientState.Text = FaxDocument.RecipientState RecipientCountry.Text = FaxDocument.RecipientCountry RecipientTitle.Text = FaxDocument.RecipientTitle RecipientZip.Text = FaxDocument.RecipientZip RecipientDepartment.Text = FaxDocument.RecipientDepartment RecipientOffice.Text = FaxDocument.RecipientOffice RecipientHomePhone.Text = FaxDocument.RecipientHomePhone RecipientOfficePhone.Text = FaxDocument.RecipientOfficePhone SenderName.Text = FaxDocument.SenderName SenderCompany.Text = FaxDocument.SenderCompany SenderAddress.Text = FaxDocument.SenderAddress SenderTitle.Text = FaxDocument.SenderTitle SenderDepartment.Text = FaxDocument.SenderDepartment SenderOffice.Text = FaxDocument.SenderOffice SenderHomePhone.Text = FaxDocument.SenderHomePhone SenderOfficePhone.Text = FaxDocument.SenderOfficePhone SenderNumber.Text = FaxDocument.Tsid CoverpageNote.Text = FaxDocument.CoverpageNote CoverpageSubject.Text = FaxDocument.CoverpageSubject End Sub
Private Sub OK_Click() FaxDocument.FileName = FileName.Text FaxDocument.DisplayName = DisplayName.Text FaxDocument.SendCoverpage = SendCoverpage.Value FaxDocument.FaxNumber = FaxNumber.Text FaxDocument.CoverpageName = CoverpageName.Text FaxDocument.BillingCode = BillingCode.Text FaxDocument.DiscountSend = DiscountRate.Value FaxDocument.EmailAddress = EmailAddress.Text FaxDocument.RecipientName = RecipientName.Text FaxDocument.RecipientCompany = RecipientCompany.Text FaxDocument.RecipientAddress = RecipientAddress.Text FaxDocument.RecipientCity = RecipientCity.Text FaxDocument.RecipientState = RecipientState.Text FaxDocument.RecipientCountry = RecipientCountry.Text FaxDocument.RecipientTitle = RecipientTitle.Text FaxDocument.RecipientZip = RecipientZip.Text FaxDocument.RecipientDepartment = RecipientDepartment.Text FaxDocument.RecipientOffice = RecipientOffice.Text FaxDocument.RecipientHomePhone = RecipientHomePhone.Text FaxDocument.RecipientOfficePhone = RecipientOfficePhone.Text FaxDocument.SenderName = SenderName.Text FaxDocument.SenderCompany = SenderCompany.Text FaxDocument.SenderAddress = SenderAddress.Text FaxDocument.SenderTitle = SenderTitle.Text FaxDocument.SenderDepartment = SenderDepartment.Text FaxDocument.SenderOffice = SenderOffice.Text FaxDocument.SenderHomePhone = SenderHomePhone.Text FaxDocument.SenderOfficePhone = SenderOfficePhone.Text FaxDocument.Tsid = SenderNumber.Text FaxDocument.CoverpageNote = CoverpageNote.Text FaxDocument.CoverpageSubject = CoverpageSubject.Text Unload DocPropertyEnd Sub
|
