不可用 
PictureBox
只能用无边框窗口在这一窗品口上可用PictureBox

解决方案 »

  1.   

    Type=Exe
    Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation
    Module=Module1; Module1.bas
    Form=frmMain.frm
    Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; comdlg32.ocx
    Object={831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0; mscomctl.ocx
    Object={3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0; richtx32.ocx
    Form=frmDocument.frm
    Form=frmSplash.frm
    Startup="Sub Main"
    Command32=""
    Name="Project1"
    HelpContextID="0"
    CompatibleMode="0"
    MajorVer=1
    MinorVer=0
    RevisionVer=0
    AutoIncrementVer=0
    ServerSupportFiles=0
    VersionCompanyName="haiguan"
    CompilationType=0
    OptimizationType=0
    FavorPentiumPro(tm)=0
    CodeViewDebugInfo=0
    NoAliasing=0
    BoundsCheck=0
    OverflowCheck=0
    FlPointCheck=0
    FDIVCheck=0
    UnroundedFP=0
    StartMode=0
    Unattended=0
    Retained=0
    ThreadPerObject=0
    MaxNumberOfThreads=1[MS Transaction Server]
    AutoRefresh=1VERSION 5.00
    Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "richtx32.ocx"
    Begin VB.Form frmDocument 
       Caption         =   "frmDocument"
       ClientHeight    =   3195
       ClientLeft      =   60
       ClientTop       =   345
       ClientWidth     =   4680
       LinkTopic       =   "Form1"
       MDIChild        =   -1  'True
       ScaleHeight     =   3195
       ScaleWidth      =   4680
       Begin RichTextLib.RichTextBox rtfText 
          Height          =   2000
          Left            =   100
          TabIndex        =   0
          Top             =   100
          Width           =   3000
          _ExtentX        =   5292
          _ExtentY        =   3519
          _Version        =   393217
          Enabled         =   -1  'True
          ScrollBars      =   3
          TextRTF         =   $"frmDocument.frx":0000
       End
    End
    Attribute VB_Name = "frmDocument"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Option Explicit
    Private Sub rtfText_SelChange()
        fMainForm.tbToolBar.Buttons("Bold").Value = IIf(rtfText.SelBold, tbrPressed, tbrUnpressed)
        fMainForm.tbToolBar.Buttons("Italic").Value = IIf(rtfText.SelItalic, tbrPressed, tbrUnpressed)
        fMainForm.tbToolBar.Buttons("Underline").Value = IIf(rtfText.SelUnderline, tbrPressed, tbrUnpressed)
        fMainForm.tbToolBar.Buttons("Align Left").Value = IIf(rtfText.SelAlignment = rtfLeft, tbrPressed, tbrUnpressed)
        fMainForm.tbToolBar.Buttons("Center").Value = IIf(rtfText.SelAlignment = rtfCenter, tbrPressed, tbrUnpressed)
        fMainForm.tbToolBar.Buttons("Align Right").Value = IIf(rtfText.SelAlignment = rtfRight, tbrPressed, tbrUnpressed)
    End Sub
    Private Sub Form_Load()
        Form_Resize
    End Sub
    Private Sub Form_Resize()
        On Error Resume Next
        rtfText.Move 100, 100, Me.ScaleWidth - 200, Me.ScaleHeight - 200
        rtfText.RightMargin = rtfText.Width - 400
    End SubAttribute VB_Name = "Module1"
    Option ExplicitPublic fMainForm As frmMain
    Sub Main()
        Set fMainForm = New frmMain
        fMainForm.Show
    End SubVERSION 5.00
    Begin VB.Form frmSplash 
       Appearance      =   0  'Flat
       BackColor       =   &H80000005&
       BorderStyle     =   0  'None
       ClientHeight    =   4245
       ClientLeft      =   210
       ClientTop       =   1365
       ClientWidth     =   7380
       ClipControls    =   0   'False
       ControlBox      =   0   'False
       Icon            =   "frmSplash.frx":0000
       LinkTopic       =   "Form2"
       MaxButton       =   0   'False
       MDIChild        =   -1  'True
       MinButton       =   0   'False
       ScaleHeight     =   4245
       ScaleWidth      =   7380
       ShowInTaskbar   =   0   'False
       Begin VB.Frame Frame1 
          Height          =   4050
          Left            =   150
          TabIndex        =   0
          Top             =   60
          Width           =   7080
          Begin VB.Image imgLogo 
             Height          =   2385
             Left            =   360
             Picture         =   "frmSplash.frx":000C
             Stretch         =   -1  'True
             Top             =   795
             Width           =   1815
          End
          Begin VB.Label lblCopyright 
             Caption         =   "Copyright"
             BeginProperty Font 
                Name            =   "Arial"
                Size            =   8.25
                Charset         =   0
                Weight          =   400
                Underline       =   0   'False
                Italic          =   0   'False
                Strikethrough   =   0   'False
             EndProperty
             Height          =   255
             Left            =   4560
             TabIndex        =   4
             Top             =   3060
             Width           =   2415
          End
          Begin VB.Label lblCompany 
             Caption         =   "Company"
             BeginProperty Font 
                Name            =   "Arial"
                Size            =   8.25
                Charset         =   0
                Weight          =   400
                Underline       =   0   'False
                Italic          =   0   'False
                Strikethrough   =   0   'False
             EndProperty
             Height          =   255
             Left            =   4560
             TabIndex        =   3
             Top             =   3270
             Width           =   2415
          End
          Begin VB.Label lblWarning 
             Caption         =   "Warning"
             BeginProperty Font 
                Name            =   "Arial"
                Size            =   8.25
                Charset         =   0
                Weight          =   400
                Underline       =   0   'False
                Italic          =   0   'False
                Strikethrough   =   0   'False
             EndProperty
             Height          =   195
             Left            =   150
             TabIndex        =   2
             Top             =   3660
             Width           =   6855
          End
          Begin VB.Label lblVersion 
             Alignment       =   1  'Right Justify
             AutoSize        =   -1  'True
             Caption         =   "Version"
             BeginProperty Font 
                Name            =   "Arial"
                Size            =   12
                Charset         =   0
                Weight          =   700
                Underline       =   0   'False
                Italic          =   0   'False
                Strikethrough   =   0   'False
             EndProperty
             Height          =   285
             Left            =   5970
             TabIndex        =   5
             Top             =   2700
             Width           =   885
          End
          Begin VB.Label lblPlatform 
             Alignment       =   1  'Right Justify
             AutoSize        =   -1  'True
             Caption         =   "Platform"
             BeginProperty Font 
                Name            =   "Arial"
                Size            =   15.75
                Charset         =   0
                Weight          =   700
                Underline       =   0   'False
                Italic          =   0   'False
                Strikethrough   =   0   'False
             EndProperty
             Height          =   360
             Left            =   5580
             TabIndex        =   6
             Top             =   2340
             Width           =   1275
          End
          Begin VB.Label lblProductName 
             AutoSize        =   -1  'True
             Caption         =   "Product"
             BeginProperty Font 
                Name            =   "Arial"
                Size            =   32.25
                Charset         =   0
                Weight          =   700
                Underline       =   0   'False
                Italic          =   0   'False
                Strikethrough   =   0   'False
             EndProperty
             Height          =   765
             Left            =   2520
             TabIndex        =   8
             Top             =   1140
             Width           =   2430
          End
          Begin VB.Label lblLicenseTo 
             Alignment       =   1  'Right Justify
             Caption         =   "LicenseTo"
             BeginProperty Font 
                Name            =   "Arial"
                Size            =   8.25
                Charset         =   0
                Weight          =   400
                Underline       =   0   'False
                Italic          =   0   'False
                Strikethrough   =   0   'False
             EndProperty
             Height          =   255
             Left            =   120
             TabIndex        =   1
             Top             =   240
             Width           =   6855
          End
          Begin VB.Label lblCompanyProduct 
             AutoSize        =   -1  'True
             Caption         =   "CompanyProduct"
             BeginProperty Font 
                Name            =   "Arial"
                Size            =   18
                Charset         =   0
                Weight          =   700
                Underline       =   0   'False
                Italic          =   0   'False
                Strikethrough   =   0   'False
             EndProperty
             Height          =   435
             Left            =   2355
             TabIndex        =   7
             Top             =   705
             Width           =   3000
          End
       End
    End
    Attribute VB_Name = "frmSplash"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = FalseOption ExplicitPrivate Sub Form_Load()
        Me.Left = (fMainForm.Width - Me.Width) / 2
        Me.Top = (fMainForm.Height - Me.Height) / 2
        lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision
        lblProductName.Caption = App.Title
        
    End Sub
    VERSION 5.00
    Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
    Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
    Begin VB.MDIForm frmMain 
       AutoShowChildren=   0   'False
       BackColor       =   &H8000000C&
       Caption         =   "Project1"
       ClientHeight    =   3195
       ClientLeft      =   165
       ClientTop       =   735
       ClientWidth     =   4680
       LinkTopic       =   "MDIForm1"
       StartUpPosition =   3  'Windows Default
       Begin MSComDlg.CommonDialog dlgCommonDialog 
          Left            =   1740
          Top             =   1350
          _ExtentX        =   847
          _ExtentY        =   847
          _Version        =   393216
       End
       Begin MSComctlLib.StatusBar sbStatusBar 
          Align           =   2  'Align Bottom
          Height          =   270
          Left            =   0
          TabIndex        =   0
          Top             =   2925
          Width           =   4680
          _ExtentX        =   8255
          _ExtentY        =   476
          _Version        =   393216
          BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
             NumPanels       =   3
             BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
                AutoSize        =   1
                Object.Width           =   2619
                Text            =   "Status"
                TextSave        =   "Status"
             EndProperty
             BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
                Style           =   6
                AutoSize        =   2
                TextSave        =   "2001-12-1"
             EndProperty
             BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
                Style           =   5
                AutoSize        =   2
                TextSave        =   "14:09"
             EndProperty
          EndProperty
       End
       Begin MSComctlLib.ImageList imlToolbarIcons 
          Left            =   1740
          Top             =   1350
          _ExtentX        =   1005
          _ExtentY        =   1005
          BackColor       =   -2147483643
          ImageWidth      =   16
          ImageHeight     =   16
          MaskColor       =   12632256
          _Version        =   393216
          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
             NumListImages   =   13
             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                Picture         =   "frmMain.frx":0000
                Key             =   "New"
             EndProperty
             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                Picture         =   "frmMain.frx":0112
                Key             =   "Open"
             EndProperty
             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                Picture         =   "frmMain.frx":0224
                Key             =   "Save"
             EndProperty
             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                Picture         =   "frmMain.frx":0336
                Key             =   "Print"
             EndProperty
             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                Picture         =   "frmMain.frx":0448
                Key             =   "Cut"
             EndProperty
             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                Picture         =   "frmMain.frx":055A
                Key             =   "Copy"
             EndProperty
             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                Picture         =   "frmMain.frx":066C
                Key             =   "Paste"
             EndProperty
             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                Picture         =   "frmMain.frx":077E
                Key             =   "Bold"
             EndProperty
             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                Picture         =   "frmMain.frx":0890
                Key             =   "Italic"
             EndProperty
             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                Picture         =   "frmMain.frx":09A2
                Key             =   "Underline"
             EndProperty
             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                Picture         =   "frmMain.frx":0AB4
                Key             =   "Align Left"
             EndProperty
             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                Picture         =   "frmMain.frx":0BC6
                Key             =   "Center"
             EndProperty
             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                Picture         =   "frmMain.frx":0CD8
                Key             =   "Align Right"
             EndProperty
          EndProperty
       End
       Begin MSComctlLib.Toolbar tbToolBar 
          Align           =   1  'Align Top
          Height          =   1080
          Left            =   0
          TabIndex        =   1
          Top             =   0
          Width           =   4680
          _ExtentX        =   8255
          _ExtentY        =   1905
          ButtonWidth     =   609
          Appearance      =   1
          ImageList       =   "imlToolbarIcons"
          _Version        =   393216
          BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
             NumButtons      =   17
             BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
                Key             =   "New"
                Object.ToolTipText     =   "New"
                ImageKey        =   "New"
             EndProperty
             BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
                Key             =   "Open"
                Object.ToolTipText     =   "Open"
                ImageKey        =   "Open"
             EndProperty
             BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
                Key             =   "Save"
                Object.ToolTipText     =   "Save"
                ImageKey        =   "Save"
             EndProperty
             BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
                Style           =   3
             EndProperty
             BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
                Key             =   "Print"
                Object.ToolTipText     =   "Print"
                ImageKey        =   "Print"
             EndProperty
             BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
                Style           =   3
             EndProperty
             BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
                Key             =   "Cut"
                Object.ToolTipText     =   "Cut"
                ImageKey        =   "Cut"
             EndProperty
             BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
                Key             =   "Copy"
                Object.ToolTipText     =   "Copy"
                ImageKey        =   "Copy"
             EndProperty
             BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
                Key             =   "Paste"
                Object.ToolTipText     =   "Paste"
                ImageKey        =   "Paste"
             EndProperty
             BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
                Style           =   3
             EndProperty
             BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
                Key             =   "Bold"
                Object.ToolTipText     =   "Bold"
                ImageKey        =   "Bold"
             EndProperty
             BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
                Key             =   "Italic"
                Object.ToolTipText     =   "Italic"
                ImageKey        =   "Italic"
             EndProperty
             BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
                Key             =   "Underline"
                Object.ToolTipText     =   "Underline"
                ImageKey        =   "Underline"
             EndProperty
             BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
                Style           =   3
             EndProperty
             BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
                Key             =   "Align Left"
                Object.ToolTipText     =   "Align Left"
                ImageKey        =   "Align Left"
                Style           =   2
             EndProperty
             BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
                Key             =   "Center"
                Object.ToolTipText     =   "Center"
                ImageKey        =   "Center"
                Style           =   2
             EndProperty
             BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
                Key             =   "Align Right"
                Object.ToolTipText     =   "Align Right"
                ImageKey        =   "Align Right"
                Style           =   2
             EndProperty
          EndProperty
       End
       Begin VB.Menu mnuFile 
          Caption         =   "&File"
          Begin VB.Menu mnuFileNew 
             Caption         =   "&New"
             Shortcut        =   ^N
          End
          Begin VB.Menu mnuFileOpen 
             Caption         =   "&Open..."
             Shortcut        =   ^O
          End
          Begin VB.Menu mnuFileClose 
             Caption         =   "&Close"
          End
          Begin VB.Menu mnuFileBar0 
             Caption         =   "-"
          End
          Begin VB.Menu mnuFileSave 
             Caption         =   "&Save"
          End
          Begin VB.Menu mnuFileSaveAs 
             Caption         =   "Save &As..."
          End
          Begin VB.Menu mnuFileSaveAll 
             Caption         =   "Save A&ll"
          End
          Begin VB.Menu mnuFileBar1 
             Caption         =   "-"
          End
          Begin VB.Menu mnuFileProperties 
             Caption         =   "Propert&ies"
          End
          Begin VB.Menu mnuFileBar2 
             Caption         =   "-"
          End
          Begin VB.Menu mnuFilePageSetup 
             Caption         =   "Page Set&up..."
          End
          Begin VB.Menu mnuFilePrintPreview 
             Caption         =   "Print Pre&view"
          End
          Begin VB.Menu mnuFilePrint 
             Caption         =   "&Print..."
          End
          Begin VB.Menu mnuFileBar3 
             Caption         =   "-"
          End
          Begin VB.Menu mnuFileSend 
             Caption         =   "Sen&d..."
          End
          Begin VB.Menu mnuFileBar4 
             Caption         =   "-"
          End
          Begin VB.Menu mnuFileMRU 
             Caption         =   ""
             Index           =   1
             Visible         =   0   'False
          End
          Begin VB.Menu mnuFileMRU 
             Caption         =   ""
             Index           =   2
             Visible         =   0   'False
          End
          Begin VB.Menu mnuFileMRU 
             Caption         =   ""
             Index           =   3
             Visible         =   0   'False
          End
          Begin VB.Menu mnuFileBar5 
             Caption         =   "-"
             Visible         =   0   'False
          End
          Begin VB.Menu mnuFileExit 
             Caption         =   "E&xit"
          End
       End
       Begin VB.Menu mnuEdit 
          Caption         =   "&Edit"
          Begin VB.Menu mnuEditUndo 
             Caption         =   "&Undo"
          End
          Begin VB.Menu mnuEditBar0 
             Caption         =   "-"
          End
          Begin VB.Menu mnuEditCut 
             Caption         =   "Cu&t"
             Shortcut        =   ^X
          End
          Begin VB.Menu mnuEditCopy 
             Caption         =   "&Copy"
             Shortcut        =   ^C
          End
          Begin VB.Menu mnuEditPaste 
             Caption         =   "&Paste"
             Shortcut        =   ^V
          End
          Begin VB.Menu mnuEditPasteSpecial 
             Caption         =   "Paste &Special..."
          End
       End
       Begin VB.Menu mnuView 
          Caption         =   "&View"
          Begin VB.Menu mnuViewToolbar 
             Caption         =   "&Toolbar"
             Checked         =   -1  'True
          End
          Begin VB.Menu mnuViewStatusBar 
             Caption         =   "Status &Bar"
             Checked         =   -1  'True
          End
          Begin VB.Menu mnuViewBar0 
             Caption         =   "-"
          End
          Begin VB.Menu mnuViewRefresh 
             Caption         =   "&Refresh"
          End
          Begin VB.Menu mnuViewOptions 
             Caption         =   "&Options..."
          End
          Begin VB.Menu mnuViewWebBrowser 
             Caption         =   "&Web Browser"
          End
       End
       Begin VB.Menu mnuWindow 
          Caption         =   "&Window"
          WindowList      =   -1  'True
          Begin VB.Menu mnuWindowNewWindow 
             Caption         =   "&New Window"
          End
          Begin VB.Menu mnuWindowBar0 
             Caption         =   "-"
          End
          Begin VB.Menu mnuWindowCascade 
             Caption         =   "&Cascade"
          End
          Begin VB.Menu mnuWindowTileHorizontal 
             Caption         =   "Tile &Horizontal"
          End
          Begin VB.Menu mnuWindowTileVertical 
             Caption         =   "Tile &Vertical"
          End
          Begin VB.Menu mnuWindowArrangeIcons 
             Caption         =   "&Arrange Icons"
          End
       End
       Begin VB.Menu mnuHelp 
          Caption         =   "&Help"
          Begin VB.Menu mnuHelpContents 
             Caption         =   "&Contents"
          End
          Begin VB.Menu mnuHelpSearchForHelpOn 
             Caption         =   "&Search For Help On..."
          End
          Begin VB.Menu mnuHelpBar0 
             Caption         =   "-"
          End
          Begin VB.Menu mnuHelpAbout 
             Caption         =   "&About "
          End
       End
    End
    Attribute VB_Name = "frmMain"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Option Explicit
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long
    Const EM_UNDO = &HC7
    Private Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal hwnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)Private Sub MDIForm_Load()
        Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
        Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
        Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
        Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)
        Dim frmS As frmSplash
        Set frmS = New frmSplash
        frmS.Show
        'LoadNewDoc
    End Sub
    Private Sub LoadNewDoc()
        Static lDocumentCount As Long
        Dim frmD As frmDocument
        lDocumentCount = lDocumentCount + 1
        Set frmD = New frmDocument
        frmD.Caption = "Document " & lDocumentCount
        frmD.Show
    End Sub
    Private Sub MDIForm_Unload(Cancel As Integer)
        If Me.WindowState <> vbMinimized Then
            SaveSetting App.Title, "Settings", "MainLeft", Me.Left
            SaveSetting App.Title, "Settings", "MainTop", Me.Top
            SaveSetting App.Title, "Settings", "MainWidth", Me.Width
            SaveSetting App.Title, "Settings", "MainHeight", Me.Height
        End If
    End SubPrivate Sub tbToolBar_ButtonClick(ByVal Button As MSComCtlLib.Button)
        On Error Resume Next
        Select Case Button.Key
            Case "New"
                LoadNewDoc
            Case "Open"
                mnuFileOpen_Click
            Case "Save"
                mnuFileSave_Click
            Case "Print"
                mnuFilePrint_Click
            Case "Cut"
                mnuEditCut_Click
            Case "Copy"
                mnuEditCopy_Click
            Case "Paste"
                mnuEditPaste_Click
            Case "Bold"
                ActiveForm.rtfText.SelBold = Not ActiveForm.rtfText.SelBold
                Button.Value = IIf(ActiveForm.rtfText.SelBold, tbrPressed, tbrUnpressed)
            Case "Italic"
                ActiveForm.rtfText.SelItalic = Not ActiveForm.rtfText.SelItalic
                Button.Value = IIf(ActiveForm.rtfText.SelItalic, tbrPressed, tbrUnpressed)
            Case "Underline"
                ActiveForm.rtfText.SelUnderline = Not ActiveForm.rtfText.SelUnderline
                Button.Value = IIf(ActiveForm.rtfText.SelUnderline, tbrPressed, tbrUnpressed)
            Case "Align Left"
                ActiveForm.rtfText.SelAlignment = rtfLeft
            Case "Center"
                ActiveForm.rtfText.SelAlignment = rtfCenter
            Case "Align Right"
                ActiveForm.rtfText.SelAlignment = rtfRight
        End Select
    End SubPrivate Sub mnuHelpAbout_Click()
        MsgBox "Version " & App.Major & "." & App.Minor & "." & App.Revision
    End SubPrivate Sub mnuHelpSearchForHelpOn_Click()
        Dim nRet As Integer
        'if there is no helpfile for this project display a message to the user
        'you can set the HelpFile for your application in the
        'Project Properties dialog
        If Len(App.HelpFile) = 0 Then
            MsgBox "Unable to display Help Contents. There is no Help associated with this project.", vbInformation, Me.Caption
        Else
            On Error Resume Next
            nRet = OSWinHelp(Me.hwnd, App.HelpFile, 261, 0)
            If Err Then
                MsgBox Err.Description
            End If
        End IfEnd SubPrivate Sub mnuHelpContents_Click()
        Dim nRet As Integer
        'if there is no helpfile for this project display a message to the user
        'you can set the HelpFile for your application in the
        'Project Properties dialog
        If Len(App.HelpFile) = 0 Then
            MsgBox "Unable to display Help Contents. There is no Help associated with this project.", vbInformation, Me.Caption
        Else
            On Error Resume Next
            nRet = OSWinHelp(Me.hwnd, App.HelpFile, 3, 0)
            If Err Then
                MsgBox Err.Description
            End If
        End IfEnd Sub
    Private Sub mnuWindowArrangeIcons_Click()
        Me.Arrange vbArrangeIcons
    End SubPrivate Sub mnuWindowTileVertical_Click()
        Me.Arrange vbTileVertical
    End SubPrivate Sub mnuWindowTileHorizontal_Click()
        Me.Arrange vbTileHorizontal
    End SubPrivate Sub mnuWindowCascade_Click()
        Me.Arrange vbCascade
    End SubPrivate Sub mnuWindowNewWindow_Click()
        LoadNewDoc
    End SubPrivate Sub mnuViewWebBrowser_Click()
        'ToDo: Add 'mnuViewWebBrowser_Click' code.
        MsgBox "Add 'mnuViewWebBrowser_Click' code."
    End SubPrivate Sub mnuViewOptions_Click()
        'ToDo: Add 'mnuViewOptions_Click' code.
        MsgBox "Add 'mnuViewOptions_Click' code."
    End SubPrivate Sub mnuViewRefresh_Click()
        'ToDo: Add 'mnuViewRefresh_Click' code.
        MsgBox "Add 'mnuViewRefresh_Click' code."
    End SubPrivate Sub mnuViewStatusBar_Click()
        mnuViewStatusBar.Checked = Not mnuViewStatusBar.Checked
        sbStatusBar.Visible = mnuViewStatusBar.Checked
    End SubPrivate Sub mnuViewToolbar_Click()
        mnuViewToolbar.Checked = Not mnuViewToolbar.Checked
        tbToolBar.Visible = mnuViewToolbar.Checked
    End SubPrivate Sub mnuEditPasteSpecial_Click()
        'ToDo: Add 'mnuEditPasteSpecial_Click' code.
        MsgBox "Add 'mnuEditPasteSpecial_Click' code."
    End SubPrivate Sub mnuEditPaste_Click()
        On Error Resume Next
        ActiveForm.rtfText.SelRTF = Clipboard.GetTextEnd SubPrivate Sub mnuEditCopy_Click()
        On Error Resume Next
        Clipboard.SetText ActiveForm.rtfText.SelRTFEnd SubPrivate Sub mnuEditCut_Click()
        On Error Resume Next
        Clipboard.SetText ActiveForm.rtfText.SelRTF
        ActiveForm.rtfText.SelText = vbNullStringEnd SubPrivate Sub mnuEditUndo_Click()
        'ToDo: Add 'mnuEditUndo_Click' code.
        MsgBox "Add 'mnuEditUndo_Click' code."
    End Sub
    Private Sub mnuFileExit_Click()
        'unload the form
        Unload MeEnd SubPrivate Sub mnuFileSend_Click()
        'ToDo: Add 'mnuFileSend_Click' code.
        MsgBox "Add 'mnuFileSend_Click' code."
    End SubPrivate Sub mnuFilePrint_Click()
        On Error Resume Next
        If ActiveForm Is Nothing Then Exit Sub
            With dlgCommonDialog
            .DialogTitle = "Print"
            .CancelError = True
            .Flags = cdlPDReturnDC + cdlPDNoPageNums
            If ActiveForm.rtfText.SelLength = 0 Then
                .Flags = .Flags + cdlPDAllPages
            Else
                .Flags = .Flags + cdlPDSelection
            End If
            .ShowPrinter
            If Err <> MSComDlg.cdlCancel Then
                ActiveForm.rtfText.SelPrint .hDC
            End If
        End WithEnd SubPrivate Sub mnuFilePrintPreview_Click()
        'ToDo: Add 'mnuFilePrintPreview_Click' code.
        MsgBox "Add 'mnuFilePrintPreview_Click' code."
    End SubPrivate Sub mnuFilePageSetup_Click()
        On Error Resume Next
        With dlgCommonDialog
            .DialogTitle = "Page Setup"
            .CancelError = True
            .ShowPrinter
        End WithEnd SubPrivate Sub mnuFileProperties_Click()
        'ToDo: Add 'mnuFileProperties_Click' code.
        MsgBox "Add 'mnuFileProperties_Click' code."
    End SubPrivate Sub mnuFileSaveAll_Click()
        'ToDo: Add 'mnuFileSaveAll_Click' code.
        MsgBox "Add 'mnuFileSaveAll_Click' code."
    End SubPrivate Sub mnuFileSaveAs_Click()
        Dim sFile As String
            If ActiveForm Is Nothing Then Exit Sub
            With dlgCommonDialog
            .DialogTitle = "Save As"
            .CancelError = False
            'ToDo: set the flags and attributes of the common dialog control
            .Filter = "All Files (*.*)|*.*"
            .ShowSave
            If Len(.FileName) = 0 Then
                Exit Sub
            End If
            sFile = .FileName
        End With
        ActiveForm.Caption = sFile
        ActiveForm.rtfText.SaveFile sFileEnd SubPrivate Sub mnuFileSave_Click()
        Dim sFile As String
        If Left$(ActiveForm.Caption, 8) = "Document" Then
            With dlgCommonDialog
                .DialogTitle = "Save"
                .CancelError = False
                'ToDo: set the flags and attributes of the common dialog control
                .Filter = "All Files (*.*)|*.*"
                .ShowSave
                If Len(.FileName) = 0 Then
                    Exit Sub
                End If
                sFile = .FileName
            End With
            ActiveForm.rtfText.SaveFile sFile
        Else
            sFile = ActiveForm.Caption
            ActiveForm.rtfText.SaveFile sFile
        End IfEnd SubPrivate Sub mnuFileClose_Click()
        'ToDo: Add 'mnuFileClose_Click' code.
        MsgBox "Add 'mnuFileClose_Click' code."
    End SubPrivate Sub mnuFileOpen_Click()
        Dim sFile As String
        If ActiveForm Is Nothing Then LoadNewDoc
            With dlgCommonDialog
            .DialogTitle = "Open"
            .CancelError = False
            'ToDo: set the flags and attributes of the common dialog control
            .Filter = "All Files (*.*)|*.*"
            .ShowOpen
            If Len(.FileName) = 0 Then
                Exit Sub
            End If
            sFile = .FileName
        End With
        ActiveForm.rtfText.LoadFile sFile
        ActiveForm.Caption = sFileEnd Sub
    Private Sub mnuFileNew_Click()
        LoadNewDoc
    End Sub
    Module1 = 44, 44, 353, 364, Z
    frmMain = 132, 132, 358, 452, , 66, 66, 375, 386, C
    frmDocument = 0, 0, 0, 0, C, 88, 88, 397, 408, C
    frmSplash = 22, 22, 248, 342, , 110, 110, 419, 430, C
      

  2.   

    是啊 
    我这样子的啊
    就我所知子窗体不在PICTURE的下就是上啊
    当然你也可以在FORM_load里将子窗体设在picture的下面啊
      

  3.   

    在MDIFORM中PICTURE作为一个容器,成为MDIFORM的一部分,向菜单一样,以不会让字窗口在菜单上吧,PICTURE也一样.