Windows/FaxThis/FormSend.frm

VERSION 5.00
Begin VB.Form FormSend 
   Caption         =   "Send Fax"
   ClientHeight    =   4710
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7425
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   9.75
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   ScaleHeight     =   4710
   ScaleWidth      =   7425
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton CommandCancel 
      Caption         =   "&Cancel"
      Height          =   405
      Left            =   3690
      TabIndex        =   8
      Top             =   4260
      Width           =   2055
   End
   Begin VB.CommandButton CommandOk 
      Caption         =   "&OK"
      Height          =   405
      Left            =   1620
      TabIndex        =   7
      Top             =   4260
      Width           =   2055
   End
   Begin VB.Frame FrameFrom 
      Caption         =   " From "
      Height          =   2175
      Left            =   660
      TabIndex        =   4
      Top             =   1920
      Width           =   6105
      Begin VB.CheckBox CheckFromFreeUnlock 
         Height          =   240
         Left            =   5700
         TabIndex        =   13
         Top             =   900
         Width           =   180
      End
      Begin VB.TextBox TextFromFree 
         Height          =   1125
         Left            =   2430
         MultiLine       =   -1  'True
         TabIndex        =   12
         Top             =   900
         Width           =   3225
      End
      Begin VB.ComboBox ComboFrom 
         Height          =   360
         Left            =   2430
         TabIndex        =   11
         Top             =   300
         Width           =   3285
      End
      Begin VB.Frame Frame2 
         Height          =   30
         Left            =   150
         TabIndex        =   5
         Top             =   780
         Width           =   5835
      End
      Begin VB.Label LabelFromDepartment 
         Caption         =   "Employee / Department"
         Height          =   285
         Left            =   240
         TabIndex        =   6
         Top             =   360
         Width           =   2115
      End
   End
   Begin VB.Frame FrameTo 
      Caption         =   " To "
      Height          =   1515
      Left            =   660
      TabIndex        =   1
      Top             =   150
      Width           =   6105
      Begin VB.ComboBox ComboAddrEntry 
         Height          =   360
         Left            =   2430
         TabIndex        =   9
         Top             =   300
         Width           =   3285
      End
      Begin VB.Frame FrameLine 
         Height          =   30
         Left            =   150
         TabIndex        =   3
         Top             =   780
         Width           =   5835
      End
      Begin VB.ComboBox ComboFaxNumber 
         Height          =   360
         Left            =   2430
         TabIndex        =   0
         Top             =   960
         Width           =   3285
      End
      Begin VB.Label LabelAddrEntry 
         Caption         =   "Addressbook-Entry"
         Height          =   285
         Left            =   270
         TabIndex        =   10
         Top             =   360
         Width           =   2115
      End
      Begin VB.Label LabelFaxNr 
         Caption         =   "Fax Number"
         Height          =   285
         Left            =   270
         TabIndex        =   2
         Top             =   1020
         Width           =   2115
      End
   End
End
Attribute VB_Name = "FormSend"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub CheckFromFreeUnlock_Click()
    If CheckFromFreeUnlock.Value = CheckBoxConstants.vbChecked Then
        TextFromFree.Enabled = True
    Else
        TextFromFree.Enabled = False
    End If
End Sub

Private Sub Form_Load()
    
    CheckFromFreeUnlock_Click

    Dim args As Variant
    Dim arg1 As String
    args = parseArg
    On Error Resume Next
        arg1 = args(0)
        If Err.Number <> 0 Then
            MsgBox "Please supply filename as argument. This should be a postscript file since it is feeded to gsView / hylafax."
            End
        End If
    On Error GoTo 0
    MsgBox args(0)
End Sub

Private Sub CommandCancel_Click()
    End
End Sub

Private Sub InitForm()
    TextFromFree.Enabled = False
