Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/bmpmnu/bmpmnu.frm

Visual Basic Form | 1995-03-03 | 7.2 KB | 250 lines

VERSION 2.00
Begin Form Form1
   BackColor       =   &H00FFFFFF&
   Caption         =   "Other fonts in menu"
   ClientHeight    =   2940
   ClientLeft      =   1290
   ClientTop       =   1905
   ClientWidth     =   4155
   FillColor       =   &H00FFFFFF&
   ForeColor       =   &H00C0C0C0&
   Height          =   3630
   Icon            =   BMPMNU.FRX:0000
   Left            =   1230
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   2940
   ScaleWidth      =   4155
   Top             =   1275
   Width           =   4275
   Begin Line Line2
      X1              =   1890
      X2              =   2295
      Y1              =   1110
      Y2              =   1110
   End
   Begin Line Line1
      BorderWidth     =   2
      Index           =   3
      X1              =   210
      X2              =   3990
      Y1              =   525
      Y2              =   525
   End
   Begin Label Label6
      Caption         =   "Jerome Frossard && Ralf Zumbrunn"
      Height          =   225
      Left            =   210
      TabIndex        =   6
      Top             =   210
      Width           =   3795
   End
   Begin Line Line1
      BorderWidth     =   2
      Index           =   1
      X1              =   210
      X2              =   3990
      Y1              =   1470
      Y2              =   1470
   End
   Begin Line Line1
      BorderWidth     =   2
      Index           =   0
      X1              =   210
      X2              =   3990
      Y1              =   1890
      Y2              =   1890
   End
   Begin Label txtWarning
      BackColor       =   &H00FFFFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "WARNING: Quit the program with the Visual Basic ""stop button"" may cause the loss of a large amount of resource !"
      ForeColor       =   &H000000FF&
      Height          =   750
      Left            =   210
      TabIndex        =   5
      Top             =   2100
      Width           =   3900
   End
   Begin Label Label5
      BackStyle       =   0  'Transparent
      Caption         =   "CompuServe ID: 75240,664"
      Height          =   225
      Left            =   210
      TabIndex        =   4
      Top             =   1575
      Width           =   2850
   End
   Begin Label Label4
      BackColor       =   &H00FFFFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "SWITZERLAND"
      Height          =   225
      Left            =   1890
      TabIndex        =   3
      Top             =   1155
      Width           =   1380
   End
   Begin Label Label3
      BackColor       =   &H00FFFFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "1723 Marly 1"
      Height          =   225
      Left            =   210
      TabIndex        =   2
      Top             =   1155
      Width           =   1335
   End
   Begin Label Label2
      BackColor       =   &H00FFFFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "P.O. Box 193"
      Height          =   225
      Left            =   210
      TabIndex        =   1
      Top             =   945
      Width           =   1725
   End
   Begin Label Label1
      BackColor       =   &H00FFFFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "PTAHSoft"
      Height          =   225
      Left            =   210
      TabIndex        =   0
      Top             =   735
      Width           =   960
   End
   Begin Image imgMenu
      Height          =   585
      Index           =   0
      Left            =   2250
      Picture         =   BMPMNU.FRX:0302
      Top             =   600
      Width           =   930
   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         =   "Safe 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
Dim TxtColor(4) As Long
Sub Color_Click (Index As Integer)
    Color(321).Checked = False
    Color(322).Checked = False
    Color(323).Checked = False
    Color(324).Checked = False
    Color(Index).Checked = True
    txtWarning.ForeColor = TxtColor(Index - 321)
End Sub
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 ()
    Dim hWnd As Integer
    TxtColor(0) = RGB(255, 0, 0)
    TxtColor(1) = RGB(0, 255, 0)
    TxtColor(2) = RGB(0, 0, 255)
    TxtColor(3) = RGB(0, 0, 0)
    Call Color_Click(321)
    hWnd = Form1.hWnd
    Call TranslateAllMenu(hWnd, "Times New Roman")
    Show
End Sub
Sub Form_Unload (Cancel As Integer)
    Call CleanBitmapMenu
End Sub
Sub Help_Click (Index As Integer)
    frmAbout.Show 1
End Sub