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

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

امیدوارم بتوانم در این وبلاگ به شما دوستان در زمینه های مختلف کامپیوتری کمک کنم .

اگه مشکلتون تو این سایت با دانش اندک بنده حل شد خدا رو شاکر هستم

در جهت ادامه روند سایت نیاز به حمایت شما دوستان هست اگه مطالبی که گذاشتم راه حل مشکل شما بود ، شما دو راه دارید !!!! :

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

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

۱ مطلب با موضوع «کدنویسی :: B4A» ثبت شده است

ارسال عکس با بلوتوث و برنامه های دیگر در 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)