نرم افزار و نکات کاربردی

صلوات برای سلامتی پدر و مادرها و مدافعین حرم

نرم افزار و نکات کاربردی

صلوات برای سلامتی پدر و مادرها و مدافعین حرم

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

و خواهشمندم به دو مورد زیر عمل کنید :
1- یک صلوات برای سلامتی پدر و مادرها بفرستید
2- یک صلوات برای سلامتی مدافعین حرم بفرستید

ابزار حدیث

الکسا

نرم افزارهای کم حجم و کاربردی
تبلیغات
طبقه بندی موضوعی
آخرین نظرات
کسب درآمد
دوستان می تونید با این قطعه کد ( که خودم راستو ریجش کردم ) عکس یا هر فایل دیگی رو از برنامتون برای گوشی دیگه بفرستید :

If Not(File.Exists(File.DirRootExternal & "/majid/" ,"")) Then
File.MakeDir (File.DirRootExternal ,"majid")
End If
File.Copy(File.DirAssets ,"main.jpg",File.DirRootExternal & "/majid/","main.jpg")
Dim r As Reflector
Dim f As Object
f = r.CreateObject2("java.lang.String", Array As Object("file:///sdcard/majid/main.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("Share JPG")
StartActivity(share)
مجید یزدانی
لایسنس نود 32 کسب درآمد

نظرات  (۵)

کاش کدها رو خط به خط تشریح میکدید باز ممنون
سلام و خسته نباشید من کدها رو زدم  و درست عمل کرد ولی یه راهنمایی میخوام 
من یه دیتا بیس ساختم متشکل از 3 تیبل که 2 تاش متن و یکیش عکس هستش 
و برنامه رو طوری نوشتم که بره از دیتا بیس بخونه و وقتی روی ایتم لانگ کلیک کنی اونو به اشتراک بزاره کدی که نوشتم برای اشتراک گذاری متن عمل میکنه ولی واسه تصویر نه 

میشه راهنمایی کنید کد متن رو زیر میزارم ....

Sub label1_LongClick

Dim lbl As Label
lbl=Sender

Dim In As Intent
In.Initialize(In.ACTION_SEND,"")
In.SetType("text/plain")
In.PutExtra("android.intent.extra.TEXT","برگرفته از کتاب تست : : " &CRLF & CRLF & lbl.Text)
In.WrapAsIntentChooser("به اشتراک گذاری ")
StartActivity(In)
۲۷ آذر ۹۳ ، ۱۲:۴۴ برنامه نویس
آقا واقعا دستتون دردنکنه خیلی خوشحالم کردید با این کد.
موفق باشید
خیلی عالی بود مرسی
۲۶ تیر ۹۴ ، ۱۲:۵۳ رضا گلستانی فر
سلام دوست گرامی.
من چطور میتونم با استفاده از intent  یک Contact  رو به اشتراک بزارم

یا اصلا چه راهی داره

ارسال نظر

ارسال نظر آزاد است، اما اگر قبلا در بیان ثبت نام کرده اید می توانید ابتدا وارد شوید.
شما میتوانید از این تگهای html استفاده کنید:
<b> یا <strong>، <em> یا <i>، <u>، <strike> یا <s>، <sup>، <sub>، <blockquote>، <code>، <pre>، <hr>، <br>، <p>، <a href="" title="">، <span style="">، <div align="">
تجدید کد امنیتی