home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 25
/
CD_ASCQ_25_1095.iso
/
win
/
fr
/
wninova
/
wnigif
/
feuille1.frm
< prev
next >
Wrap
Text File
|
1995-08-03
|
3KB
|
113 lines
VERSION 2.00
Begin Form feuille1
BackColor = &H00C0C0C0&
BorderStyle = 1 'Trait simple fixe
Caption = "DΘmo WNIGIF.VBX"
ClientHeight = 7575
ClientLeft = 1125
ClientTop = 1335
ClientWidth = 9615
ClipControls = 0 'False
Height = 7980
Left = 1065
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 7575
ScaleWidth = 9615
Top = 990
Width = 9735
Begin CommandButton Commande1
Cancel = -1 'True
Caption = "&Quitter"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 375
Index = 1
Left = 8505
MousePointer = 10 'FlΦche vers le haut
TabIndex = 0
Top = 7185
Width = 1020
End
Begin CommandButton Commande1
Caption = "&Voir Image 2"
Default = -1 'True
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 375
Index = 0
Left = 3780
MousePointer = 10 'FlΦche vers le haut
TabIndex = 1
Top = 7170
Width = 2535
End
Begin WINO_GIFCLASS_GRP2 WINOGif1
BackColor = &H00C0C0C0&
DimHauteur = 0
DimLargeur = 0
Height = 7200
Left = 0
MousePointer = 10 'FlΦche vers le haut
NomFichierGIF = ""
Top = 0
Width = 9600
End
Begin Label Etiquette1
Alignment = 2 'CentrΘ
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "J'arrive !"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Courier New"
FontSize = 24
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 540
Left = 3390
TabIndex = 2
Top = 3300
Width = 2850
End
End
Option Explicit
Dim X%
Sub Commande1_Click (Index As Integer)
Select Case Index
Case 0
WINOGIF1.Visible = False
Refresh
X = X + 1
If X = 3 Then X = 1
If X = 1 Then
WINOGIF1.NomFichierGIF = "WINOGIF1.GIF"
COmmande1(0).Caption = "&Voir Image 2"
Else
WINOGIF1.NomFichierGIF = "WINOGIF2.GIF"
COmmande1(0).Caption = "&Voir Image 1"
End If
WINOGIF1.Visible = True
Case 1
End
End Select
End Sub
Sub Form_Load ()
feuille1.Left = (Screen.Width - feuille1.Width) / 2
feuille1.Top = (Screen.Height - feuille1.Height) / 2
X = 1
WINOGIF1.NomFichierGIF = "WINOGIF1.GIF"
End Sub