DP Tool Club 22/CD_ASCQ_22_0695.iso/win/prg/psmmm11.exe/SAMPLE.ENU/BMPMNU/BASIC/BMPMNU.FRM

Text File | 1995-04-02 | 6KB | 198 lines

VERSION 2.00
Begin Form Form1
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Other fonts in menu"
   ClientHeight    =   1665
   ClientLeft      =   1605
   ClientTop       =   3225
   ClientWidth     =   3615
   FillColor       =   &H00FFFFFF&
   ForeColor       =   &H00C0C0C0&
   Height          =   2355
   Icon            =   BMPMNU.FRX:0000
   Left            =   1545
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   1665
   ScaleWidth      =   3615
   Top             =   2595
   Width           =   3735
   Begin Label txtWarning
      BackColor       =   &H00FFFFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "This example shows how you can display other font than the system one in a menu using bitmap menus. "
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00000000&
      Height          =   660
      Index           =   1
      Left            =   135
      TabIndex        =   1
      Top             =   105
      Width           =   3360
   End
   Begin Label txtWarning
      BackColor       =   &H00C0C0C0&
      BackStyle       =   0  'Transparent
      Caption         =   "WARNING: Quit the program with the Visual Basic ""stop button"" may cause the loss of a large amount of resource !"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H000000C0&
      Height          =   645
      Index           =   0
      Left            =   120
      TabIndex        =   0
      Top             =   945
      Width           =   3375
   End
   Begin Shape Shape1
      BackStyle       =   1  'Opaque
      Height          =   705
      Index           =   0
      Left            =   75
      Top             =   900
      Width           =   3480
   End
   Begin Shape Shape1
      BackStyle       =   1  'Opaque
      Height          =   780
      Index           =   1
      Left            =   75
      Top             =   60
      Width           =   3465
   End
   Begin Menu Main
      Caption         =   "File"
      Index           =   1
      Begin Menu Fichier
         Caption         =   "Open"
         Index           =   11
      End
      Begin Menu Fichier
         Caption         =   "Save"
         Index           =   12
      End
      Begin Menu Fichier
         Caption         =   "Save as..."
         Index           =   13
      End
      Begin Menu Fichier
         Caption         =   "Close"
         Index           =   14
      End
      Begin Menu File
         Caption         =   "-"
         Index           =   15
      End
      Begin Menu File
         Caption         =   "Exit"
         Index           =   16
      End
   End
   Begin Menu Main
      Caption         =   "Edit"
      Index           =   2
      Begin Menu Edit
         Caption         =   "Cut"
         Index           =   21
      End
      Begin Menu Edit
         Caption         =   "Copy"
         Index           =   22
      End
      Begin Menu Edit
         Caption         =   "Past"
         Enabled         =   0   'False
         Index           =   23
      End
      Begin Menu Edit
         Caption         =   "Delete"
         Enabled         =   0   'False
         Index           =   24
      End
   End
   Begin Menu Main
      Caption         =   "Option"
      Index           =   3
      Begin Menu Option
         Caption         =   "Environment..."
         Index           =   31
      End
      Begin Menu Option
         Caption         =   "Color"
         Index           =   32
         Begin Menu Color
            Caption         =   "Red"
            Index           =   321
         End
         Begin Menu Color
            Caption         =   "Green"
            Index           =   322
         End
         Begin Menu Color
            Caption         =   "Blue"
            Index           =   323
         End
         Begin Menu Color
            Caption         =   "Black"
            Index           =   324
         End
      End
   End
   Begin Menu Main
      Caption         =   "Help"
      Index           =   4
      Begin Menu Help
         Caption         =   "About..."
         Index           =   41
      End
   End
End
Dim TxtColor(4) As Long

Sub Fichier_Click (Index As Integer)

    Select Case Index
        Case 11
            Fichier(Index).Checked = Not Fichier(Index).Checked
            Fichier(12).Enabled = Not Fichier(12).Enabled
            Fichier(13).Enabled = Not Fichier(13).Enabled
            Fichier(14).Enabled = Not Fichier(14).Enabled
    End Select

End Sub

Sub File_Click (Index As Integer)

    Unload Form1

End Sub

Sub Form_Load ()

    Call TranslateAllMenu((Form1.hWnd), "Arial")

End Sub

Sub Form_Unload (Cancel As Integer)

    Call CleanBitmapMenu

End Sub

Sub Help_Click (Index As Integer)

    frmAbout.Show 1

End Sub