|
This
happens when you set the FileDlgFlags to OPEN_ALLOWMULTI (512), in order to use
the OPEN_ALLOWMULTI with the FileName property returning the correct path, you
must handle the oFileDlg_FileLoad event. Please find below the code sample that
will do that:
'++++++++++++++++++++++++++++
Option
Explicit
Dim
WithEvents oFileDlg As LEADRasterDlgFile
'if
you want to use OPEN_ALLOWMULTI, you must
'
handle the oFileDlg_FileLoad event
Private
Sub Command1_Click(Index As Integer)
Set
oFileDlg = New LEADRasterDlgFile
Dim
DialogKernal As New LEADRasterDlgKrn
Dim
nRet As Integer
Call
DialogKernal.InitDlg(1)
oFileDlg.Filter
= "JPEG|*.jpg|BMP|*.bmp|GIF|*.gif"
oFileDlg.EnableShowPreview
= True
oFileDlg.UIFlags
= 64
oFileDlg.FileDlgFlags
= OPEN_ALLOWMULTI '512
oFileDlg.DialogTitle
= "Open A File"
oFileDlg.FilterIndex
= 0
oFileDlg.InitialDir
= "C:\Temp\Temp 1"
oFileDlg.Bitmap
= 0
Call
oFileDlg.ShowOpenDlg(0)
Call
DialogKernal.FreeDlg
End
Sub
Private
Sub oFileDlg_FileLoad(ByVal iTotalPercent As Integer, ByVal FilePercent As
Integer)
If
(FilePercent = 100) Then
MsgBox
oFileDlg.FileName
End
If
End
Sub
'++++++++++++++++++++++++++++
Adam Boulad
LEADTOOLS Technical Support
|