home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 26 / CD_ASCQ_26_1295.iso / vrac / makhlp2.zip / EXEMPLE / VBASIC / FEUILLE1.FRM next >
Text File  |  1995-08-24  |  4KB  |  134 lines
  1. VERSION 2.00
  2. Begin Form Feuille1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Feuille1"
  5.    ClientHeight    =   6015
  6.    ClientLeft      =   1290
  7.    ClientTop       =   765
  8.    ClientWidth     =   7665
  9.    ClipControls    =   0   'False
  10.    Height          =   6735
  11.    Left            =   1215
  12.    LinkTopic       =   "Feuille1"
  13.    ScaleHeight     =   6015
  14.    ScaleWidth      =   7665
  15.    Top             =   120
  16.    Width           =   7815
  17.    Begin CommandButton Commande3 
  18.       Caption         =   "Quitter"
  19.       Height          =   645
  20.       Left            =   2880
  21.       TabIndex        =   3
  22.       Top             =   4980
  23.       Width           =   2055
  24.    End
  25.    Begin CommandButton Commande2 
  26.       Caption         =   "Bouton2"
  27.       Height          =   645
  28.       HelpContextID   =   2
  29.       Left            =   5190
  30.       TabIndex        =   1
  31.       Top             =   4200
  32.       Width           =   2055
  33.    End
  34.    Begin CommandButton Commande1 
  35.       Caption         =   "Bouton1"
  36.       Height          =   645
  37.       HelpContextID   =   1
  38.       Left            =   510
  39.       TabIndex        =   0
  40.       Top             =   4290
  41.       Width           =   2055
  42.    End
  43.    Begin Label Etiquette1 
  44.       BackColor       =   &H00800080&
  45.       Caption         =   "Le ""HelpContextID"" de cette feuille = 0  Le ""HelpContextID"" du Bouton1 = 1   Le ""HelpContextID"" du Bouton2 = 2   Le ""HelpContextID"" du Quitter = 0"
  46.       FontBold        =   -1  'True
  47.       FontItalic      =   0   'False
  48.       FontName        =   "MS Sans Serif"
  49.       FontSize        =   13.5
  50.       FontStrikethru  =   0   'False
  51.       FontUnderline   =   0   'False
  52.       ForeColor       =   &H0000FFFF&
  53.       Height          =   1545
  54.       Index           =   1
  55.       Left            =   1110
  56.       TabIndex        =   4
  57.       Top             =   2190
  58.       Width           =   5505
  59.    End
  60.    Begin Label Etiquette1 
  61.       Alignment       =   2  'CentrΘ
  62.       BackColor       =   &H00FF0000&
  63.       BorderStyle     =   1  'Trait simple fixe
  64.       Caption         =   "DΘmonstration de rΘalisation d'un fichier d'aide (.HLP)  pour un projet Visual Basic"
  65.       FontBold        =   -1  'True
  66.       FontItalic      =   0   'False
  67.       FontName        =   "MS Sans Serif"
  68.       FontSize        =   24
  69.       FontStrikethru  =   0   'False
  70.       FontUnderline   =   0   'False
  71.       ForeColor       =   &H00FFFF00&
  72.       Height          =   1755
  73.       Index           =   0
  74.       Left            =   510
  75.       TabIndex        =   2
  76.       Top             =   240
  77.       Width           =   6765
  78.    End
  79.    Begin Menu Menu 
  80.       Caption         =   "Menu"
  81.       Begin Menu SousMenu 
  82.          Caption         =   "Bouton 1"
  83.          HelpContextID   =   1
  84.          Index           =   0
  85.       End
  86.       Begin Menu SousMenu 
  87.          Caption         =   "Bouton 2"
  88.          HelpContextID   =   2
  89.          Index           =   1
  90.       End
  91.       Begin Menu SousMenu 
  92.          Caption         =   "-"
  93.          Index           =   2
  94.       End
  95.       Begin Menu SousMenu 
  96.          Caption         =   "Quitter"
  97.          Index           =   3
  98.       End
  99.    End
  100. End
  101. Option Explicit
  102. Dim Msg$, LN$
  103.  
  104. Sub Commande2_CLick ()
  105.   Feuille2.Show 1
  106. End Sub
  107.  
  108. Sub Commande3_CLick ()
  109.   End
  110. End Sub
  111.  
  112. Sub Form_Load ()
  113.   LN = Chr$(10)
  114.   Msg = "DΘmonstration de rΘalisation d'un fichier d'aide (.HLP)" & LN
  115.   Msg = Msg & "pour un projet Visual Basic"
  116.   Etiquette1(0).Caption = Msg
  117.   Msg = "Le ""HelpContextID"" de cette feuille = 0" & LN
  118.   Msg = Msg & "Le ""HelpContextID"" du Bouton1 = 1" & LN
  119.   Msg = Msg & "Le ""HelpContextID"" du Bouton2 = 2" & LN
  120.   Msg = Msg & "Le ""HelpContextID"" du Quitter = 0"
  121.   Etiquette1(1).Caption = Msg
  122.  
  123. End Sub
  124.  
  125. Sub SousMenu_Click (Index As Integer)
  126.   Select Case Index
  127.     Case 1
  128.       Commande2_CLick
  129.     Case 3
  130.       Commande3_CLick
  131.   End Select
  132. End Sub
  133.  
  134.