simpletest.frm

最棒的三大计算机视觉、图像图形函数库之一

VERSION 5.00
Begin VB.Form SimpleTest 
   Caption         =   "SimpleTest"
   ClientHeight    =   1035
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   2325
   LinkTopic       =   "Form1"
   ScaleHeight     =   1035
   ScaleWidth      =   2325
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton btnTest 
      Caption         =   "Test"
      Height          =   495
      Left            =   240
      TabIndex        =   0
      Top             =   240
      Width           =   1575
   End
End
Attribute VB_Name = "SimpleTest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
' NOTE :
' To run this test program, you will have to copy the FreeImage.dll file
' in this directory.
' Change also the "test.tif" file name with a path to any tif file on your
' hard disk
'
Private Sub btnTest_Click()
  Dim dib As Long
  Dim bOK As Long
  ' Load a tif image
  dib = FreeImage_Load(FIF_TIFF, "test.tif", 0)
  
  ' Save this image as PNG
  bOK = FreeImage_Save(FIF_PNG, dib, "test.png", 0)
  
  ' Unload the dib
  FreeImage_Unload (dib)

End Sub