form3.frm

Visual Basic 6 大学教程的代码

VERSION 5.00
Begin VB.Form frmForm3 
   Caption         =   "Java How To Program 2nd Edition"
   ClientHeight    =   2115
   ClientLeft      =   4245
   ClientTop       =   2580
   ClientWidth     =   4125
   LinkTopic       =   "Form3"
   MDIChild        =   -1  'True
   ScaleHeight     =   2115
   ScaleWidth      =   4125
   Begin VB.Image imgImage 
      Height          =   1800
      Left            =   1260
      Stretch         =   -1  'True
      Top             =   90
      Width           =   1395
   End
   Begin VB.Menu mnuColor 
      Caption         =   "Color"
      Begin VB.Menu mnuGray 
         Caption         =   "Gray"
      End
      Begin VB.Menu mnuWhite 
         Caption         =   "White"
      End
   End
End
Attribute VB_Name = "frmForm3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' Form frmForm3
Option Explicit       ' General declaration frmForm3

Private Sub Form_Load()
   imgImage.Picture = LoadPicture("d:\images\ch11\jhtp2.gif")
End Sub

Private Sub mnuGray_Click()
   BackColor = QBColor(7)
End Sub

Private Sub mnuWhite_Click()
   BackColor = vbWhite
End Sub