home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 25
/
CD_ASCQ_25_1095.iso
/
win
/
fr
/
wninova
/
wnitxtbt
/
fmenu1.frm
< prev
next >
Wrap
Text File
|
1995-08-03
|
5KB
|
150 lines
VERSION 2.00
Begin Form Fmenu1
BackColor = &H00C0C0C0&
BorderStyle = 1 'Trait simple fixe
Caption = "DΘmo Bouton 3D (WINO_3DTBNCLASS_GRP2)"
ClientHeight = 4785
ClientLeft = 2130
ClientTop = 1740
ClientWidth = 6000
ClipControls = 0 'False
Height = 5190
Left = 2070
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4785
ScaleWidth = 6000
Top = 1395
Width = 6120
Begin WINO_3DTXTCLASS_GRP2 WinoTxt3D1
BackColor = &H00000000&
BordEpaisseur = 5
BordExterieur = 6 'MontΘ Double
BordInterieur = 6 'MontΘ Double
BordLargeur = 3
BordLargeurint = 3
Caption = "Je suis dΘsolΘ pour vos yeux "
CaptionAlignV = 0 'Haut
CaptionCouleur = &H0000FF00&
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 4800
Left = 0
TabIndex = 0
Top = 0
Width = 6000
Begin WINO_3DBTNCLASS_GRP2 Cmd
BackColor = &H00800000&
Bitmap3D = -1 'True
BitmapHorz = 1 'Milieu
BitmapVert = 0 'Haut
Caption = "&Quitter"
CaptionAlignV = 2 'Bas
CaptionCouleur = &H00FFFF00&
CaptionEffet3D = 1 'EnfoncΘ LΘger
DessineFocus = -1 'True
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 1155
ImageDisable = FMENU1.FRX:0000
ImageDown = FMENU1.FRX:030A
ImageUp = FMENU1.FRX:0614
Index = 2
Left = 2445
MousePointer = 10 'FlΦche vers le haut
Ombrage = 2 'Ombre Pleine
OmbreCouleur = &H00FF0000&
OmbreCouleurFond= &H00000000&
TabIndex = 3
Top = 3240
Width = 1155
End
Begin WINO_3DBTNCLASS_GRP2 Cmd
BackColor = &H00800080&
Bitmap3D = -1 'True
BitmapEcartement= 5
Caption = "DΘmo Bouton &On/Off"
CaptionAlignH = 2 'Droite
CaptionCouleur = &H0000FFFF&
CaptionEffet3D = 1 'EnfoncΘ LΘger
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 750
ImageDown = FMENU1.FRX:091E
ImageUp = FMENU1.FRX:0DF8
Index = 1
Left = 510
MousePointer = 10 'FlΦche vers le haut
Ombrage = 2 'Ombre Pleine
OmbreCouleur = &H00FF00FF&
OmbreCouleurFond= &H00000000&
OmbreLargeur = 4
TabIndex = 2
Top = 2280
Width = 5040
End
Begin WINO_3DBTNCLASS_GRP2 Cmd
BackColor = &H00000080&
BitmapEcartement= 0
Caption = "DΘmo Bouton &Normal"
CaptionCouleur = &H0000FF00&
CaptionEffet3D = 1 'EnfoncΘ LΘger
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 750
Index = 0
Left = 495
MousePointer = 10 'FlΦche vers le haut
Ombrage = 2 'Ombre Pleine
OmbreCouleur = &H000000FF&
OmbreCouleurFond= &H00000000&
OmbreLargeur = 4
TabIndex = 1
Top = 1350
Width = 5040
End
End
End
Sub Cmd_Click (Index As Integer)
Select Case Index
Case 0
FMenu1.WindowState = 1
FBouton.Show 1
FMenu1.WindowState = 0
Case 1
FMenu1.WindowState = 1
FBtOnOff.Show 1
FMenu1.WindowState = 0
Case 2
Unload Me
End Select
End Sub
Sub Form_Load ()
WinoTxt3D1.Top = 0: WinoTxt3D1.Left = 0
WinoTxt3D1.Width = FMenu1.ScaleWidth
WinoTxt3D1.Height = FMenu1.ScaleHeight
Msg = "Je suis dΘsolΘ pour vos yeux !" & LN
Msg = Msg & "Sinon α part τa, vous pouvez mettre 3 images BMP : " & LN
Msg = Msg & "une pour bouton enfoncΘ, une pour bouton remontΘ et une quand le bouton est dΘsactivΘ."
WinoTxt3D1.Caption = Msg
End Sub