vistamobile 1,700 ارسال شده در 27 مرداد، ۱۳۹۴ اشتراک گذاری ارسال شده در 27 مرداد، ۱۳۹۴ سلام!! قراره یه گالری بسازیم تو سه دخیخه راستی از کتابخونه استودنت استفاده کردم که این کتابخونه دسترسی های غیر مجاز زیادی داره پس حتما تو مانیفیست این کدها رو قرار بدین تا مارکتها گیر ندن : RemovePermission(android.permission.READ_PHONE_STATE) RemovePermission(android.permission.ACCESS_FINE_LOCATION) RemovePermission(android.permission.internet) RemovePermission(android.permission.CAMERA) بعد پروژه جدید ایجاد کنین و یه لی اوت بسازین . تو لی اوت یه پنل قرار بدین و تنظیمات پنل رو از صفر تا صد بزارین یا یه جوری که بیشتر صفحه رو بگیره. بقیه اشیا رو این پنل سوار میشن . من تو پنل اولم یه پنل دیگه ساختم و مشکی کردم و یه ایمیج ویو گذاشتم توش بعد درصد ایمیج ویو رو یک پیکسل از درصد پنلی که توشه کمتر گذاشتم تا بنظر برسه که ایمیج ویو فریم داره!! بعد یه پنل دیگه تو پنل اصلی گذاشتم و 5 تا باتون قرار دادم. دوتا باتون برای جلو و عقب بردن عکسها، یه باتون برای ذخیره سازی عکس در پوشه، یه باتون برای استراک گذاری عکس در همه جا!! و یه باتون برای تنظیم عکس به پس زمینه گوشی: برای پنل ها و باتون ها بسته به سلیقه خودتون پس زمینه و عکس و ایکون یا رنگ انتخاب کنین. یا باتونها رو مثلا در بالا بچینین یا هر جور دیگه ای من اینجوری چیدم : بریم سراغ کد نویسی : Sub Globals Private ImageView1 As ImageView Private nexpng As Button Private Panel1 As Panel Private Panel2 As Panel Private Panel3 As Panel Private perimg As Button Private savebtn As Button Private setwall As Button Private sharebtn As Button Dim startx As Int Dim a As Bitmap Dim i As Int Dim phone1 As Phone Dim shomare As Int End Sub خوب Sub Globals ما اینجوریه. هیچ چیز خاصی نداره جز اینکه کتابخونه Phone رو تیک زدیم و یه اینت به نام شماره زدیم واسه اینکه عکسهای پنل رو بشمریم. perimg این باتون عکس قبلیه nexpng این باتون عکس بعدیه savebtn این باتون ذخیره هستش setwall این باتون تنظیم به پس زمنیه هستش sharebtn این باتون اشتراک گذاری هستش پنل ها هم که مشخصه و کاری باهاشون نداریم حالا لی لوت رو معرفی میکنیم و یه فولدر هم به برنامه میدیم که بسازه. برای چی؟ برای اینکه عکسها رو ذخیره کنه. البته عکسی که کاربر ذخیره کنه نه تمامی عکسها : Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("sery1") If File.Exists(File.DirRootExternal ,"/vistawall/")=False Then File.MakeDir (File.DirRootExternal ,"vistawall") End If End Sub من اسم لی اوت اولم sery1 هستش و یه پوشه هم ساختم به اسم vistawall . تا اینجا اسون بود. حالا باید عکسهاتون رو بدین به برنامه. واسه عکسها اینجوری اسم بزارین : z0.jpg , z1.jpg , z2.jpg , ..... چرا؟ چون ما میخوایم این حرف اول که من اینجا z انتخاب کردم بشه پایه و اون عددها که از صفر شروع شده بشن شمارشگر عکسها مثلا من 14 تا عکس دارم که از صفر میشمره پس اولین عکس میشه z0.jpg و عکس چهاردهم میشه z13.jpg. یعنی از صفر تا سیزده میشه 14 تا عکس!! الان چجوری بشمریم؟ خوب من میخوام یه باتون عکس رو ببره جلو. پس میگم عکس اولم z0.jpg هستش و از این 14 برو جلو : Sub nexpng_Click i = i+1 If i>14 Then i=14 End If shomare=i a.Initialize(File.DirAssets,"z"&i&".jpg") ImageView1.SetBackgroundImage(a) End Sub و واسه باتون برگشت هم همینو با کمی تغییر میزنم : Sub perimg_Click i=i-1 If i<0 Then i=0 End If shomare=i a.Initialize(File.DirAssets,"z"&i&".jpg") ImageView1.SetBackgroundImage(a) End Sub اگر تو کد بالا قت کنین ما اون شمارشگر رو گذاشتیم که عکسها رو بشمره. یعنی هر دفعه که باتون جلو رو بزنیم یکی میره جلو و اگر عقب بزنیم یکی میاد عقب. باهاش کار داریم اساسی. الان واسه اشتراک گذاری اولش باید یه ساب تعریف کنیم: Sub CreateUri(uri As String) As Object Dim r As Reflector Return r.RunStaticMethod("android.net.Uri", "parse", Array As Object(uri), Array As String("java.lang.String")) End Sub کتابخونه Reflector رو تیک بزنین و تو رویداد باتون اشتراک هم این کد رو بریزین : Sub sharebtn_Click File.Copy (File.DirAssets ,"z"&shomare&".jpg",File.DirRootExternal ,"/vistawall/"&"vistawall"&"z"&shomare&".jpg") Dim r As Reflector Dim f As Object f = r.CreateObject2("java.lang.String", Array As Object("file:///sdcard/vistawall/"&"vistawall"&"z"&shomare&".jpg"), Array As String("java.lang.String")) Dim share As Intent share.Initialize(share.ACTION_SEND,"") share.SetType("image/*") share.PutExtra("android.intent.extra.STREAM", r.RunStaticMethod("android.net.Uri", "parse", _ Array As Object(f), Array As String("java.lang.String"))) share.WrapAsIntentChooser("ارسال عکس") StartActivity(share) End Sub این کد طولانی هستش ولی بسیار ساده. اومدیم از شمارشگره خواستیم بهمون بگه که الان کدوم عکسه تو ایمیج ویو هستش همون رو بفرست. به همین سادگی. واسه تنظیم به پس زمینه هم خیلی ساده و فقط تو چند خط اول ساب تنظیم پس زمینه رو تعریف کردیم : Sub SetWallPaper(bm As Bitmap) Dim r As Reflector r.Target = r.RunStaticMethod("android.app.WallpaperManager", "getInstance", _ Array As Object(r.GetContext), Array As String("android.content.Context")) r.RunMethod4("setBitmap", Array As Object(bm), Array As String("android.graphics.Bitmap")) End Sub و بعدش با استفاده از کتابخونه استودنت گفتیم اون عکسی که الان تو ایمیج ویو هستش رو تنظیم کن به پس زمینه : Sub setwall_Click Dim s As StudentLibrary s.SetWallPaper(a) Msgbox("به عنوان پس زمینه انتخاب شد","ویستا موبایل") End Sub خود کتابخونه میدونه چیکار کنه. شما نگران نباشین عکس مورد نظر انتخاب میشه. حالا واسه کپی عکس هم از همون اشتراک گذریه استفاده میکنیم : Sub savebtn_Click If File.ExternalWritable =True Then File.Copy(File.DirAssets ,"z"&shomare&".jpg",File.DirRootExternal ,"/vistawall/"&"vistawall"&"z"&shomare&".jpg") Msgbox("ذخیره شد"," عکس") End If End Sub همین!! چندتا نکته : مواظب دسترسی های کتابخونه استیودنت باشین عکسها رو هرجوری دوس دارین اسم گذاری کنین فقط ترتیب درست باشه اون دکمه پسندیدم کار مکینه. تست کردم سورس رو نذاشتم دوستا همین کدها رو کپی کنین سورس میشه لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
mohamadali98 21 ارسال شده در 27 مرداد، ۱۳۹۴ اشتراک گذاری ارسال شده در 27 مرداد، ۱۳۹۴ سورس و کتابخانه هاش رو با هم بگزار خواهشا لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
vistamobile 1,700 ارسال شده در 27 مرداد، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 27 مرداد، ۱۳۹۴ کتابخونه ها تو انجمن هست. و از دادن سورس معذوریم. لطفا تلاش بنمای "کتابخانه phone و Reflector پیشفرض بیسیک هستش " لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
nany12 623 ارسال شده در 27 مرداد، ۱۳۹۴ اشتراک گذاری ارسال شده در 27 مرداد، ۱۳۹۴ من قبلا سورسشو دیدم و با همین سورس یک گالری ساختم دادم بازار ولی بازار تاید نکرد(بخاطر محتواش) عالی مقامت پایین تر نیومد که لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
amirex128 19 ارسال شده در 1 شهریور، ۱۳۹۴ اشتراک گذاری ارسال شده در 1 شهریور، ۱۳۹۴ من دقیقا همین کار ها رو کردم بازم ارور میده این کد ها رو وارد کردم #Region Activity Attributes #FullScreen: False #IncludeTitle: True #End Region Sub Process_Globals 'These global variables will be declared once when the application starts. 'These variables can be accessed from all modules. End Sub Sub Globals Private ImageView1 As ImageView Private nexpng As Button Private Panel1 As Panel Private Panel2 As Panel Private Panel3 As Panel Private perimg As Button Private savebtn As Button Private setwall As Button Private sharebtn As Button Dim startx As Int Dim a As Bitmap Dim i As Int Dim phone1 As Phone Dim shomare As Int End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("galory") If File.Exists(File.DirRootExternal ,"/vistawall/")=False Then File.MakeDir (File.DirRootExternal ,"vistawall") End If End Sub Sub nexpng_Click i = i+1 If i>14 Then i=14 End If shomare=i a.Initialize(File.DirAssets,"z"&i&".jpg") ImageView1.SetBackgroundImage(a) End Sub Sub perimg_Click i=i-1 If i<0 Then i=0 End If shomare=i a.Initialize(File.DirAssets,"z"&i&".jpg") ImageView1.SetBackgroundImage(a) End Sub Sub CreateUri(uri As String) As Object Dim r As Reflector Return r.RunStaticMethod("android.net.Uri", "parse", Array As Object(uri), Array As String("java.lang.String")) End Sub Sub sharebtn_Click File.Copy (File.DirAssets ,"z"&shomare&".jpg",File.DirRootExternal ,"/vistawall/"&"vistawall"&"z"&shomare&".jpg") Dim r As Reflector Dim f As Object f = r.CreateObject2("java.lang.String", Array As Object("file:///sdcard/vistawall/"&"vistawall"&"z"&shomare&".jpg"), Array As String("java.lang.String")) Dim share As Intent share.Initialize(share.ACTION_SEND,"") share.SetType("image/*") share.PutExtra("android.intent.extra.STREAM", r.RunStaticMethod("android.net.Uri", "parse", _ Array As Object(f), Array As String("java.lang.String"))) share.WrapAsIntentChooser("ارسال عکس") StartActivity(share) End Sub Sub SetWallPaper(bm As Bitmap) Dim r As Reflector r.Target = r.RunStaticMethod("android.app.WallpaperManager", "getInstance", _ Array As Object(r.GetContext), Array As String("android.content.Context")) r.RunMethod4("setBitmap", Array As Object(bm), Array As String("android.graphics.Bitmap")) End Sub Sub setwall_Click Dim s As StudentLibrary s.SetWallPaper(a) Msgbox("به عنوان پس زمینه انتخاب شد","ویستا موبایل") End Sub Sub savebtn_Click If File.ExternalWritable =True Then File.Copy(File.DirAssets ,"z"&shomare&".jpg",File.DirRootExternal ,"/vistawall/"&"vistawall"&"z"&shomare&".jpg") Msgbox("ذخیره شد"," عکس") End If End Sub لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
vistamobile 1,700 ارسال شده در 1 شهریور، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 1 شهریور، ۱۳۹۴ عکس از ارور؟ لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
reza2001 587 ارسال شده در 7 شهریور، ۱۳۹۴ اشتراک گذاری ارسال شده در 7 شهریور، ۱۳۹۴ سلام آقا مختار ! ممنون بابت آموزش ! نمی دونید چه طور میشه عکس ها رو آنلاین گرفت و توی برنامه نمایش داد ؟! لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
vistamobile 1,700 ارسال شده در 7 شهریور، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 7 شهریور، ۱۳۹۴ داداش نه!! یه سورس از اینجا خریدم با یکی از دوستان خیلی سعی کردیم نشد!! و البته تعداد زیادی امتیاز منفی هم نصیبم شد. سر همون قضیه اینو ساختم. لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
مجید آرتا 5,874 ارسال شده در 7 شهریور، ۱۳۹۴ اشتراک گذاری ارسال شده در 7 شهریور، ۱۳۹۴ آنلاین دیگه میایید عکسو دانلود می کنید خب. توی رویداد JobDone از getBitmap استفاده کنید لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
vistamobile 1,700 ارسال شده در 7 شهریور، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 7 شهریور، ۱۳۹۴ آنلاین دیگه میایید عکسو دانلود می کنید خب. توی رویداد JobDone از getBitmap استفاده کنید سلام داداش مجید. یه تیکه کد میدی؟؟ لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
مجید آرتا 5,874 ارسال شده در 7 شهریور، ۱۳۹۴ اشتراک گذاری ارسال شده در 7 شهریور، ۱۳۹۴ سلام داداش مجید. یه تیکه کد میدی؟؟ سلام مختار جان. الان دستم بنده ولی یک آموزش کوچولو بعدا قرار میدم.( برای اینکه محصول فروشگاه بی ارزش نشه گفتم کوچولو) لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
reza2001 587 ارسال شده در 7 شهریور، ۱۳۹۴ اشتراک گذاری ارسال شده در 7 شهریور، ۱۳۹۴ سلام مختار جان. الان دستم بنده ولی یک آموزش کوچولو بعدا قرار میدم.( برای اینکه محصول فروشگاه بی ارزش نشه گفتم کوچولو) کدوم محصول فروشگاه رو میگین ؟! اگه بتونید یه آموزش کامل بزارید که نیاز به اون آموزش توی فروشگاه هم نباشه ممنون میشیم ! لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
vistamobile 1,700 ارسال شده در 7 شهریور، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 7 شهریور، ۱۳۹۴ داداش جدا کردن عکس با * و دانلود. لینک تو فروشگاه هست. لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
ali777795 11 ارسال شده در 1 مرداد، ۱۳۹۵ اشتراک گذاری ارسال شده در 1 مرداد، ۱۳۹۵ سلام دوستان ببخشید تاپیک میارم بالا از روشی که دوستمون گفتن رفتم و کاملا درست در اومد و هیچ اروری نداشت و عالی بود که جا داره تشکر کنم بعد ولی یه مشکلی که برخوردم مثلا کاربر که روی گالری کلیک می کنه فقط کس باتنا میاد و بقیه صفحه سفید و یجورایی z0 لود نمی شه اما وقتی می زنم عکس بعدی بیاد بعدش می زنم عکس قبلی بگرده درست می شه و z0 نمایش داده می شه چیکار کنم که حل بشه ؟ لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
ali777795 11 ارسال شده در 2 مرداد، ۱۳۹۵ اشتراک گذاری ارسال شده در 2 مرداد، ۱۳۹۵ دوستان کسی نمی دونه من این مشکل صفحه سفید که فقط برای اولین بار میاد چجوری حلش کنم ؟ لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
Hamed Sabet Farhadi 707 ارسال شده در 2 مرداد، ۱۳۹۵ اشتراک گذاری ارسال شده در 2 مرداد، ۱۳۹۵ دوستان کسی نمی دونه من این مشکل صفحه سفید که فقط برای اولین بار میاد چجوری حلش کنم ؟ سورستون رو پیوست کنید لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
ali777795 11 ارسال شده در 2 مرداد، ۱۳۹۵ اشتراک گذاری ارسال شده در 2 مرداد، ۱۳۹۵ دوستان فهمیدم چجوریه قضیه توی اکتیویتی کریتتون یه خطکد باید اضافه کنید (ImageView1.Bitmap=LoadBitmap(File.DirAssets,"z0.jpg" لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
mehdi.ch.52.mc 1 ارسال شده در 14 مرداد، ۱۳۹۵ اشتراک گذاری ارسال شده در 14 مرداد، ۱۳۹۵ سلام!! قراره یه گالری بسازیم تو سه دخیخه راستی از کتابخونه استودنت استفاده کردم که این کتابخونه دسترسی های غیر مجاز زیادی داره پس حتما تو مانیفیست این کدها رو قرار بدین تا مارکتها گیر ندن : RemovePermission(android.permission.READ_PHONE_STATE) RemovePermission(android.permission.ACCESS_FINE_LOCATION) RemovePermission(android.permission.internet) RemovePermission(android.permission.CAMERA) بعد پروژه جدید ایجاد کنین و یه لی اوت بسازین . تو لی اوت یه پنل قرار بدین و تنظیمات پنل رو از صفر تا صد بزارین یا یه جوری که بیشتر صفحه رو بگیره. بقیه اشیا رو این پنل سوار میشن . من تو پنل اولم یه پنل دیگه ساختم و مشکی کردم و یه ایمیج ویو گذاشتم توش بعد درصد ایمیج ویو رو یک پیکسل از درصد پنلی که توشه کمتر گذاشتم تا بنظر برسه که ایمیج ویو فریم داره!! بعد یه پنل دیگه تو پنل اصلی گذاشتم و 5 تا باتون قرار دادم. دوتا باتون برای جلو و عقب بردن عکسها، یه باتون برای ذخیره سازی عکس در پوشه، یه باتون برای استراک گذاری عکس در همه جا!! و یه باتون برای تنظیم عکس به پس زمینه گوشی: برای پنل ها و باتون ها بسته به سلیقه خودتون پس زمینه و عکس و ایکون یا رنگ انتخاب کنین. یا باتونها رو مثلا در بالا بچینین یا هر جور دیگه ای من اینجوری چیدم : بریم سراغ کد نویسی : Sub Globals Private ImageView1 As ImageView Private nexpng As Button Private Panel1 As Panel Private Panel2 As Panel Private Panel3 As Panel Private perimg As Button Private savebtn As Button Private setwall As Button Private sharebtn As Button Dim startx As Int Dim a As Bitmap Dim i As Int Dim phone1 As Phone Dim shomare As Int End Sub خوب Sub Globals ما اینجوریه. هیچ چیز خاصی نداره جز اینکه کتابخونه Phone رو تیک زدیم و یه اینت به نام شماره زدیم واسه اینکه عکسهای پنل رو بشمریم. perimg این باتون عکس قبلیه nexpng این باتون عکس بعدیه savebtn این باتون ذخیره هستش setwall این باتون تنظیم به پس زمنیه هستش sharebtn این باتون اشتراک گذاری هستش پنل ها هم که مشخصه و کاری باهاشون نداریم حالا لی لوت رو معرفی میکنیم و یه فولدر هم به برنامه میدیم که بسازه. برای چی؟ برای اینکه عکسها رو ذخیره کنه. البته عکسی که کاربر ذخیره کنه نه تمامی عکسها : Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("sery1") If File.Exists(File.DirRootExternal ,"/vistawall/")=False Then File.MakeDir (File.DirRootExternal ,"vistawall") End If End Sub من اسم لی اوت اولم sery1 هستش و یه پوشه هم ساختم به اسم vistawall . تا اینجا اسون بود. حالا باید عکسهاتون رو بدین به برنامه. واسه عکسها اینجوری اسم بزارین : z0.jpg , z1.jpg , z2.jpg , ..... چرا؟ چون ما میخوایم این حرف اول که من اینجا z انتخاب کردم بشه پایه و اون عددها که از صفر شروع شده بشن شمارشگر عکسها مثلا من 14 تا عکس دارم که از صفر میشمره پس اولین عکس میشه z0.jpg و عکس چهاردهم میشه z13.jpg. یعنی از صفر تا سیزده میشه 14 تا عکس!! الان چجوری بشمریم؟ خوب من میخوام یه باتون عکس رو ببره جلو. پس میگم عکس اولم z0.jpg هستش و از این 14 برو جلو : Sub nexpng_Click i = i+1 If i>14 Then i=14 End If shomare=i a.Initialize(File.DirAssets,"z"&i&".jpg") ImageView1.SetBackgroundImage(a) End Sub و واسه باتون برگشت هم همینو با کمی تغییر میزنم : Sub perimg_Click i=i-1 If i<0 Then i=0 End If shomare=i a.Initialize(File.DirAssets,"z"&i&".jpg") ImageView1.SetBackgroundImage(a) End Sub اگر تو کد بالا قت کنین ما اون شمارشگر رو گذاشتیم که عکسها رو بشمره. یعنی هر دفعه که باتون جلو رو بزنیم یکی میره جلو و اگر عقب بزنیم یکی میاد عقب. باهاش کار داریم اساسی. الان واسه اشتراک گذاری اولش باید یه ساب تعریف کنیم: Sub CreateUri(uri As String) As Object Dim r As Reflector Return r.RunStaticMethod("android.net.Uri", "parse", Array As Object(uri), Array As String("java.lang.String")) End Sub کتابخونه Reflector رو تیک بزنین و تو رویداد باتون اشتراک هم این کد رو بریزین : Sub sharebtn_Click File.Copy (File.DirAssets ,"z"&shomare&".jpg",File.DirRootExternal ,"/vistawall/"&"vistawall"&"z"&shomare&".jpg") Dim r As Reflector Dim f As Object f = r.CreateObject2("java.lang.String", Array As Object("file:///sdcard/vistawall/"&"vistawall"&"z"&shomare&".jpg"), Array As String("java.lang.String")) Dim share As Intent share.Initialize(share.ACTION_SEND,"") share.SetType("image/*") share.PutExtra("android.intent.extra.STREAM", r.RunStaticMethod("android.net.Uri", "parse", _ Array As Object(f), Array As String("java.lang.String"))) share.WrapAsIntentChooser("ارسال عکس") StartActivity(share) End Sub این کد طولانی هستش ولی بسیار ساده. اومدیم از شمارشگره خواستیم بهمون بگه که الان کدوم عکسه تو ایمیج ویو هستش همون رو بفرست. به همین سادگی. واسه تنظیم به پس زمینه هم خیلی ساده و فقط تو چند خط اول ساب تنظیم پس زمینه رو تعریف کردیم : Sub SetWallPaper(bm As Bitmap) Dim r As Reflector r.Target = r.RunStaticMethod("android.app.WallpaperManager", "getInstance", _ Array As Object(r.GetContext), Array As String("android.content.Context")) r.RunMethod4("setBitmap", Array As Object(bm), Array As String("android.graphics.Bitmap")) End Sub و بعدش با استفاده از کتابخونه استودنت گفتیم اون عکسی که الان تو ایمیج ویو هستش رو تنظیم کن به پس زمینه : Sub setwall_Click Dim s As StudentLibrary s.SetWallPaper(a) Msgbox("به عنوان پس زمینه انتخاب شد","ویستا موبایل") End Sub خود کتابخونه میدونه چیکار کنه. شما نگران نباشین عکس مورد نظر انتخاب میشه. حالا واسه کپی عکس هم از همون اشتراک گذریه استفاده میکنیم : Sub savebtn_Click If File.ExternalWritable =True Then File.Copy(File.DirAssets ,"z"&shomare&".jpg",File.DirRootExternal ,"/vistawall/"&"vistawall"&"z"&shomare&".jpg") Msgbox("ذخیره شد"," عکس") End If End Sub همین!! چندتا نکته : مواظب دسترسی های کتابخونه استیودنت باشین عکسها رو هرجوری دوس دارین اسم گذاری کنین فقط ترتیب درست باشه اون دکمه پسندیدم کار مکینه. تست کردم سورس رو نذاشتم دوستا همین کدها رو کپی کنین سورس میشه سلام دوست عزیز و تشکر بابت این مطلب عالییه سوال این کدها رو که برای منیفست فرمودین اضافه کنیم یا جایگزین کنیم؟ ممنون میشم پاسخ بدین فرستاده شده از GT-I9100ِ من با Tapatalk لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
Hamidbergis 332 ارسال شده در 14 مرداد، ۱۳۹۵ اشتراک گذاری ارسال شده در 14 مرداد، ۱۳۹۵ سلام دوست عزیز و تشکر بابت این مطلب عالی یه سوال این کدها رو که برای منیفست فرمودین اضافه کنیم یا جایگزین کنیم؟ ممنون میشم پاسخ بدین فرستاده شده از GT-I9100ِ من با Tapatalk اضافه کنید به مانیفست دوست عزیز لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
Hamidbergis 332 ارسال شده در 14 مرداد، ۱۳۹۵ اشتراک گذاری ارسال شده در 14 مرداد، ۱۳۹۵ سلام مختار جان. الان دستم بنده ولی یک آموزش کوچولو بعدا قرار میدم.( برای اینکه محصول فروشگاه بی ارزش نشه گفتم کوچولو) اگر وقت ندارید من همین آموزش کوچولو رو بسازم لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.