www.pudn.com > jpegapi.zip > jpeg_vb.frm

VERSION 5.00 
Begin VB.Form Form1  
   Caption         =   "JPEG TEST" 
   ClientHeight    =   6060 
   ClientLeft      =   60 
   ClientTop       =   345 
   ClientWidth     =   8940 
   LinkTopic       =   "Form1" 
   ScaleHeight     =   6060 
   ScaleWidth      =   8940 
   StartUpPosition =   3  'Windows Default 
   Begin VB.CommandButton Command3  
      Caption         =   "Init Dll" 
      Height          =   375 
      Left            =   6480 
      TabIndex        =   3 
      Top             =   120 
      Width           =   1215 
   End 
   Begin VB.CommandButton Command2  
      Caption         =   "To Clipboard" 
      Height          =   375 
      Left            =   6480 
      TabIndex        =   2 
      Top             =   1920 
      Width           =   1335 
   End 
   Begin VB.TextBox Text1  
      Height          =   375 
      Left            =   6480 
      TabIndex        =   1 
      Text            =   "c:\temp\birdc.jpg" 
      Top             =   1320 
      Width           =   2175 
   End 
   Begin VB.CommandButton Command1  
      Caption         =   "Read Jpeg" 
      Height          =   375 
      Left            =   6480 
      TabIndex        =   0 
      Top             =   720 
      Width           =   1215 
   End 
End 
Attribute VB_Name = "Form1" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Private Declare Function init_jpeg1 Lib "jpegdll.dll" () As Long 
Private Declare Function findwindow1 Lib "jpegdll.dll" (ByVal name As String) As Long 
Private Declare Function showjpg1 Lib "jpegdll.dll" (ByVal name As String, ByVal hd As Long, ByVal l As Long, ByVal t As Long) As Long 
Private Declare Function to_clip1 Lib "jpegdll.dll" (ByVal hl As Long, ByVal t As Long) As Long 
Private Sub Command1_Click() 
Dim rc As Long 
Dim hl As Long 
Dim name As String 
name = Text1.Text 
hl = findwindow1("JPEG TEST") 
rc = showjpg1(name, hl, 2, 2) 
End Sub 
 
Private Sub Command2_Click() 
Dim rc As Long 
Dim hl As Long 
hl = findwindow1("JPEG TEST") 
rc = to_clip1(hl, 0) 
End Sub 
 
Private Sub Command3_Click() 
Dim rc As Long 
rc = init_jpeg1() 
End Sub