home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 25 / CD_ASCQ_25_1095.iso / win / fr / wninova / wnitxtbt / fmenu.frm < prev    next >
Text File  |  1995-08-03  |  5KB  |  164 lines
  1. VERSION 2.00
  2. Begin Form FMenu 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Trait double fixe
  5.    Caption         =   "Feuille1"
  6.    ClientHeight    =   4515
  7.    ClientLeft      =   1770
  8.    ClientTop       =   1590
  9.    ClientWidth     =   6975
  10.    ClipControls    =   0   'False
  11.    Height          =   4920
  12.    Left            =   1710
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   4515
  16.    ScaleWidth      =   6975
  17.    Top             =   1245
  18.    Width           =   7095
  19.    Begin WINO_3DTXTCLASS_GRP2 WinoTxt3D1 
  20.       BackColor       =   &H00C0C0C0&
  21.       BordEpaisseur   =   3
  22.       BordExterieur   =   5  'MontΘ
  23.       BordInterieur   =   2  'EnfoncΘ Double
  24.       BordLargeurint  =   1
  25.       Caption         =   "EvTexteLite1"
  26.       CaptionAlignH   =   0  'Gauche
  27.       CaptionCouleur  =   &H00FF0000&
  28.       CaptionEffet3D  =   1  'EnfoncΘ LΘger
  29.       FontBold        =   -1  'True
  30.       FontItalic      =   0   'False
  31.       FontName        =   "Courier New"
  32.       FontSize        =   12
  33.       FontStrikethru  =   0   'False
  34.       FontUnderline   =   0   'False
  35.       Height          =   4530
  36.       Left            =   0
  37.       TabIndex        =   0
  38.       Top             =   -15
  39.       Width           =   6990
  40.       Begin WINO_3DBTNCLASS_GRP2 Bouton1 
  41.          BackColor       =   &H00C0C0C0&
  42.          Bitmap3D        =   -1  'True
  43.          BitmapEcartement=   5
  44.          Caption         =   "DΘmo &Bouton 3D"
  45.          CaptionAlignH   =   2  'Droite
  46.          CaptionEffet3D  =   1  'EnfoncΘ LΘger
  47.          DessineFocus    =   -1  'True
  48.          FontBold        =   -1  'True
  49.          FontItalic      =   0   'False
  50.          FontName        =   "MS Sans Serif"
  51.          FontSize        =   9.75
  52.          FontStrikethru  =   0   'False
  53.          FontUnderline   =   0   'False
  54.          Height          =   765
  55.          ImageDisable    =   FMENU.FRX:0000
  56.          ImageDown       =   FMENU.FRX:023A
  57.          ImageUp         =   FMENU.FRX:0474
  58.          Index           =   0
  59.          Left            =   280
  60.          MousePointer    =   10  'FlΦche vers le haut
  61.          Ombrage         =   2  'Ombre Pleine
  62.          TabIndex        =   1
  63.          Top             =   2895
  64.          Width           =   3110
  65.       End
  66.       Begin WINO_3DBTNCLASS_GRP2 Bouton2 
  67.          Autosize        =   2  'Taille Bitmap
  68.          BackColor       =   &H00C0C0C0&
  69.          DessineFocus    =   -1  'True
  70.          Height          =   660
  71.          ImageDisable    =   FMENU.FRX:06AE
  72.          ImageDown       =   FMENU.FRX:09B8
  73.          ImageUp         =   FMENU.FRX:0CC2
  74.          Left            =   3240
  75.          MousePointer    =   10  'FlΦche vers le haut
  76.          Ombrage         =   2  'Ombre Pleine
  77.          TabIndex        =   3
  78.          TexteImage      =   0   'False
  79.          Top             =   3720
  80.          Width           =   510
  81.       End
  82.       Begin WINO_3DBTNCLASS_GRP2 Bouton1 
  83.          BackColor       =   &H00C0C0C0&
  84.          Bitmap3D        =   -1  'True
  85.          BitmapEcartement=   5
  86.          Caption         =   "DΘmo &Etiquette 3D"
  87.          CaptionAlignH   =   2  'Droite
  88.          CaptionEffet3D  =   1  'EnfoncΘ LΘger
  89.          DessineFocus    =   -1  'True
  90.          FontBold        =   -1  'True
  91.          FontItalic      =   0   'False
  92.          FontName        =   "MS Sans Serif"
  93.          FontSize        =   9.75
  94.          FontStrikethru  =   0   'False
  95.          FontUnderline   =   0   'False
  96.          Height          =   765
  97.          ImageDisable    =   FMENU.FRX:0FCC
  98.          ImageDown       =   FMENU.FRX:1206
  99.          ImageUp         =   FMENU.FRX:1440
  100.          Index           =   1
  101.          Left            =   3625
  102.          MousePointer    =   10  'FlΦche vers le haut
  103.          Ombrage         =   2  'Ombre Pleine
  104.          TabIndex        =   2
  105.          Top             =   2895
  106.          Width           =   3110
  107.       End
  108.       Begin PictureBox Image1 
  109.          AutoSize        =   -1  'True
  110.          BackColor       =   &H00C0C0C0&
  111.          BorderStyle     =   0  'Aucun
  112.          ClipControls    =   0   'False
  113.          Height          =   1020
  114.          Left            =   2985
  115.          Picture         =   FMENU.FRX:167A
  116.          ScaleHeight     =   1020
  117.          ScaleWidth      =   1020
  118.          TabIndex        =   4
  119.          TabStop         =   0   'False
  120.          Top             =   165
  121.          Width           =   1020
  122.       End
  123.    End
  124. End
  125. Option Explicit
  126.  
  127. Sub Bouton1_Click (Index As Integer)
  128.    FMenu.WindowState = 1
  129.    If Index = 0 Then
  130.     FMenu1.Show 1
  131.    Else
  132.     FTxt3D.Show 1
  133.    End If
  134.    FMenu.WindowState = 0
  135. End Sub
  136.  
  137. Sub Bouton1_GotFocus (Index As Integer)
  138.   Bouton1(Index).CaptionCouleur = QBColor(9)
  139. End Sub
  140.  
  141. Sub Bouton1_LostFocus (Index As Integer)
  142.   Bouton1(Index).CaptionCouleur = QBColor(0)
  143. End Sub
  144.  
  145. Sub Bouton2_Click ()
  146.   End
  147. End Sub
  148.  
  149. Sub Form_Load ()
  150.   FMenu.Caption = "DΘmo ShareWare ""WNITXTBT.VBX"""
  151.   WInoTxt3D1.Top = 0: WInoTxt3D1.Left = 0
  152.   WInoTxt3D1.Width = FMenu.ScaleWidth
  153.   WInoTxt3D1.Height = FMenu.ScaleHeight
  154.   Msg = " Nous allons vous montrer quelques exemples" & LN & "  d'utilisation de ""WNITXTBT.VBX""." & LN
  155.   Msg = Msg & "  Nous espΘrons que cela rΘpond α vos besoins"
  156.   WInoTxt3D1.Caption = Msg
  157.   Call CentrerF(FMenu)
  158. End Sub
  159.  
  160. Sub Form_Unload (Cancel As Integer)
  161.   End
  162. End Sub
  163.  
  164.