home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 25 / CD_ASCQ_25_1095.iso / win / fr / wninova / wnickbor / fmenu.frm < prev    next >
Text File  |  1995-08-03  |  4KB  |  137 lines
  1. VERSION 2.00
  2. Begin Form FMenu 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Trait double fixe
  5.    Caption         =   "DΘmo WNICKBORD.VBX "
  6.    ClientHeight    =   4710
  7.    ClientLeft      =   1230
  8.    ClientTop       =   1875
  9.    ClientWidth     =   7455
  10.    ClipControls    =   0   'False
  11.    Height          =   5115
  12.    Left            =   1170
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   4710
  16.    ScaleWidth      =   7455
  17.    Top             =   1530
  18.    Width           =   7575
  19.    Begin WINO_BORD3DCLASS_GRP2 Bord3D1 
  20.       BackColor       =   &H00C0C0C0&
  21.       BordAlignement  =   4  'FixΘ en Bas
  22.       BordCouleur     =   0  'GRIS
  23.       BordEnHaut      =   -1  'True
  24.       BordEpaisseur   =   4
  25.       BordInterieur   =   6  'MontΘ Double
  26.       EnfantContour   =   1  'Ombre
  27.       Height          =   945
  28.       Index           =   1
  29.       Left            =   0
  30.       TabIndex        =   1
  31.       Top             =   3765
  32.       Width           =   7455
  33.       Begin CommandButton Cmd 
  34.          Cancel          =   -1  'True
  35.          Caption         =   "&Quitter"
  36.          FontBold        =   -1  'True
  37.          FontItalic      =   0   'False
  38.          FontName        =   "MS Sans Serif"
  39.          FontSize        =   12
  40.          FontStrikethru  =   0   'False
  41.          FontUnderline   =   0   'False
  42.          Height          =   465
  43.          Left            =   2575
  44.          MousePointer    =   10  'FlΦche vers le haut
  45.          TabIndex        =   2
  46.          Top             =   225
  47.          Width           =   2305
  48.       End
  49.    End
  50.    Begin WINO_BORD3DCLASS_GRP2 Bord3D1 
  51.       BackColor       =   &H00C0C0C0&
  52.       BordAlignement  =   3  'FixΘ en Haut
  53.       BordCouleur     =   0  'GRIS
  54.       BordEnHaut      =   -1  'True
  55.       BordEpaisseur   =   5
  56.       CaptionCouleur  =   &H00FF0000&
  57.       CaptionEffet3D  =   1  'EnfoncΘ LΘger
  58.       CaptionTransparent=   -1  'True
  59.       EnfantContour   =   5  'EnfoncΘ Filet Double
  60.       EnfantCouleur   =   &H00FF0000&
  61.       FontBold        =   -1  'True
  62.       FontItalic      =   0   'False
  63.       FontName        =   "Courier New"
  64.       FontSize        =   12
  65.       FontStrikethru  =   0   'False
  66.       FontUnderline   =   0   'False
  67.       Height          =   3765
  68.       Index           =   0
  69.       Left            =   0
  70.       TabIndex        =   0
  71.       Top             =   0
  72.       Width           =   7455
  73.       Begin CommandButton CmdDemo 
  74.          BackColor       =   &H00C0C0C0&
  75.          Caption         =   "DΘmo du Contr⌠le : WINO_&CK3DCLASS_GRP2"
  76.          FontBold        =   -1  'True
  77.          FontItalic      =   0   'False
  78.          FontName        =   "Times New Roman"
  79.          FontSize        =   13.5
  80.          FontStrikethru  =   0   'False
  81.          FontUnderline   =   0   'False
  82.          Height          =   525
  83.          Index           =   1
  84.          Left            =   255
  85.          MousePointer    =   10  'FlΦche vers le haut
  86.          TabIndex        =   4
  87.          Top             =   2745
  88.          Width           =   6945
  89.       End
  90.       Begin CommandButton CmdDemo 
  91.          BackColor       =   &H00C0C0C0&
  92.          Caption         =   "DΘmo du Contr⌠le : WINO_&BORD3DCLASS_GRP2"
  93.          FontBold        =   -1  'True
  94.          FontItalic      =   0   'False
  95.          FontName        =   "Times New Roman"
  96.          FontSize        =   13.5
  97.          FontStrikethru  =   0   'False
  98.          FontUnderline   =   0   'False
  99.          Height          =   525
  100.          Index           =   0
  101.          Left            =   255
  102.          MousePointer    =   10  'FlΦche vers le haut
  103.          TabIndex        =   3
  104.          Top             =   1905
  105.          Width           =   6945
  106.       End
  107.    End
  108. End
  109. Option Explicit
  110.  
  111. Sub Bord3D1_Click (Index As Integer)
  112.   Form_Load
  113. End Sub
  114.  
  115. Sub Cmd_Click ()
  116.   End
  117. End Sub
  118.  
  119. Sub CmdDemo_Click (Index As Integer)
  120.   FMenu.WindowState = 1
  121.   If Index = 0 Then
  122.     FDemoBord.Show 1
  123.   Else
  124.     FDemoCoche.Show 1
  125.   End If
  126. FMenu.WindowState = 0
  127. End Sub
  128.  
  129. Sub Form_Load ()
  130.   Msg = LN & "Dans cette DΘmo, vous avez un apperτu de ce que" & LN
  131.   Msg = Msg & "vous pouvez faire avec les deux contr⌠les de" & LN & "WNICKBOR.VBX"
  132.   
  133.   Bord3D1(0).Caption = Msg
  134.   Call CentrerF(FMenu)
  135. End Sub
  136.  
  137.