PDA

View Full Version : سوال: load نشدن عكس در PictureBox



vahab2010
جمعه 24 دی 1389, 17:16 عصر
سلام من يه
PictureBox دارم كه تصويرش رو از بانكم در sql ميگيره يعني ادرس رو ميخونه و عكس رو load ميكنه .حالا چه طور ميتونم براي وقتي كه عكس از بين ميره و نميتونه عكس رو بخونه دستور بنويسم ؟

omid-vbAuto
جمعه 24 دی 1389, 17:31 عصر
سلام من يه
PictureBox دارم كه تصويرش رو از بانكم در sql ميگيره يعني ادرس رو ميخونه و عكس رو load ميكنه .حالا چه طور ميتونم براي وقتي كه عكس از بين ميره و نميتونه عكس رو بخونه دستور بنويسم ؟


میتونی کدی رو که از بانکت عکسو فراخونی میکونه و تو پیکچر باکس نشون میده رو بذاری؟
در ضمن با چه کدی عکس رو تو بانک ذخیره کردی؟

vahab2010
جمعه 24 دی 1389, 18:56 عصر
If ax.Text <> "" Then
(PictureBox2.Load(ax.Text
Else

End If

ميخوام قسمت در غير اين صورت بگم اگه لود نشد يه پيغام بده واسه ذخيره كردنشم ادرسش رو تو بانكم ذخيره كردم ديگه

omid-vbAuto
جمعه 24 دی 1389, 19:08 عصر
If ax.Text <> ""Then
(PictureBox2.Load(ax.Text
Else

EndIf

ميخوام قسمت در غير اين صورت بگم اگه لود نشد يه پيغام بده واسه ذخيره كردنشم ادرسش رو تو بانكم ذخيره كردم ديگه


سوالاتی که من پرسیدم پاسخشون موارد بالا نیست!!!

vahab2010
جمعه 24 دی 1389, 19:37 عصر
""+ad.SelectCommand.CommandText = "select * from moshtari where idm=" + txtcod.Text
Dim dr As SqlClient.SqlDataReader
()ad.SelectCommand.Connection.Open
dr = ad.SelectCommand.ExecuteReader
If dr.Read() Then
ax.Text = dr.Item(16).ToString

خوب با اين كد ميخونم. ادرس رو ميريزه تو يه تكس كه اسم تكسم عكسه حالا اگه اون ادرس درست باشه هيچ مشكلي نيست اما اگه برم اون عكس رو پاك كنم چون تو اون ادرس اون عكس نيست خطا ميده
من ميخوام بگم اگه اون ادرس اشتباه بود از برنامه خارج نشه يه پيغامي چيزي بده

AlgorithmX
جمعه 24 دی 1389, 23:29 عصر
If ax.Text <> "" Then
(PictureBox2.Load(ax.Text
Else

End If

ميخوام قسمت در غير اين صورت بگم اگه لود نشد يه پيغام بده واسه ذخيره كردنشم ادرسش رو تو بانكم ذخيره كردم ديگه


سلام دوست عزیر!
دلیل نمیشه که اگر ax بدون متن بود یعنی عکس وجود داره!!!
بایست دستوری بنویسی که بره آدرس ax رو چک کنه وببینه عکس وجود داره یا نه!

AlgorithmX
جمعه 24 دی 1389, 23:35 عصر
این رو امتحان کن:


If ax.text <> ""Then GoTo x
If My.Computer.FileSystem.FileExists(Ax.text) = True Then
PictureBox2.Load(ax.Text)
Else
x: MsgBox("Picture not found!", MsgBoxStyle.Exclamation, "Error !")
End If