مشکل در استفاده از آدرس فایل

[matriks]

سلام.من با استفاده ار کامپوننت دیالوگ کنترل باز کردن عکس در خود فرم را درست کردم حالا یه دکمه براش ساختم که با کلیک رو این دکمه اون مسیری رو که در دیالوگ کنترل هست و مربوط به عکس هست رو با خود نرم افزار ویندوز نشون بده.ولی نمیدونم اون مسیر رو توی چی بریزم و در داخل دستور open قرار بدم؟

[m.4.r.m]

Dim sPath As String
CommonDialog1.ShowOpen
sPath = CommonDialog1.Filename

Picture1.Picture=LoadPicture(sPath)

[matriks]

نه مثل این که خوب منظورم رو نفهمیدید منظورم این که یه جوری آدرس عکس رو داخل این دکمه بزاره و وقتی روی دکمه کلیک کردیم عکس رو با نرم افزار خود ویندوز به نام windows photo viewer باز کند

[mmssoft]

این رو توی General بذارید :

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


و بعد برای دکمه از این کد استفاده کن :

Private Sub Command1_Click()
Call ShellExecute(hWnd, "Open", CommonDialog1.FileName, "", App.Path, 1)
End Sub

یا مثلن میتونی وقتی با CommonDialog عکس رو باز میکنی و توی فرم نشونش میدی، آدرسش رو توی یه Text ذخیره کنی و بعد اینجوری بنویسی :


Private Sub Command1_Click()
Call ShellExecute(hWnd, "Open", Text1.Text, "", App.Path, 1)
End Sub

[matriks]

یه سوال دیگه هم داشتم این که حالا چه طوری میتونم با همین دستور اطلاعات دیگه از عکس ورودی بدست بیارم مثل حجم و سایز عکس و نوع فرمت و ...

[mmssoft]

یه سوال دیگه هم داشتم این که حالا چه طوری میتونم با همین دستور اطلاعات دیگه از عکس ورودی بدست بیارم مثل حجم و سایز عکس و نوع فرمت و ...

از این سورس کمک بگیرید ...