www.pudn.com > textmanager.rar > FrmView.frm, change:2005-04-12,size:4715b


VERSION 5.00 
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX" 
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL" 
Object = "{38911DA0-E448-11D0-84A3-00DD01104159}#1.1#0"; "COMCT332.OCX" 
Begin VB.Form FrmView  
   Caption         =   "ԾԤ" 
   ClientHeight    =   7905 
   ClientLeft      =   60 
   ClientTop       =   345 
   ClientWidth     =   9180 
   LinkTopic       =   "Form1" 
   LockControls    =   -1  'True 
   MinButton       =   0   'False 
   ScaleHeight     =   7905 
   ScaleWidth      =   9180 
   StartUpPosition =   2  'Ļ 
   Begin MSComctlLib.ImageList ImageList1  
      Left            =   300 
      Top             =   4245 
      _ExtentX        =   1005 
      _ExtentY        =   1005 
      BackColor       =   -2147483643 
      ImageWidth      =   16 
      ImageHeight     =   16 
      MaskColor       =   12632256 
      _Version        =   393216 
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}  
         NumListImages   =   2 
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}  
            Picture         =   "FrmView.frx":0000 
            Key             =   "" 
         EndProperty 
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}  
            Picture         =   "FrmView.frx":0164 
            Key             =   "" 
         EndProperty 
      EndProperty 
   End 
   Begin ComCtl3.CoolBar CoolBar1  
      Align           =   1  'Align Top 
      Height          =   420 
      Left            =   0 
      TabIndex        =   1 
      Top             =   0 
      Width           =   9180 
      _ExtentX        =   16193 
      _ExtentY        =   741 
      BandCount       =   2 
      _CBWidth        =   9180 
      _CBHeight       =   420 
      _Version        =   "6.0.8169" 
      Child1          =   "Toolbar1" 
      MinHeight1      =   330 
      Width1          =   8100 
      NewRow1         =   0   'False 
      MinHeight2      =   360 
      NewRow2         =   0   'False 
      Begin MSComctlLib.Toolbar Toolbar1  
         Height          =   330 
         Left            =   165 
         TabIndex        =   2 
         Top             =   45 
         Width           =   8760 
         _ExtentX        =   15452 
         _ExtentY        =   582 
         ButtonWidth     =   609 
         ButtonHeight    =   582 
         Style           =   1 
         ImageList       =   "ImageList1" 
         _Version        =   393216 
         BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}  
            NumButtons      =   4 
            BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}  
               Object.ToolTipText     =   "ӡԾ" 
               ImageIndex      =   1 
            EndProperty 
            BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}  
               Object.ToolTipText     =   "رԤ" 
               ImageIndex      =   2 
            EndProperty 
            BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}  
               Style           =   3 
            EndProperty 
            BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}  
               Style           =   3 
            EndProperty 
         EndProperty 
      End 
   End 
   Begin SHDocVwCtl.WebBrowser Web  
      Height          =   5670 
      Left            =   360 
      TabIndex        =   0 
      Top             =   510 
      Width           =   7425 
      ExtentX         =   13097 
      ExtentY         =   10001 
      ViewMode        =   0 
      Offline         =   0 
      Silent          =   0 
      RegisterAsBrowser=   0 
      RegisterAsDropTarget=   1 
      AutoArrange     =   0   'False 
      NoClientEdge    =   0   'False 
      AlignLeft       =   0   'False 
      ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}" 
      Location        =   "" 
   End 
End 
Attribute VB_Name = "FrmView" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Option Explicit 
 
 
Private Sub Form_Resize() 
 On Error GoTo err: 
  Web.Top = CoolBar1.Height 
  Web.Left = 0 
  Web.Height = FrmView.ScaleHeight - CoolBar1.Height 
  Web.Width = FrmView.ScaleWidth 
err: 
End Sub 
Public Sub PrintWebPage(URL As String) 
    'c:\windows\system\ 
    Shell "rundll32.exe MSHTML.dll,PrintHTML " & URL, vbNormalFocus 
     
End Sub 
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) 
 Select Case Button.Index 
  Case 1 
     'print 
    ' PrintWebPage Web.LocationURL 
      
  Case 2 
    Unload Me 
  End Select 
   
End Sub