ُسورس برنامه روشن کردن تصاویر تیره ( مورد تایید بازار + برنامه پولی )

[Elyas Erfani 3,582]

سلام

 

خوب خیلی وقته سورس واسه بیسیک نذاشتم

 

سورس یکی از برنامه هامو توی بازار میذارم ک پولی هم بود ولی خوب قابل بچه های انجمنو نداره فوق العاده سادس

 

لینک برنامه در کافه بازار :  https://cafebazaar.ir/app/com.elyas.brightnesss/?l=fa

 

دانلود سورس :  http://s5.picofile.com/file/8226525184/%D8%B1%D9%88%D8%B4%D9%86_%DA%A9%D8%B1%D8%AF%D9%86_%D8%AA%D8%B5%D8%A7%D9%88%DB%8C%D8%B1_%D8%AA%DB%8C%D8%B1%D9%87.rar.html

 

رمز : answercenter.ir

 

[naser sahami 90]

از اونجا که من از گربه میترسم گرافیک 17و ایده 19

[bahonar19 23]

بسیار عالی هست ، فقط تمامی کتابخانه های استفاده شده رو بنویسید (+نسخشون ، چون هر نسخه کتابخانه ها تغییر میکنن )در صورت امکان پیوست کنید

با تشکر فراوان .

واقعا عالیست .

[Elyas Erfani 3,582]

بسیار عالی هست ، فقط تمامی کتابخانه های استفاده شده رو بنویسید (+نسخشون ، چون هر نسخه کتابخانه ها تغییر میکنن )در صورت امکان پیوست کنید

با تشکر فراوان .

واقعا عالیست .

سلام

ی کتابخونه‌ Sql و Phone ک خود بیسیک داره

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

[sajjadrastin 100]

ممنون از سورس بسیار خوبتون

من سورس شما رو دیدم و به نطر من شما باید به قسمت کلیک باتون 1 یک این کد ها رو اضافه کنید:

Sub Button1_Click
	If Button1.Text = "انتخاب عکس" Then
	Msgbox("لطفا عکس مورد نظر را انتخاب کنید" , "توجه")
	cc.Show("image/*","عکس خود را انتخاب کنید")
	Else If Button1.Text = "ذخیره کردن عکس" Then
ap.SavePic(ImageView1.Bitmap,File.DirRootExternal,random&".jpg",100)
	ToastMessageShow("عکس شما در حافظه داخلی دستگاه و با نام : " & random &  " ذخیره شد !",True)
	aria.AddMediaToGallery(File.DirRootExternal,random&".jpg")
	End If
End Sub

این کد اضافه شده:

aria.AddMediaToGallery(File.DirRootExternal,random&".jpg")

به دلیل اینکه بعد از سیو شدن عکس در حافظه بلافاصله عکس در گالری نمایش داده شود.

 

پیشنهاد میکنم این تغییرات را اعمال کنید و ورژن جدید برنامه را در بازار انتشار دهید.