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

  1. VERSION 2.00
  2. Begin Form Fmenu1 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Trait simple fixe
  5.    Caption         =   "DΘmo Bouton 3D (WINO_3DTBNCLASS_GRP2)"
  6.    ClientHeight    =   4785
  7.    ClientLeft      =   2130
  8.    ClientTop       =   1740
  9.    ClientWidth     =   6000
  10.    ClipControls    =   0   'False
  11.    Height          =   5190
  12.    Left            =   2070
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   4785
  16.    ScaleWidth      =   6000
  17.    Top             =   1395
  18.    Width           =   6120
  19.    Begin WINO_3DTXTCLASS_GRP2 WinoTxt3D1 
  20.       BackColor       =   &H00000000&
  21.       BordEpaisseur   =   5
  22.       BordExterieur   =   6  'MontΘ Double
  23.       BordInterieur   =   6  'MontΘ Double
  24.       BordLargeur     =   3
  25.       BordLargeurint  =   3
  26.       Caption         =   "Je suis dΘsolΘ pour vos yeux "
  27.       CaptionAlignV   =   0  'Haut
  28.       CaptionCouleur  =   &H0000FF00&
  29.       FontBold        =   -1  'True
  30.       FontItalic      =   0   'False
  31.       FontName        =   "MS Sans Serif"
  32.       FontSize        =   9.75
  33.       FontStrikethru  =   0   'False
  34.       FontUnderline   =   0   'False
  35.       Height          =   4800
  36.       Left            =   0
  37.       TabIndex        =   0
  38.       Top             =   0
  39.       Width           =   6000
  40.       Begin WINO_3DBTNCLASS_GRP2 Cmd 
  41.          BackColor       =   &H00800000&
  42.          Bitmap3D        =   -1  'True
  43.          BitmapHorz      =   1  'Milieu
  44.          BitmapVert      =   0  'Haut
  45.          Caption         =   "&Quitter"
  46.          CaptionAlignV   =   2  'Bas
  47.          CaptionCouleur  =   &H00FFFF00&
  48.          CaptionEffet3D  =   1  'EnfoncΘ LΘger
  49.          DessineFocus    =   -1  'True
  50.          FontBold        =   -1  'True
  51.          FontItalic      =   0   'False
  52.          FontName        =   "MS Sans Serif"
  53.          FontSize        =   9.75
  54.          FontStrikethru  =   0   'False
  55.          FontUnderline   =   0   'False
  56.          Height          =   1155
  57.          ImageDisable    =   FMENU1.FRX:0000
  58.          ImageDown       =   FMENU1.FRX:030A
  59.          ImageUp         =   FMENU1.FRX:0614
  60.          Index           =   2
  61.          Left            =   2445
  62.          MousePointer    =   10  'FlΦche vers le haut
  63.          Ombrage         =   2  'Ombre Pleine
  64.          OmbreCouleur    =   &H00FF0000&
  65.          OmbreCouleurFond=   &H00000000&
  66.          TabIndex        =   3
  67.          Top             =   3240
  68.          Width           =   1155
  69.       End
  70.       Begin WINO_3DBTNCLASS_GRP2 Cmd 
  71.          BackColor       =   &H00800080&
  72.          Bitmap3D        =   -1  'True
  73.          BitmapEcartement=   5
  74.          Caption         =   "DΘmo Bouton &On/Off"
  75.          CaptionAlignH   =   2  'Droite
  76.          CaptionCouleur  =   &H0000FFFF&
  77.          CaptionEffet3D  =   1  'EnfoncΘ LΘger
  78.          FontBold        =   -1  'True
  79.          FontItalic      =   0   'False
  80.          FontName        =   "MS Sans Serif"
  81.          FontSize        =   9.75
  82.          FontStrikethru  =   0   'False
  83.          FontUnderline   =   0   'False
  84.          Height          =   750
  85.          ImageDown       =   FMENU1.FRX:091E
  86.          ImageUp         =   FMENU1.FRX:0DF8
  87.          Index           =   1
  88.          Left            =   510
  89.          MousePointer    =   10  'FlΦche vers le haut
  90.          Ombrage         =   2  'Ombre Pleine
  91.          OmbreCouleur    =   &H00FF00FF&
  92.          OmbreCouleurFond=   &H00000000&
  93.          OmbreLargeur    =   4
  94.          TabIndex        =   2
  95.          Top             =   2280
  96.          Width           =   5040
  97.       End
  98.       Begin WINO_3DBTNCLASS_GRP2 Cmd 
  99.          BackColor       =   &H00000080&
  100.          BitmapEcartement=   0
  101.          Caption         =   "DΘmo Bouton &Normal"
  102.          CaptionCouleur  =   &H0000FF00&
  103.          CaptionEffet3D  =   1  'EnfoncΘ LΘger
  104.          FontBold        =   -1  'True
  105.          FontItalic      =   0   'False
  106.          FontName        =   "MS Sans Serif"
  107.          FontSize        =   9.75
  108.          FontStrikethru  =   0   'False
  109.          FontUnderline   =   0   'False
  110.          Height          =   750
  111.          Index           =   0
  112.          Left            =   495
  113.          MousePointer    =   10  'FlΦche vers le haut
  114.          Ombrage         =   2  'Ombre Pleine
  115.          OmbreCouleur    =   &H000000FF&
  116.          OmbreCouleurFond=   &H00000000&
  117.          OmbreLargeur    =   4
  118.          TabIndex        =   1
  119.          Top             =   1350
  120.          Width           =   5040
  121.       End
  122.    End
  123. End
  124.  
  125. Sub Cmd_Click (Index As Integer)
  126.   Select Case Index
  127.     Case 0
  128.       FMenu1.WindowState = 1
  129.       FBouton.Show 1
  130.       FMenu1.WindowState = 0
  131.     Case 1
  132.       FMenu1.WindowState = 1
  133.       FBtOnOff.Show 1
  134.       FMenu1.WindowState = 0
  135.     Case 2
  136.       Unload Me
  137.   End Select
  138. End Sub
  139.  
  140. Sub Form_Load ()
  141.   WinoTxt3D1.Top = 0: WinoTxt3D1.Left = 0
  142.   WinoTxt3D1.Width = FMenu1.ScaleWidth
  143.   WinoTxt3D1.Height = FMenu1.ScaleHeight
  144.   Msg = "Je suis dΘsolΘ pour vos yeux !" & LN
  145.   Msg = Msg & "Sinon α part τa, vous pouvez mettre 3 images BMP : " & LN
  146.   Msg = Msg & "une pour bouton enfoncΘ, une pour bouton  remontΘ et une quand le bouton est dΘsactivΘ."
  147.   WinoTxt3D1.Caption = Msg
  148. End Sub
  149.  
  150.