最新版ImageGear Professional下載

詳細步驟:

• 為Form_Load 與 Form_Resize添加以下Form聲明和子程序:

Private currentPage As IGPage
Private currentPageDisp As IGPageDisplay
Private currentFileDialog As IGFileDlg
Private Sub Form_Load()
    On Error GoTo ErrorHandler
    IGCoreCtl1.License.SetSolutionName "Accusoft"
    IGCoreCtl1.Result.NotificationFlags = IG_ERR_OLE_ERROR
    IGCoreCtl1.AssociateComponent
IGFormatsCtl1.ComponentInterface
    IGCoreCtl1.AssociateComponent
IGDisplayCtl1.ComponentInterface
    IGDlgsCtl1.GearFormats =
IGFormatsCtl1.ComponentInterface
    IGDlgsCtl1.GearCore = IGCoreCtl1.ComponentInterface
    IGDlgsCtl1.GearDisplay =
IGDisplayCtl1.ComponentInterface
Set currentFileDialog = IGDlgsCtl1.CreateFileDlg
    Set currentPage = IGCoreCtl1.CreatePage
    Set currentPageDisp =
IGDisplayCtl1.CreatePageDisplay(currentPage)
    IGPageViewCtl1.PageDisplay = currentPageDisp
IGPageViewCtl1.UpdateView
    Exit Sub
ErrorHandler:
    MsgBox "Errors on stack? " & IGCoreCtl1.Result.isOk &
vbCrLf & Err.Description, vbCritical, "An error has
occurred"
End Sub
Private Sub Form_Resize()
    If Me.Height > 0 Then
        IGPageViewCtl1.Height = Me.ScaleHeight
    End If
    If Me.Width > 0 Then
        IGPageViewCtl1.Width = Me.ScaleWidth
    End If
End Sub

• 通過下列代碼或單擊表單上的菜單為mnuOpen創(chuàng)建一個click程序：

Private Sub mnuOpen_Click()
    On Error GoTo ErrorHandler
    Dim loadDialogOptions As IGFileDlgPageLoadOptions
    Set loadDialogOptions = _

IGDlgsCtl1.CreateFileDlgOptions(IG_FILEDLGOPTIONS_PAGELOADOB
J)
    If currentFileDialog.Show(loadDialogOptions) Then
        IGFormatsCtl1.LoadPageFromFile currentPage,
loadDialogOptions.FileName, _
                loadDialogOptions.PageNum
    End If
    IGPageViewCtl1.UpdateView
    Exit Sub
ErrorHandler:
    MsgBox "Errors on stack? " & IGCoreCtl1.Result.isOk &
vbCrLf & Err.Description, vbCritical, "An error has
occurred"
End Sub

• 通過下列代碼或者分別雙擊每個控件為mnuZoomin和mnuZoomout指令添加click程序：

Private Sub mnuZoomIn_Click()
    On Error GoTo ErrorHandler
    Dim zoomzoom As IGDisplayZoomInfo
    Set zoomzoom =
currentPageDisp.GetZoomInfo(IGPageViewCtl1.hWnd)
    zoomzoom.HZoom = zoomzoom.HZoom * 1.25
    zoomzoom.VZoom = zoomzoom.VZoom * 1.25
    zoomzoom.Mode = IG_DSPL_ZOOM_H_FIXED Or
IG_DSPL_ZOOM_V_FIXED
    currentPageDisp.UpdateZoomFrom zoomzoom
    IGPageViewCtl1.UpdateView
    Exit Sub
ErrorHandler:
    MsgBox "Errors on stack? " & IGCoreCtl1.Result.isOk &
vbCrLf & Err.Description, vbCritical, "An error has
occurred"
End Sub

• 編譯并運行您的項目后，您將得到如下圖所示的支持上百種文件格式的圖像瀏覽器：

本教程譯自