End Sub
1	joko	1.1	VERSION 5.00
2			Begin VB.Form FormSend
3			Caption = "Send Fax"
4			ClientHeight = 4710
5			ClientLeft = 60
6			ClientTop = 345
7			ClientWidth = 7425
8			BeginProperty Font
9			Name = "Tahoma"
10			Size = 9.75
11			Charset = 0
12			Weight = 400
13			Underline = 0 'False
14			Italic = 0 'False
15			Strikethrough = 0 'False
16			EndProperty
17			LinkTopic = "Form1"
18			ScaleHeight = 4710
19			ScaleWidth = 7425
20			StartUpPosition = 3 'Windows Default
21			Begin VB.CommandButton CommandCancel
22			Caption = "&Cancel"
23			Height = 405
24			Left = 3690
25			TabIndex = 8
26			Top = 4260
27			Width = 2055
28			End
29			Begin VB.CommandButton CommandOk
30			Caption = "&OK"
31			Height = 405
32			Left = 1620
33			TabIndex = 7
34			Top = 4260
35			Width = 2055
36			End
37			Begin VB.Frame FrameFrom
38			Caption = " From "
39			Height = 2175
40			Left = 660
41			TabIndex = 4
42			Top = 1920
43			Width = 6105
44			Begin VB.CheckBox CheckFromFreeUnlock
45			Height = 240
46			Left = 5700
47			TabIndex = 13
48			Top = 900
49			Width = 180
50			End
51			Begin VB.TextBox TextFromFree
52			Height = 1125
53			Left = 2430
54			MultiLine = -1 'True
55			TabIndex = 12
56			Top = 900
57			Width = 3225
58			End
59			Begin VB.ComboBox ComboFrom
60			Height = 360
61			Left = 2430
62			TabIndex = 11
63			Top = 300
64			Width = 3285
65			End
66			Begin VB.Frame Frame2
67			Height = 30
68			Left = 150
69			TabIndex = 5
70			Top = 780
71			Width = 5835
72			End
73			Begin VB.Label LabelFromDepartment
74			Caption = "Employee / Department"
75			Height = 285
76			Left = 240
77			TabIndex = 6
78			Top = 360
79			Width = 2115
80			End
81			End
82			Begin VB.Frame FrameTo
83			Caption = " To "
84			Height = 1515
85			Left = 660
86			TabIndex = 1
87			Top = 150
88			Width = 6105
89			Begin VB.ComboBox ComboAddrEntry
90			Height = 360
91			Left = 2430
92			TabIndex = 9
93			Top = 300
94			Width = 3285
95			End
96			Begin VB.Frame FrameLine
97			Height = 30
98			Left = 150
99			TabIndex = 3
100			Top = 780
101			Width = 5835
102			End
103			Begin VB.ComboBox ComboFaxNumber
104			Height = 360
105			Left = 2430
106			TabIndex = 0
107			Top = 960
108			Width = 3285
109			End
110			Begin VB.Label LabelAddrEntry
111			Caption = "Addressbook-Entry"
112			Height = 285
113			Left = 270
114			TabIndex = 10
115			Top = 360
116			Width = 2115
117			End
118			Begin VB.Label LabelFaxNr
119			Caption = "Fax Number"
120			Height = 285
121			Left = 270
122			TabIndex = 2
123			Top = 1020
124			Width = 2115
125			End
126			End
127			End
128			Attribute VB_Name = "FormSend"
129			Attribute VB_GlobalNameSpace = False
130			Attribute VB_Creatable = False
131			Attribute VB_PredeclaredId = True
132			Attribute VB_Exposed = False
133			Option Explicit
134
135			Private Sub CheckFromFreeUnlock_Click()
136			If CheckFromFreeUnlock.Value = CheckBoxConstants.vbChecked Then
137			TextFromFree.Enabled = True
138			Else
139			TextFromFree.Enabled = False
140			End If
141			End Sub
142
143			Private Sub Form_Load()
144
145			CheckFromFreeUnlock_Click
146
147			Dim args As Variant
148			Dim arg1 As String
149			args = parseArg
150			On Error Resume Next
151			arg1 = args(0)
152			If Err.Number <> 0 Then
153			MsgBox "Please supply filename as argument. This should be a postscript file since it is feeded to gsView / hylafax."
154			End
155			End If
156			On Error GoTo 0
157			MsgBox args(0)
158			End Sub
159
160			Private Sub CommandCancel_Click()
161			End
162			End Sub
163
164			Private Sub InitForm()
165			TextFromFree.Enabled = False
166			End Sub
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26