home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code1
/
env_prn
/
hpenv.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1991-08-23
|
14KB
|
278 lines
Form1
Envelope Printer
wwwwwwwwwwwwww
Form1-
No Return Address
Picture1
Label2
Label1
Addresse1
Addresse2
Addresse3
PrintButton
&Print
Addresse4
Command2
&Clear
Addresse5
Addresse6
PrinterLabel
ByeBye
&Quit
RAMenu
&Return Address
SelectPrinter
&Select Printer
HPSelect
&HP Laserjet
F IBMSelect
&IBM ProPrinter
PrintPrt
Printer Port
Port1
Port2
AboutBox
&About
address1
address2K
address3X
address4e
address5r
address6Z
Raddress1
Raddress2
Raddress3
Raddress4
Printbutton_click>
RTaddress1
addresse
text(
addresseez
form1
text1]
Addresse1|
Addresse2
Addresse3
Addresse4
Addresse5n
Addresse6
TheMessage
TheStyleq
TheTitle
TheAnswer
Addresse1_Change
Addresse1_KeyPressH
keyascii
Addresse2_Change,
Addresse2_KeyPressB
Addresse3_ChangeV
Addresse3_KeyPressl
Addresse4_Change
Addresse4_KeyPress
Addresse5_Change
Addresse5_KeyPress
Addresse6_Change
Addresse1_KeyDown
KeyCode
Shifte
KEY_DOWN
KeyColde
sendkey
KEY_UP
Addresse2_KeyDown2
Addresse3_KeyDownG
Addresse4_KeyDown\
Addresse5_KeyDown
Addresse6_KeyDown
done2
done3
done4
done5
done6
PrintButton_KeyDownJ
done7
Addresse1_GotFocus
backcolor
Addresse2_GotFocus
Addresse3_GotFocus#
Addresse4_GotFocus9
Addresse5_GotFocusO
Addresse6_GotFocus
Addresse6_KeyPress
Addresse1_LinkClose
Addresse1_LinkError
LinkErrc
Addresse1_LinkOpen
Cancel
Addresse1_LostFocus
Addresse2_LostFocus
Addresse3_LostFocus
Addresse4_LostFocus1
Addresse5_LostFocusl
Addresse6_LostFocusw
Command1_Click
Command1_KeyDown
done8
Command2_Click
Printit_Click7
ByeBye_Click
Form_ClickW
AboutBox_Click
RAMenu_Click!
Raddress
Caption(
UseRa
Addressee2/
Command2_KeyDown
done9
clearem
R1_Click
R2_Click
R3_Click
R4_ClickP
Picture1_Click
HPSelect_Click
IBMSelect_Click
PrinterLabelB
Form_Load
LaserJet
compatible
envelope
First
Printer
dohp{
Port1_Click
PrinterPort
Port2_Click
PrinterLabel_Click
WhichPrinter
HpSelect
checked
IBMSelect
Port1
Port2
Printbutton_click
Put Envelope in Slot. Click OK to Print.
MsgBox Editor"
Answered OK
*p1800X"
*p1150Y"
*p1800X"
*p1200Y"
*p1800X"
*p1250Y"
*p1800X"
*p1300Y"
*p1800X"
*p1350Y"
*p700X
*p1450Y"
*p490X
*p625Y
*p490X
*p675Y
*p490X
*p725Y
*p490X
*p775Y
\dev\lpt1"
\dev\lpt2"
Answered CancelC
End If
Addresse1_KeyPress
{TAB}"
Addresse2_KeyPress
{TAB}"
Addresse3_KeyPress
{TAB}"
Addresse4_KeyPress
{TAB}"
Addresse5_KeyPress
{TAB}"
Addresse1_KeyDown
{TAB}"
+({TAB})
Addresse2_KeyDown
{TAB}"
+({TAB})
Addresse3_KeyDown
{TAB}"
+({TAB})
Addresse4_KeyDown
{TAB}"
+({TAB})
Addresse5_KeyDown
{TAB}"
+({TAB})
Addresse6_KeyDown
{TAB}"
SendKeys "({TAB})"
+({TAB})
PrintButton_KeyDown
{TAB}"
+({TAB})
Addresse1_GotFocus
Addresse2_GotFocus
Addresse3_GotFocus
Addresse4_GotFocus
Addresse5_GotFocus
Addresse6_GotFocus
Addresse6_KeyPress
Addresse1_LostFocus
Addresse2_LostFocus
Addresse3_LostFocus
Addresse4_LostFocus
Addresse5_LostFocus
Addresse6_LostFocus
Command1_Click
Click OK to Exit."
HP Envelope Printer"
Answered OK
Answered Canceld
Command1_KeyDown
{TAB}"
SendKeys "({TAB})"
+({TAB})
Command2_Click
Erase Address Information?
MsgBox Editor"
Answered Yes
Answered Now
Printit_Click
ByeBye_Click
Click OK to Exit."
HP Envelope Printer"
Answered OK
AboutBox_Click
HP Envelope Printer"
1991 Federal Hill Software"
This little utility prints a standard"
No. 10 envelope on an"
HP LaserJet II or IBM ProPrinter."
First, Select Your Printer."
Then fill in the address boxes and click Print."
No fuss, no muss, no sticky mess. Enjoy!
HP Envelope Printer"
RAMenu_Click
Command2_KeyDown
{TAB}"
Addresse1.SetFocus
GoTo done9
(+{TAB})
clearem
R1_Click
R2_Click
R3_Click
R4_Click
Picture1_Click
It's Your Flag."
Fly it Proudly!"
HPSelect_Click
HP LaserJet/LPT"
IBMSelect_Click
IBM ProPrinter/LPT
Form_Load
HP LaserJet/LPT1
Port1_Click
Port2_Click