form9.frm

打印方面的程序

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form Form9 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "加载图片"
   ClientHeight    =   4890
   ClientLeft      =   3465
   ClientTop       =   2160
   ClientWidth     =   4710
   ControlBox      =   0   'False
   LinkTopic       =   "Form9"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4890
   ScaleWidth      =   4710
   Begin VB.CommandButton Command1 
      Caption         =   "清空"
      Height          =   375
      Left            =   1920
      TabIndex        =   3
      Top             =   4200
      Width           =   735
   End
   Begin VB.CommandButton Command3 
      Caption         =   "加载"
      Height          =   375
      Left            =   480
      TabIndex        =   2
      Top             =   4200
      Width           =   855
   End
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   2400
      Top             =   4560
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.CommandButton Command2 
      Caption         =   "退出"
      Height          =   375
      Left            =   3240
      TabIndex        =   1
      Top             =   4200
      Width           =   855
   End
   Begin VB.PictureBox Picture1 
      AutoSize        =   -1  'True
      Height          =   3855
      Left            =   0
      ScaleHeight     =   3795
      ScaleWidth      =   4635
      TabIndex        =   0
      Top             =   0
      Width           =   4695
   End
End
Attribute VB_Name = "Form9"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)




Dim fso As New FileSystemObject
Dim fld As Folder
Dim fil As File
Dim specout As String   '定义获取路径的公共变量

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
CommonDialog1.FileName = ""
CommonDialog1.Filter = "jpg(*jpg)|*.jpg|bmp(*.bmp)|*.bmp"
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
   Picture1.Picture = LoadPicture(CommonDialog1.FileName)
End If
End Sub

Private Sub Form_Load()
    SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE

End Sub