Solved

view tif file in VB with zoom function

Posted on 2002-03-22
7
191 Views
Last Modified: 2007-12-19
Hi ALL Expert,

If I want to do the above captioned functon, can it be implemented in VB? and if yes, could you please tell me how to do it

Thanks alot
kchoed
0
Comment
Question by:kchoed
  • 5
  • 2
7 Comments
 
LVL 1

Expert Comment

by:COAtheGREAT
ID: 6891540
In Windows NT you can use Wang controls to do your job with tif files. It is install with Imaging I think.
0
 
LVL 1

Expert Comment

by:COAtheGREAT
ID: 6891548
In Win 98 and Win 2000 it is Kodak controls. They work same as Wang.
0
 

Author Comment

by:kchoed
ID: 6895790
Hi COAtheGREAT

Could you please give me a small simple code to do it ?

Thanks
0
Active Directory Webinar

We all know we need to protect and secure our privileges, but where to start? Join Experts Exchange and ManageEngine on Tuesday, April 11, 2017 10:00 AM PDT to learn how to track and secure privileged users in Active Directory.

 
LVL 1

Expert Comment

by:COAtheGREAT
ID: 6895841


VERSION 5.00
Object = "{6D940288-9F11-11CE-83FD-02608C3EC08A}#1.0#0"; "IMGEDIT.OCX"
Begin VB.Form Form1
   Caption         =   "Form1"
   ClientHeight    =   6600
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   8535
   LinkTopic       =   "Form1"
   ScaleHeight     =   6600
   ScaleWidth      =   8535
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command2
      Caption         =   "Command2"
      Height          =   495
      Left            =   6360
      TabIndex        =   2
      Top             =   1440
      Width           =   1215
   End
   Begin VB.CommandButton Command1
      Caption         =   "Command1"
      Height          =   495
      Left            =   6360
      TabIndex        =   1
      Top             =   720
      Width           =   1215
   End
   Begin ImgeditLibCtl.ImgEdit ImgEdit1
      Height          =   5055
      Left            =   480
      TabIndex        =   0
      Top             =   600
      Width           =   5415
      _Version        =   65536
      _ExtentX        =   9551
      _ExtentY        =   8916
      _StockProps     =   96
      BorderStyle     =   1
      ImageControl    =   "ImgEdit1"
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()

  ImgEdit1.Zoom = ImgEdit1.Zoom * 2
  ImgEdit1.Display

End Sub

Private Sub Command2_Click()

  ImgEdit1.Zoom = ImgEdit1.Zoom / 2
  ImgEdit1.Display

End Sub

Private Sub Form_Load()

  ImgEdit1.Image = "C:\Temp\01.tif"
  ImgEdit1.Display

End Sub
0
 

Author Comment

by:kchoed
ID: 6895849
Hi COAtheGREAT

Thanks a lot , but 1 more question, is that control just allow use of tif file, will it support other format?

Thanks
kchoed
0
 
LVL 1

Expert Comment

by:COAtheGREAT
ID: 6896105
It is windows imaging whatever you can use there you can use here
0
 
LVL 1

Accepted Solution

by:
COAtheGREAT earned 200 total points
ID: 6898596
tif, bmp, jpg, pcx
0

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction I needed to skip over some file processing within a For...Next loop in some old production code and wished that VB (classic) had a statement that would drop down to the end of the current iteration, bypassing the statements that were c…
Enums (shorthand for ‘enumerations’) are not often used by programmers but they can be quite valuable when they are.  What are they? An Enum is just a type of variable like a string or an Integer, but in this case one that you create that contains…
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

821 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question