半岛权威十大直营(官方)网站

最新版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创建一个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

• 编译并运行您的项目后，您将得到如下图所示的支持上百种文件格式的图像浏览器：

本教程译自