home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code1
/
3d_vb
/
form1.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1995-02-27
|
16KB
|
298 lines
Form1
3-D4VB Sub Routines
Form1%
Picture12
Picture14
Picture8
Timer2
Picture7
Picture9
MultiBar
SingleBar
Timer1
Picture6
Picture13
Picture11
Picture5
Picture10
Picture4
Picture1
Text2
Text2
Text1
Text1
Label1
Label1
Picture3
Picture2
Form_Clickx
Form_MouseUp
Button{
Shift
Form_PaintJ
BorderBox
Text1$
Picture1.
Form_DblClick
FormFrame
Form1
RaisedPicBorder
Picture2
PicBorderJ
PicFrame=
MnuFile_Click&
Form_KeyPressJ
KeyAsciia
RecessedFrame
Picture3
Picture4
RecessedBox/
Picture5
Source1
ScaleHeight
B1Highw
B2High
B2Top
Picture6g
Picture7
ShadowText<
Picture8
GREEN
FALSE
JustyBar_Click
JustyBar_MouseDown8
OrderButtons
ScaleWidth
OldList
ListType
InvList
DateList
CustList@
AmtList
ReverseSort
UpDateRegister^
JustyBar
ttons
Picture9
BLACK
Option1,
WidthS
TLeft
TTop"
TxLeft
TxTopx
JBSelectedo
ButtonMode
Value[
JBLastSelectedV
Option1_Clicke
Index
Jb1Action
JB2Action
JB3Action
JB1Ac
Picture4_Click
Picture4_MouseDown
AutoRedraw
DrawMode
INVERT
Label17
Picture10i
ShadowPicBorder
LabelBoxv
MAGENTA
EtchedBox
EtchedFrame
EtchedTextZ
Currentxe
Currenty
EtchedFrmText
EtchedPicText
LableBox'
EtchedFrmLine
ScaleWidhtQ
LabelInBoxf
RaisedBorderBoxo
EtchedPicBorder
RaisedPicEdge
Picture11
RaisedPicText
Timer1p
Enabled4
Timer1_Timer
Picture13_Click
Multi1Action
Multi2Action>
Multi3Action
MultiBar_ClickT
MultiBar
LastSelecteds
Selected
Action
SingleBar_Click
SingleBar>
SingleBar_MouseDown
MultiBar_MouseDown
routines
Picture12x
Picture12_Click
ShadowPicFrame
Picture12_MouseDown
Picture12_MouseUp
Picture13
FontSize
RaisedFrmText
OldFSE
Picture14
DrawWidth
FillStyle#
WHITE
Fillcolor
OldFB_
FontBold
LableInBox
Label2
Text2^
Picture2_Click
Form2
Caption
FormFram
Picture2_MouseDownp
Picture2_MouseUp
BuildScreen
@ Form_Load
ForeColor
ETCHEDA
NORMAL
RAISED
Form_GotFocusN
Timer24
Text1_Change
Timer2_Timer
Picture1_Click
Picture4_MouseUpM @
Picture11_Click
Picture11_MouseUp
Picture11_MouseDown
Picture
Boxes
appear
frame
controls
Picture15$
LableBoxOnFrm5
LabelBoxOnFrm
ScaleTopq
PicPaint_
Picture8_Click
Picture9_Click
PicFramedPaint
Picture3_Click
Picture3_MouseDown
Picture3_MouseUp
Label1_Click
Form3
Screen
MousePointer
MultiBar_MouseUp
HeightD
Text1_GotFocus
HighlightEntry
Text2_Change
Text2_GotFocus
BuildScreen
FormFrame
BorderBox Places Shadowed Border around Text and Label Controls
suggested from code in Nov./Dec.1991 BASICPro Magazine.
Since labels and text boxes have no print method use this routine
BorderBox
RaisedBorderBox
LabelBox
EtchedFramese
Picture Boxes that appear like frame controls
Left EtchedFrame
Right EtchedFrame
Centered EtchedFrame
PicFrame Picture Border
LabelBox Places "etched" or normal text inside picture controls
PicFrame
EtchedPicBorder
EtchedPicBorder
RaisedPicBorder
RaisedPicBorder
Click ME!
ShadowPicBorder
ShadowPicBorder
RaisedPicEdge
RaisedPicEdge
Click ME!
ShadoPicFrame
ShadowPicFrame
EtchedPicText
Prints "etched" text on control capable of accepting .print methodI
This is EtchedPicText
RaisedPicText
This is RaisedPicText
EtchedFrmText
Prints "etched" text on form background
This is EtchedFrmText
NO DLL, ALL VB SOURCE CODE PROVIDED!
FormFrame
RaisedFrmText
3-D Effects
EtchedFrmLine
works like the .Line method but creates etched look
ffffff
ffffff
EtchedFrmLine
ffffff
LabelInBox
LeftTop
LeftMiddle
LeftBottom
CntrTop
CntrBottom
TRight
MRight
BRight
Example of Selection "Buttons" made from simple Picture controls,
Examine SingleBar_MouseDown() and MultiBar_MouseDown() routines
Be sure to define picture box with AutoSize = TRUE and DrawMode = INVERT%
Picture Buttons
Single Option
Multiple Options
Form_Load
MultiBar_MouseDown
number of icons
DO Action
Do Action
Do Action
Some Action...
MultiBar_MouseDown()$
Picture11_Click
Picture11_Click()
Picture11_MouseDown
Picture11_MouseDown()
Picture11_MouseUp
Picture11_MouseUp()
Picture12_Click
Picture12_MouseDown
Picture12_MouseUp
Picture3_MouseDown
Picture3_MouseUp
Picture4_Click
Picture4_MouseDown
Picture4_MouseUp
SingleBar_MouseDown
number of icons
DO Action
Do Action
Do Action
Some Action...
Text1_GotFocus
Text2_GotFocus
Timer1_Timer
Timer2_Timer
Set initial value for Singe Mode button bar
number of icons