archive
/
windows-xp
mirror of https://github.com/tongzx/nt5src
2
0
Fork 0
Code Issues Projects Releases Wiki Activity
Source code of Windows XP (NT5)
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.
9 Commits
1 Branch
0 Tags
2.0 GiB
 
 
 
 
 
 
Tree: 75c48ba87f
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '75c48ba87f'
${ noResults }
windows-xp/Source/XPSP1/NT/printscan/fax/activefax/vbtest/docprop.frm

600 lines
18 KiB
Raw Blame History

VERSION 5.00
Begin VB.Form DocProperty
Caption = "Document Properties"
ClientHeight = 13485
ClientLeft = 4650
ClientTop = 825
ClientWidth = 9375
LinkTopic = "Form1"
ScaleHeight = 13485
ScaleWidth = 9375
Begin VB.TextBox SenderAddress
Height = 495
Left = 6480
TabIndex = 61
Top = 9000
Width = 2415
End
Begin VB.Frame Frame1
Caption = "File Name for transmission"
Height = 1455
Left = 4800
TabIndex = 57
Top = 6960
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 = 495
Left = 4080
TabIndex = 54
Top = 2280
Width = 4815
End
Begin VB.TextBox CoverpageSubject
Height = 495
Left = 1200
TabIndex = 53
Top = 2280
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 = 495
Left = 6480
TabIndex = 46
Top = 10440
Width = 2415
End
Begin VB.TextBox SenderOffice
Height = 495
Left = 6480
TabIndex = 45
Top = 9720
Width = 2415
End
Begin VB.CommandButton Cancel
Caption = "Cancel"
Height = 615
Left = 5423
TabIndex = 44
Top = 12600
Width = 1455
End
Begin VB.CommandButton OK
Caption = "OK"
Height = 615
Left = 3263
TabIndex = 43
Top = 12600
Width = 1575
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 = 495
Left = 1800
TabIndex = 35
Top = 10440
Width = 2535
End
Begin VB.TextBox SenderNumber
Height = 495
Left = 1800
TabIndex = 34
Top = 9720
Width = 2535
End
Begin VB.TextBox SenderName
Height = 495
Left = 1800
TabIndex = 33
Top = 9000
Width = 2535
End
Begin VB.TextBox RecipientCountry
Height = 495
Left = 6480
TabIndex = 27
Top = 6120
Width = 2415
End
Begin VB.TextBox RecipientZip
Height = 495
Left = 6480
TabIndex = 26
Top = 5400
Width = 2415
End
Begin VB.TextBox RecipientState
Height = 495
Left = 6480
TabIndex = 25
Top = 4680
Width = 2415
End
Begin VB.TextBox RecipientCity
Height = 495
Left = 6480
TabIndex = 24
Top = 3960
Width = 2415
End
Begin VB.TextBox RecipientAddress
Height = 495
Left = 6480
TabIndex = 23
Top = 3240
Width = 2415
End
Begin VB.TextBox RecipientOffice
Height = 495
Left = 1800
TabIndex = 15
Top = 6120
Width = 2535
End
Begin VB.TextBox RecipientOfficePhone
Height = 495
Left = 1800
TabIndex = 14
Top = 7680
Width = 2535
End
Begin VB.TextBox RecipientHomePhone
Height = 495
Left = 1800
TabIndex = 13
Top = 6840
Width = 2535
End
Begin VB.TextBox RecipientTitle
Height = 495
Left = 1800
TabIndex = 12
Top = 5400
Width = 2535
End
Begin VB.TextBox RecipientCompany
Height = 495
Left = 1800
TabIndex = 11
Top = 4680
Width = 2535
End
Begin VB.TextBox RecipientDepartment
Height = 495
Left = 1800
TabIndex = 10
Top = 3960
Width = 2535
End
Begin VB.TextBox RecipientName
Height = 495
Left = 1800
TabIndex = 9
Top = 3240
Width = 2535
End
Begin VB.TextBox BillingCode
Height = 495
Left = 6720
TabIndex = 7
Top = 1320
Width = 2175
End
Begin VB.OptionButton SendNow
Caption = "Send Immediately"
Height = 615
Left = 6960
TabIndex = 6
Top = 240
Width = 1695
End
Begin VB.OptionButton DiscountRate
Caption = "Discount Rate"
Height = 615
Left = 5400
TabIndex = 5
Top = 240
Width = 1455
End
Begin VB.TextBox FaxNumber
Height = 495
Left = 1800
TabIndex = 3
Top = 240
Width = 3015
End
Begin VB.Frame coverpage
Caption = "Coverpage"
Height = 1095
Left = 120
TabIndex = 0
Top = 960
Width = 5055
Begin VB.TextBox CoverpageName
Height = 495
Left = 1680
TabIndex = 2
Top = 360
Width = 3015
End
Begin VB.CheckBox SendCoverpage
Caption = "Cover Page?"
Height = 375
Left = 240
TabIndex = 1
Top = 480
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 = 2400
Width = 615
End
Begin VB.Label Label24
Caption = "Subject :"
Height = 375
Left = 240
TabIndex = 55
Top = 2400
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 = 5040
TabIndex = 51
Top = 10440
Width = 1335
End
Begin VB.Label Label21
Caption = "Sender Office :"
Height = 255
Left = 5040
TabIndex = 50
Top = 9840
Width = 1335
End
Begin VB.Label Label20
Caption = "Sender Address :"
Height = 375
Left = 5040
TabIndex = 49
Top = 9240
Width = 1455
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 = 495
Left = 240
TabIndex = 40
Top = 10560
Width = 1335
End
Begin VB.Label Label16
Caption = "Sender Fax Number :"
Height = 375
Left = 240
TabIndex = 39
Top = 9840
Width = 1335
End
Begin VB.Label Label15
Caption = "Sender Name :"
Height = 255
Left = 240
TabIndex = 38
Top = 9120
Width = 1455
End
Begin VB.Line Line3
BorderWidth = 5
X1 = 240
X2 = 9000
Y1 = 3000
Y2 = 3000
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 = 8640
Y2 = 8640
End
Begin VB.Label Label14
Caption = "Recipient Country :"
Height = 255
Left = 4920
TabIndex = 32
Top = 6240
Width = 1455
End
Begin VB.Label Label13
Caption = "Recipient Zip Code :"
Height = 375
Left = 4920
TabIndex = 31
Top = 5520
Width = 1455
End
Begin VB.Label Label12
Caption = "Recipient State :"
Height = 255
Left = 4920
TabIndex = 30
Top = 4800
Width = 1215
End
Begin VB.Label Label11
Caption = "Recipient City :"
Height = 255
Left = 4920
TabIndex = 29
Top = 4080
Width = 1455
End
Begin VB.Label Label10
Caption = "Recipient Address :"
Height = 255
Left = 4920
TabIndex = 28
Top = 3360
Width = 1575
End
Begin VB.Label Label9
Caption = "Recipient Office Phone :"
Height = 495
Left = 240
TabIndex = 22
Top = 7800
Width = 1575
End
Begin VB.Label Label8
Caption = "Recipient Home Phone :"
Height = 495
Left = 240
TabIndex = 21
Top = 6960
Width = 1335
End
Begin VB.Label Label7
Caption = "Recipient Office :"
Height = 375
Left = 240
TabIndex = 20
Top = 6240
Width = 1575
End
Begin VB.Label Label6
Caption = "Recipient Title: "
Height = 255
Left = 240
TabIndex = 19
Top = 5520
Width = 1335
End
Begin VB.Label Label5
Caption = "Recipient Company:"
Height = 375
Left = 240
TabIndex = 18
Top = 4800
Width = 1455
End
Begin VB.Label Label4
Caption = "Recipient Dept:"
Height = 255
Left = 240
TabIndex = 17
Top = 4080
Width = 1215
End
Begin VB.Label Label3
Caption = "Recipient Name :"
Height = 375
Left = 240
TabIndex = 16
Top = 3360
Width = 1335
End
Begin VB.Label Label2
Caption = "Billing Code :"
Height = 375
Left = 5520
TabIndex = 8
Top = 1440
Width = 1095
End
Begin VB.Label Label1
Caption = "Fax Number"
Height = 375
Left = 360
TabIndex = 4
Top = 360
Width = 1335
End
End
Attribute VB_Name = "DocProperty"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Cancel_Click()
Unload DocProperty
End 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 DocProperty
End Sub