PDA

View Full Version : سوال: مشکل عجیب با OpenFileDialog



ALI TT
یک شنبه 05 آبان 1387, 19:50 عصر
سلام دوستان

من یه OpenFileDialog دارم که خاصیت Filter اون این طوری تنظیم شده :

Image (*.JPG)|*.JPG
تا اینجا مشکلی ندارم ، فایلها رو هم باز می کنه و با استفاده از دستور زیر فقط نام فایها رو میدم به یک آرایه ( نام کامل رو لازم ندارم : مسیر کامل فایل ) :

Dim FilePic_MiniPath As String() = OpenFileDialog1.SafeFileNames

مشکل من : توی کامپیوتر خودم درست کار میکنه ولی توی کامپیوتر دوستم ، وقتی که فایلها رو انتخاب میکنه ، و Open رو میزنه اورو زمان اجرا رو میده و توش نوشته :


Method not Found System String[] System windows OpenFileDialog get SafeFileNames[]

چه کنم ؟

شاید باید قبل توابعی رو به کلاس فرمم اضافه میکردم و نکردم ، مثلا مثل این :Imports System.IO

ALI TT
دوشنبه 06 آبان 1387, 00:06 صبح
کسی نیست مارو یاری کنه ........... کارم بد گیره

baran_mehr
دوشنبه 06 آبان 1387, 10:15 صبح
میشه نمونه برنامتون رو اینجا بزارید تا ما هم روی کامپیتور خودمون امتحان کنیم.
فکر میکنم اینجوری زودتر به نتیجه برسی

حامد مصافی
دوشنبه 06 آبان 1387, 11:02 صبح
چهار چوب کاری نصب شده روی کامپیوتر دوستتون یکی از نسخه های 3.5 SP1, 3.0 SP1, 2.0 SP1 نیست، درسته ؟

ALI TT
دوشنبه 06 آبان 1387, 14:27 عصر
چهار چوب کاری نصب شده روی کامپیوتر دوستتون یکی از نسخه های 3.5 SP1, 3.0 SP1, 2.0 SP1 نیست، درسته ؟

فقط 2.0 نصبه .

امروز خودم ویندوزمو عوض کردم و .NET 2.0 رو نصب کردم ( که نرم افزار اجرا بشه ) اجراش کردم ( نرم افزار .NET 2.0 هستش ) ارور داد . ولی وقتی .NET 3.5 رو نصب کردم ارور رو نداد. ولی روی اون سیستم ...... نداد

ALI TT
دوشنبه 06 آبان 1387, 14:33 عصر
میشه نمونه برنامتون رو اینجا بزارید تا ما هم روی کامپیتور خودمون امتحان کنیم.
فکر میکنم اینجوری زودتر به نتیجه برسی

ممنون
مطمئنن جواب میده !

حامد مصافی
دوشنبه 06 آبان 1387, 17:52 عصر
این خصوصیت تنها روی نسخه هایی که نام بردم موجوده.

ali_md110
سه شنبه 07 آبان 1387, 00:17 صبح
Sub open_dialog()
Dim imgPath As String
Dim openIMG As New OpenFileDialog()

Try
openIMG.Filter = "Known graphics format (*.bmp,*.jpg,*.gif,*.png)|*.bmp;*.jpg;*.gif;*.jpeg ;*.png"
openIMG.ShowDialog()
imgPath = openIMG.FileName
If imgPath <> "" Then

' PictureBox1.Image = Image.FromFile(imgPath)
End If

Catch ex As Exception
End Try
End Sub
کد شما مشکلی نداشت ولی از این کد استفاده کن شاید مفید باشه

ALI TT
سه شنبه 07 آبان 1387, 17:18 عصر
خیلی ممنون از همه دوستان که راهنمایی کردن .

کارم درست شد ، نسخه های .NET رو تست کردم درست شد .


این تایپیک بسته شد