Ajutor cu un mic program VB6

am si eu nevoie de ajutor in a pune un buton in aceasta aplicatie .Vreauca imaginea care este selectata sa o pot vede in marimea ei initial .Pun inclusib sursele atasate mai jos.


Cu stima Florin





------------------------------------


VERSION 5.00
Begin VB.Form Form1
   BorderStyle     =   1  'Fixed Single
   Caption         =   "GsmHelp Service Tips Sponsored by www.gsmhosting.ro"
   ClientHeight    =   8550
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   10710
   Icon            =   "images.frx":0000
   Lspam.spamic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   8550
   ScaleWidth      =   10710
   StartUpPosition =   1  'CenterOwner
   Begin VB.CommandButton Command1
      Caption         =   "&Clear"
      Height          =   375
      Left            =   1560
      TabIndex        =   4
      Top             =   360
      Width           =   975
   End
   Begin VB.DirListBox dirImage
      Height          =   1215
      Left            =   8520
      TabIndex        =   2
      Top             =   1440
      Width           =   2055
   End
   Begin VB.warez_spamBox filImage
      Height          =   3210
      Left            =   8520
      Pattern         =   "*.bmp;*.ico;*.wmf;*.gif;*.jpg"
      TabIndex        =   3
      Top             =   3120
      Width           =   2055
   End
   Begin VB.DriveListBox drvImage
      Height          =   315
      Left            =   8520
      TabIndex        =   1
      Top             =   600
      Width           =   2055
   End
   Begin VB.CommandButton cmdShow
      Caption         =   "&Read"
      Height          =   375
      Left            =   360
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   360
      Width           =   975
   End
   Begin VB.CommandButton cmdExit
      Caption         =   "E&xit"
      Height          =   375
      Left            =   2760
      TabIndex        =   6
      Top             =   360
      Width           =   975
   End
   Begin VB.Label Label1
      AutoSize        =   -1  'True
      Caption         =   "Files:"
      Height          =   195
      Left            =   8520
      TabIndex        =   9
      Top             =   2880
      Width           =   360
   End
   Begin VB.Label Label2
      AutoSize        =   -1  'True
      Caption         =   "Directories:"
      Height          =   195
      Left            =   8520
      TabIndex        =   8
      Top             =   1080
      Width           =   795
   End
   Begin VB.Label Label3
      AutoSize        =   -1  'True
      Caption         =   "Drives:"
      Height          =   195
      Left            =   8520
      TabIndex        =   7
      Top             =   360
      Width           =   495
   End
   Begin VB.Label lblImage
      AutoSize        =   -1  'True
      Height          =   195
      Left            =   240
      TabIndex        =   5
      Top             =   6840
      Width           =   45
   End
   Begin VB.Image imgImage
      BorderStyle     =   1  'Fixed Single
      Height          =   5415
      Left            =   360
      MouseIcon       =   "images.frx":030A
      Stretch         =   -1  'True
      Top             =   960
      Width           =   7575
   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 cmdExit_Click()
End
End Sub
Private Sub cmdShow_Click()
On Error Resume Next
imgImage.Visible = True
Dim ImageName As String
If filImage.FileName = "" Then Exit Sub
If Right(filImage.Path, 1) = "\" Then
  ImageName = filImage.Path + filImage.FileName
Else
  ImageName = filImage.Path + "\" + filImage.FileName
End If
lblImage.Caption = ImageName
imgImage.Picture = LoadPicture(ImageName)
End Sub
Private Sub Command1_Click()
imgImage.Visible = False
lblImage.Caption = " "
End Sub
Private Sub dirImage_Change()
filImage.Path = dirImage.Path
End Sub
Private Sub drvImage_Change()
On Error Resume Next
dirImage.Path = drvImage.Drive
End Sub
Private Sub filImage_DblClick()
Call cmdShow_Click
End Sub
Private Sub filImage_KeyPress(KeyAscii As Integer)
Call cmdShow_Click
End Sub

Private Sub Label4_Click()

End Sub

Selectezi control acela Image si pui la Stretch: False

queensoft, on Jan 1 2009, 11:33, said:

Am incercat idea este ca am imagini cu dimesiuni mai mari si nu se mai incadreaza in cadru .este vreo comanda sa imi faca vreo functie de previzualizare

Edited by GsmHelp, 01 January 2009 - 22:07.

Pai.... tu ce-ai intrebat (sa o pot vede in marimea ei initial) si ce vrei de fapt (nu se mai incadreaza in cadru .este vreo comanda sa imi faca vreo functie de previzualizare) ??????????????????
Tu, de fapt, banuiesc eu, vrei sa vezi poza la proportia initiala, dar micsorata sa intre in fereastra programului!!

queensoft, on Jan 2 2009, 08:17, said:

man in fereastra unde vad imaginea daca selectez o imagine de dimensiune mai mare o pot incadra dar  eu am imagini cu scheme electonice si nu se mai vad detaliile.Scuze daca nu mam exprimateu corect.

Hmmm, pai.. nu inteleg.
Vrei sa afisezi imaginea exact la marimea originala, dar sa poti sa faci scroll ????
Vezi pe aici: http://planetsourcecode.com/ - sus, search