Solved

view tif file in VB with zoom function

Posted on 2002-03-22
7
186 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
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 
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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Introduction While answering a recent question (http://www.experts-exchange.com/Q_27402310.html) in the VB classic zone, I wrote some VB code in the (Office) VBA environment, rather than fire up my older PC.  I didn't post completely correct code o…
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…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…

920 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

Need Help in Real-Time?

Connect with top rated Experts

13 Experts available now in Live!

Get 1:1 Help Now