home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 25 / CD_ASCQ_25_1095.iso / win / fr / wninova / wnitxtbt / fbtonoff.frm < prev    next >
Text File  |  1995-08-03  |  11KB  |  296 lines
  1. VERSION 2.00
  2. Begin Form FBtOnOff 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Trait double fixe
  5.    Caption         =   "DΘmo Bouton 3D On/Off (WINO_3DBTNCLASS_GRP2)"
  6.    ClientHeight    =   5310
  7.    ClientLeft      =   795
  8.    ClientTop       =   2010
  9.    ClientWidth     =   8565
  10.    ClipControls    =   0   'False
  11.    ForeColor       =   &H00000000&
  12.    Height          =   5715
  13.    Left            =   735
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   5310
  17.    ScaleWidth      =   8565
  18.    Top             =   1665
  19.    Width           =   8685
  20.    Begin WINO_3DTXTCLASS_GRP2 WinoTxt3D1 
  21.       BackColor       =   &H00C0C0C0&
  22.       BordEpaisseur   =   5
  23.       BordExterieur   =   5  'MontΘ
  24.       BordInterieur   =   1  'EnfoncΘ
  25.       BordLargeurint  =   1
  26.       Caption         =   "WinoTxt3D1"
  27.       CaptionAlignV   =   0  'Haut
  28.       CaptionEffet3D  =   3  'SoulevΘ LΘger
  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          =   5325
  36.       Left            =   0
  37.       TabIndex        =   0
  38.       Top             =   0
  39.       Width           =   8565
  40.       Begin WINO_3DBTNCLASS_GRP2 CmdQuit 
  41.          BackColor       =   &H00C0C0C0&
  42.          Bitmap3D        =   -1  'True
  43.          Caption         =   "&Quitter"
  44.          CaptionAlignH   =   2  'Droite
  45.          CaptionEffet3D  =   1  'EnfoncΘ LΘger
  46.          DessineFocus    =   -1  'True
  47.          FontBold        =   -1  'True
  48.          FontItalic      =   0   'False
  49.          FontName        =   "MS Sans Serif"
  50.          FontSize        =   12
  51.          FontStrikethru  =   0   'False
  52.          FontUnderline   =   0   'False
  53.          Height          =   810
  54.          ImageDisable    =   FBTONOFF.FRX:0000
  55.          ImageDown       =   FBTONOFF.FRX:030A
  56.          ImageUp         =   FBTONOFF.FRX:0614
  57.          Left            =   3480
  58.          MousePointer    =   10  'FlΦche vers le haut
  59.          Ombrage         =   2  'Ombre Pleine
  60.          TabIndex        =   9
  61.          Top             =   4320
  62.          Width           =   1590
  63.       End
  64.       Begin WINO_3DBTNCLASS_GRP2 Cmd1 
  65.          BackColor       =   &H00808000&
  66.          Caption         =   "D"
  67.          CaptionCouleur  =   &H000000FF&
  68.          CaptionEffet3D  =   1  'EnfoncΘ LΘger
  69.          FontBold        =   -1  'True
  70.          FontItalic      =   0   'False
  71.          FontName        =   "MS Sans Serif"
  72.          FontSize        =   18
  73.          FontStrikethru  =   0   'False
  74.          FontUnderline   =   0   'False
  75.          Groupe          =   1
  76.          Height          =   585
  77.          Index           =   3
  78.          Left            =   7230
  79.          MousePointer    =   10  'FlΦche vers le haut
  80.          TabIndex        =   8
  81.          Top             =   3425
  82.          TypeBouton      =   1  'ON/OFF
  83.          Width           =   855
  84.       End
  85.       Begin WINO_3DBTNCLASS_GRP2 Cmd1 
  86.          BackColor       =   &H00808000&
  87.          Caption         =   "B"
  88.          CaptionCouleur  =   &H000000FF&
  89.          CaptionEffet3D  =   1  'EnfoncΘ LΘger
  90.          FontBold        =   -1  'True
  91.          FontItalic      =   0   'False
  92.          FontName        =   "MS Sans Serif"
  93.          FontSize        =   18
  94.          FontStrikethru  =   0   'False
  95.          FontUnderline   =   0   'False
  96.          Groupe          =   1
  97.          Height          =   585
  98.          Index           =   1
  99.          Left            =   5520
  100.          MousePointer    =   10  'FlΦche vers le haut
  101.          TabIndex        =   7
  102.          Top             =   3425
  103.          TypeBouton      =   1  'ON/OFF
  104.          Width           =   855
  105.       End
  106.       Begin WINO_3DBTNCLASS_GRP2 Cmd1 
  107.          BackColor       =   &H00808000&
  108.          Caption         =   "A"
  109.          CaptionCouleur  =   &H000000FF&
  110.          CaptionEffet3D  =   1  'EnfoncΘ LΘger
  111.          FontBold        =   -1  'True
  112.          FontItalic      =   0   'False
  113.          FontName        =   "MS Sans Serif"
  114.          FontSize        =   18
  115.          FontStrikethru  =   0   'False
  116.          FontUnderline   =   0   'False
  117.          Groupe          =   1
  118.          Height          =   585
  119.          Index           =   0
  120.          Left            =   4665
  121.          MousePointer    =   10  'FlΦche vers le haut
  122.          OmbreLargeur    =   2
  123.          TabIndex        =   6
  124.          Top             =   2840
  125.          TypeBouton      =   1  'ON/OFF
  126.          Width           =   855
  127.       End
  128.       Begin WINO_3DBTNCLASS_GRP2 Cmd1 
  129.          BackColor       =   &H00808000&
  130.          Caption         =   "C"
  131.          CaptionCouleur  =   &H000000FF&
  132.          CaptionEffet3D  =   1  'EnfoncΘ LΘger
  133.          FontBold        =   -1  'True
  134.          FontItalic      =   0   'False
  135.          FontName        =   "MS Sans Serif"
  136.          FontSize        =   18
  137.          FontStrikethru  =   0   'False
  138.          FontUnderline   =   0   'False
  139.          Groupe          =   1
  140.          Height          =   585
  141.          Index           =   2
  142.          Left            =   6375
  143.          MousePointer    =   10  'FlΦche vers le haut
  144.          TabIndex        =   5
  145.          Top             =   2835
  146.          TypeBouton      =   1  'ON/OFF
  147.          Width           =   855
  148.       End
  149.       Begin WINO_3DTXTCLASS_GRP2 WinoTxt3D2 
  150.          BackColor       =   &H00000000&
  151.          BordExterieur   =   6  'MontΘ Double
  152.          BordInterieur   =   2  'EnfoncΘ Double
  153.          BordLargeurint  =   1
  154.          Caption         =   "WinoTxt3D2"
  155.          CaptionAlignH   =   0  'Gauche
  156.          CaptionCouleur  =   &H0000FFFF&
  157.          FontBold        =   -1  'True
  158.          FontItalic      =   0   'False
  159.          FontName        =   "MS Sans Serif"
  160.          FontSize        =   9.75
  161.          FontStrikethru  =   0   'False
  162.          FontUnderline   =   0   'False
  163.          Height          =   1395
  164.          Index           =   1
  165.          Left            =   180
  166.          TabIndex        =   4
  167.          Top             =   1275
  168.          Width           =   8205
  169.       End
  170.       Begin WINO_3DTXTCLASS_GRP2 WinoTxt3D2 
  171.          BackColor       =   &H00C0C0C0&
  172.          BordExterieur   =   5  'MontΘ
  173.          Caption         =   "Ici tout les boutons ont la propriΘtΘ TypeBouton a 1-On/OFF"
  174.          CaptionCouleur  =   &H000000FF&
  175.          CaptionEffet3D  =   3  'SoulevΘ LΘger
  176.          FontBold        =   -1  'True
  177.          FontItalic      =   0   'False
  178.          FontName        =   "MS Sans Serif"
  179.          FontSize        =   12
  180.          FontStrikethru  =   0   'False
  181.          FontUnderline   =   0   'False
  182.          Height          =   705
  183.          Index           =   0
  184.          Left            =   180
  185.          TabIndex        =   3
  186.          Top             =   525
  187.          Width           =   8200
  188.       End
  189.       Begin WINO_3DBTNCLASS_GRP2 Cmd 
  190.          BackColor       =   &H000000FF&
  191.          Caption         =   "2"
  192.          CaptionEffet3D  =   1  'EnfoncΘ LΘger
  193.          FontBold        =   -1  'True
  194.          FontItalic      =   0   'False
  195.          FontName        =   "MS Sans Serif"
  196.          FontSize        =   18
  197.          FontStrikethru  =   0   'False
  198.          FontUnderline   =   0   'False
  199.          Height          =   585
  200.          Index           =   1
  201.          Left            =   2190
  202.          MousePointer    =   10  'FlΦche vers le haut
  203.          TabIndex        =   2
  204.          Top             =   3150
  205.          TypeBouton      =   1  'ON/OFF
  206.          Width           =   855
  207.       End
  208.       Begin WINO_3DBTNCLASS_GRP2 Cmd 
  209.          BackColor       =   &H000000FF&
  210.          Caption         =   "1"
  211.          CaptionEffet3D  =   1  'EnfoncΘ LΘger
  212.          FontBold        =   -1  'True
  213.          FontItalic      =   0   'False
  214.          FontName        =   "MS Sans Serif"
  215.          FontSize        =   18
  216.          FontStrikethru  =   0   'False
  217.          FontUnderline   =   0   'False
  218.          Height          =   585
  219.          Index           =   0
  220.          Left            =   1350
  221.          MousePointer    =   10  'FlΦche vers le haut
  222.          TabIndex        =   1
  223.          Top             =   3150
  224.          TypeBouton      =   1  'ON/OFF
  225.          Width           =   855
  226.       End
  227.       Begin Line Ligne2 
  228.          BorderWidth     =   2
  229.          X1              =   4275
  230.          X2              =   4275
  231.          Y1              =   2775
  232.          Y2              =   4185
  233.       End
  234.       Begin Line Ligne1 
  235.          BorderColor     =   &H00FF0000&
  236.          BorderWidth     =   2
  237.          X1              =   180
  238.          X2              =   8380
  239.          Y1              =   4185
  240.          Y2              =   4185
  241.       End
  242.    End
  243. End
  244. Option Explicit
  245. Dim OldIdxB1%, OldIdxV%, OldIdxT3D%
  246. Dim OldIdxHI%, OldIdxVI%, OldIdxAct%
  247.  
  248. Sub Cmd_Click (Index As Integer)
  249. ' Dans cette exemple j'oblige qu'il est toujour un bouton enfoncΘ
  250.   If Not Cmd(Index).ValueBouton Then
  251.     Cmd(Index).ValueBouton = True
  252.     Exit Sub
  253. '-----------------------------------------------------------------
  254.   End If
  255.   If Index = 0 Then
  256.     Cmd(0).BackColor = QBColor(10)
  257.     Cmd(1).BackColor = QBColor(12)
  258.   Else
  259.     Cmd(0).BackColor = QBColor(12)
  260.     Cmd(1).BackColor = QBColor(10)
  261.   End If
  262.  
  263. End Sub
  264.  
  265. Sub Cmd1_Click (Index As Integer)
  266.   Cmd1(Index).BackColor = QBColor(11)
  267.   If Not Cmd1(0).ValueBouton Then Cmd1(0).BackColor = QBColor(3)
  268.   If Not Cmd1(1).ValueBouton Then Cmd1(1).BackColor = QBColor(3)
  269.   If Not Cmd1(2).ValueBouton Then Cmd1(2).BackColor = QBColor(3)
  270.   If Not Cmd1(3).ValueBouton Then Cmd1(3).BackColor = QBColor(3)
  271. End Sub
  272.  
  273. Sub CmdQuit_Click ()
  274.  Unload Me
  275. End Sub
  276.  
  277. Sub Form_Load ()
  278.   Msg = " Pour toutes les autres propriΘtΘs il fonctionne comme l'exemple prΘcΘdent."
  279.   WinoTxt3D1.Caption = Msg
  280.   WinoTxt3D1.Top = 0: WinoTxt3D1.Left = 0
  281.   WinoTxt3D1.Width = FBtOnOff.ScaleWidth: WinoTxt3D1.Height = FBtOnOff.ScaleHeight
  282.   WinoTxt3D2(0).Width = WinoTxt3D1.Width - 360:
  283.   WinoTxt3D2(1).Left = (WinoTxt3D1.Width - WinoTxt3D2(1).Width) \ 2
  284.   Msg = " Comme vous le voyez, nous avons deux groupes de boutons, chacun d'eux" & LN
  285.   Msg = Msg & "  fonctionne indΘpendement de l'autre." & LN
  286.   Msg = Msg & "  Dans notre exemple nous avons modifiΘ la valeur de la propriΘtΘ GROUPE :" & LN
  287.   Msg = Msg & "           - pour le 1er groupe de boutons elle a la valeur 0" & LN
  288.   Msg = Msg & "           - pour le 2Φme groupe de boutons elle a la valeur 1"
  289.   WinoTxt3D2(1).Caption = Msg
  290.   Cmd(0).ValueBouton = True
  291.   CmdQuit.Left = (WinoTxt3D1.Width - CmdQuit.Width) \ 2
  292.   Call CentrerF(FBtOnOff)
  293.  
  294. End Sub
  295.  
  296.