Solved

view tif file in VB with zoom function

Posted on 2002-03-22
7
185 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
Highfive Gives IT Their Time Back

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

 
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

IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

I’ve seen a number of people looking for examples of how to access web services from VB6.  I’ve been using a test harness I built in VB6 (using many resources I found online) that I use for small projects to work out how to communicate with web serv…
When trying to find the cause of a problem in VBA or VB6 it's often valuable to know what procedures were executed prior to the error. You can use the Call Stack for that but it is often inadequate because it may show procedures you aren't intereste…
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…

757 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

19 Experts available now in Live!

Get 1:1 Help Now