دسته: تکه کدها

با سلام .

یه آموزش خیلی کاربردی که شاید ۹۷% تون بلد نباشید

گه بخواید یه لیبل بر اساس کوتاه یا بلند بودن متن داخلش ارتفاع داشته باشه ٬ چیکار میکنید ؟

مطمئناً از کتابخونه StringUtils استفاده میکنید یا یه سری ترفند بهش میزنید.

اما !!!

فقط کافیه که موقع AddView کردن ٬ بجای ۱۰۰%y ٬ ۲- بدید.

Activity.AddView(Label, 0, 0, -1, -2)

و اگه ۱- بزارید حکم تمام صفحه رو داره انگار زدید x%100

MATCH_PARENT = -1
WRAP_CONTENT = -2

سلام و سپاس
از تابع زیر برای share عکس و متن توسط اینستاگرام و تویتر میتوانید استفاده کنید :

Dim u As Uri 'ContentResolver library
u.Parse("file://" & File.Combine(a, "tmpfile.jpg"))
Dim inten As Intent
Dim tmpt As String = "your text"
inten.Initialize(inten.ACTION_SEND,"")
inten.SetType("image/*")
inten.PutExtra("android.intent.extra.STREAM",u)
inten.PutExtra("android.intent.extra.TEXT",tmpt)
inten.SetComponent("com.instagram.android/.activity.ShareHandlerActivity")
StartActivity(inten)

کد بالا برای اینستاگرام برای تویتر فقط کد زیر رو جایگزین کنید :

inten.SetComponent("com.twitter.android/.composer.ComposerActivity")

توجه: کتابخانه contentResolver را تیک بزنید (کتابخانه خود بیسیک هست)

با سلام و سپاس

با زدن تیک کتابخانه phone میتونید رویداد های زیر رو کنترل کنید :

• حالت صدادار
• حالت بیصدا
• حالت ویبره

Dim k6 As Phone
حالت صدادار
k6.SetRingerMode(k6.RINGER_NORMAL)
حالت بیصدا
k6.SetRingerMode(k6.RINGER_SILENT)
حالت ویبره
k6.SetRingerMode(k6.RINGER_VIBRATE)

با سلام

دیدم همه سپاس دادن مشتاق شدم یک آموزش زیبایی دیگر هم بزارم .

• اول دوتا ادیت تکست به پروژه میکنیم و یک باتن هم اضافه میکنیم.
• دوم  به برنامه معرفی می کنیم.

Private syededit As EditText

Private syededit2 As EditText

Private syedbtn as button

• حالا در ساب Sub Globals می نویسیم

Dim syed As PhoneSms

• و بعد :

Sub syedbtn_click

syed.Send(syededit.Text , syededit2.Text)

End Sub

• و برای فهمیدن رفتن اس ام اس از این ساب استفاده کنید :

Sub check_SmsSentStatus (Success As Boolean, ErrorMessage As String, PhoneNumber As String, Intent As Intent)

If Success=False Then

Msgbox("اس ام اس نرفت" & ErrorMessage,"ارور")

Else

Msgbox("اس ام اس رفت","و الآن دست گیرنده لس ام اس می باشد :)))")

End If

End Sub

ان شا ء الله که مفید واقه بشه …

با سپاس

با ای نیک خط کد میشه آیکون برنامه رو از گوشی یا اندروید پاک کرد.

• کافیه خط زیر رو به مانیفستتون اضافه کنید :

AddReplacement(android.intent.action.MAIN, unused_action)

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

برای مخفی کردن آیکون برنامه 

Sub SetTiledBackground(v as View, b as Bitmap)
  Dim bd As BitmapDrawable
  bd.Initialize(b)

  Dim r As Reflector
  r.Target = bd
  r.RunMethod3("setTileModeXY","REPEAT", "android.graphics.Shader$TileMode", _
                        "REPEAT", "android.graphics.Shader$TileMode")
  v.Background = bd
End Sub

اول ساب بالا رو در پروژه‌ خودتون قرار بدید بعد فراخوانیش کنید :

SetTiledBackground(Activity, LoadBitmap(File.DirAssets("TileBG.png")))

پارامتر ویویی که میدید هر ویویی میتونه باشه

ابتدا کتابخونه Phone رو تیک بزنید.

و بعد به صورت زیر عمل میکنیم :

Sub Globals

Dim PW As PhoneWakeState
         
End Sub

برای جلوگیری از خاموش شدن گوشی در سرویس یا اکتیویتی :

pw.KeepAlive(True)

برای غیرفعال کردن حالت بالا :

pw.ReleaseKeepAlive

با این کد میتوانید رنگ متن Label,Buton,EditText را شیب دار کنید

اول از همه کتابخانه JavaObject را تیک بزنید. بعد کد Inline و تابع زیر را در اکتیویتی خود قرار دهید.

Sub SetLabelTVGC(Label As Label,StartColor As Int,EndColor As Int)
Dim j As JavaObject
J.InitializeContext.RunMethod("setLabelTextGradientColor",Array(Label,StartColor,EndColor))
End Sub

#If Java
import android.graphics.*;
public void setLabelTextGradientColor(android.widget.TextView tv,int startColor,int endColor){
tv.getPaint().setShader(new LinearGradient(0,0,0,tv.getLineHeight(), startColor, endColor, Shader.TileMode.REPEAT));
}
#End If

حال برای شیب دار کردن متن Label یا… کد زیر را بنویسید

 SetLabelTVGC(Label,StartColor,EndColor)