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

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

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

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

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

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

تبلیغات
Blog.ir بلاگ، رسانه متخصصین و اهل قلم، استفاده آسان از امکانات وبلاگ نویسی حرفه‌ای، در محیطی نوین، امن و پایدار bayanbox.ir صندوق بیان - تجربه‌ای متفاوت در نشر و نگهداری فایل‌ها، ۳ گیگا بایت فضای پیشرفته رایگان Bayan.ir - بیان، پیشرو در فناوری‌های فضای مجازی ایران
طبقه بندی موضوعی
آخرین نظرات

ارسال عکس با بلوتوث و برنامه های دیگر در B4A

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

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)
  • مجید یزدانی

نظرات  (۵)

کاش کدها رو خط به خط تشریح میکدید باز ممنون
سلام و خسته نباشید من کدها رو زدم  و درست عمل کرد ولی یه راهنمایی میخوام 
من یه دیتا بیس ساختم متشکل از 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="">
    تجدید کد امنیتی