home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 25 / CD_ASCQ_25_1095.iso / win / fr / wninova / wnigif / feuille1.frm < prev    next >
Text File  |  1995-08-03  |  3KB  |  113 lines

  1. VERSION 2.00
  2. Begin Form feuille1 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Trait simple fixe
  5.    Caption         =   "DΘmo WNIGIF.VBX"
  6.    ClientHeight    =   7575
  7.    ClientLeft      =   1125
  8.    ClientTop       =   1335
  9.    ClientWidth     =   9615
  10.    ClipControls    =   0   'False
  11.    Height          =   7980
  12.    Left            =   1065
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   7575
  16.    ScaleWidth      =   9615
  17.    Top             =   990
  18.    Width           =   9735
  19.    Begin CommandButton Commande1 
  20.       Cancel          =   -1  'True
  21.       Caption         =   "&Quitter"
  22.       FontBold        =   -1  'True
  23.       FontItalic      =   0   'False
  24.       FontName        =   "MS Sans Serif"
  25.       FontSize        =   9.75
  26.       FontStrikethru  =   0   'False
  27.       FontUnderline   =   0   'False
  28.       Height          =   375
  29.       Index           =   1
  30.       Left            =   8505
  31.       MousePointer    =   10  'FlΦche vers le haut
  32.       TabIndex        =   0
  33.       Top             =   7185
  34.       Width           =   1020
  35.    End
  36.    Begin CommandButton Commande1 
  37.       Caption         =   "&Voir Image 2"
  38.       Default         =   -1  'True
  39.       FontBold        =   -1  'True
  40.       FontItalic      =   0   'False
  41.       FontName        =   "MS Sans Serif"
  42.       FontSize        =   9.75
  43.       FontStrikethru  =   0   'False
  44.       FontUnderline   =   0   'False
  45.       Height          =   375
  46.       Index           =   0
  47.       Left            =   3780
  48.       MousePointer    =   10  'FlΦche vers le haut
  49.       TabIndex        =   1
  50.       Top             =   7170
  51.       Width           =   2535
  52.    End
  53.    Begin WINO_GIFCLASS_GRP2 WINOGif1 
  54.       BackColor       =   &H00C0C0C0&
  55.       DimHauteur      =   0
  56.       DimLargeur      =   0
  57.       Height          =   7200
  58.       Left            =   0
  59.       MousePointer    =   10  'FlΦche vers le haut
  60.       NomFichierGIF   =   ""
  61.       Top             =   0
  62.       Width           =   9600
  63.    End
  64.    Begin Label Etiquette1 
  65.       Alignment       =   2  'CentrΘ
  66.       AutoSize        =   -1  'True
  67.       BackStyle       =   0  'Transparent
  68.       Caption         =   "J'arrive !"
  69.       FontBold        =   -1  'True
  70.       FontItalic      =   0   'False
  71.       FontName        =   "Courier New"
  72.       FontSize        =   24
  73.       FontStrikethru  =   0   'False
  74.       FontUnderline   =   0   'False
  75.       Height          =   540
  76.       Left            =   3390
  77.       TabIndex        =   2
  78.       Top             =   3300
  79.       Width           =   2850
  80.    End
  81. End
  82. Option Explicit
  83. Dim X%
  84.  
  85. Sub Commande1_Click (Index As Integer)
  86.   Select Case Index
  87.     Case 0
  88.       WINOGIF1.Visible = False
  89.       Refresh
  90.       X = X + 1
  91.       If X = 3 Then X = 1
  92.       If X = 1 Then
  93.         WINOGIF1.NomFichierGIF = "WINOGIF1.GIF"
  94.         COmmande1(0).Caption = "&Voir Image 2"
  95.       Else
  96.         WINOGIF1.NomFichierGIF = "WINOGIF2.GIF"
  97.         COmmande1(0).Caption = "&Voir Image 1"
  98.       End If
  99.       WINOGIF1.Visible = True
  100.     Case 1
  101.       End
  102.   End Select
  103.  
  104. End Sub
  105.  
  106. Sub Form_Load ()
  107.    feuille1.Left = (Screen.Width - feuille1.Width) / 2
  108.    feuille1.Top = (Screen.Height - feuille1.Height) / 2
  109.    X = 1
  110.    WINOGIF1.NomFichierGIF = "WINOGIF1.GIF"
  111. End Sub
  112.  
  113.