YAHOO98 – برگه 30 – پشتیبانی : 09352511893

جاستیفای کردن متن مخصوص زبانهای RTL راست به چپ مانند فارسی و عربی

Posted on ژانویه 25, 2017 by سید اسماعیل0 Posted in تکه کدهاTagged جاستیفای کردن متن مخصوص زبانهای RTL راست به چپ مانند فارسی و عربیLeave a Comment

برای جلوگیری از نامنظم بودن متن در یک ویو باید آن را جاستیفای کرد.

که برای فارسی و عربی بسیار لازم می باشد.

دانلود سورس

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Dim From As String
    Private RTLJustify1 As RTLJustifyTextView
    Dim sv As ScrollView
    Private btn1 As Button
    Private btn2 As Button
    Private Panel1 As Panel
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example
    sv.Initialize(1900dip)
    Activity.AddView(sv,0,0,100%x,100%y)
    sv.Panel.LoadLayout("Layout1")
    sv.Panel.Height = Panel1.Height
    From = File.ReadString(File.DirAssets, "Arabic-Lipsum.txt")
    RTLJustify1.SetText(From,False)
    RTLJustify1.DrawingCacheEnabled = True   
    RTLJustify1.TextColor = Colors.Blue
    RTLJustify1.TextGravity = RTLJustify1.GRAVITY_FILL_VERTICAL
   
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub btn2_Click
    RTLJustify1.SetText(From,False)
End Sub
Sub btn1_Click
    RTLJustify1.SetText(From,True)
End Sub

مرجع گیت هاب
https://github.com/Saleh-Hassan/RTL-TextJustify-Android
تاپیک در سایت مرجع
https://www.b4x.com/android/forum/threads/text-justify-for-rtl-languages.72189/#post-459114

حذف برنامه از لیست دکمه recent

Posted on ژانویه 25, 2017 by سید اسماعیل0 Posted in تکه کدهاTagged حذف برنامه از لیست دکمه recentLeave a Comment

حدف برنامه از لیست دکمه recent کار خیلی ساده ایه اگه فقط بیاید و یه خط کد رو به منیفیست اضافه کنید.

SetActivityAttribute(Main,“android:excludeFromRecents”,“true”)

مورد استفاده برای برنامه قفل یا برنامه هایی که نمیخواید کاربر از اون لیست به برنامه شما دسترسی داشته باشه و به اصطلاح برنامه رو مخفی کنید.

تشخیص زمان حذف برنامه

حالا فرض کنید از کد بالا استفاده نکردین. آیا میشه تشخیص داد چه زمانی کاربر برنامه شما رو از لیست برنامه های اخیر حذف میکنه؟

بله میشه. حتما دیدین تو تمام پروژه ها یه سرویس به اسم starter هست. توی اون میشه زمان حذف برنامه از لیست رو تشخیص داد:

منبع : معلی

دریافت اس ام اس در رشته

Posted on ژانویه 23, 2017 by سید اسماعیل0 Posted in سورس کدTagged دریافت اس ام اس در رشتهLeave a Comment

در این سورس کد ما بوسیله کتابخانه phone متن اس ام اس رو دریافت میکنم .

#Region  Project Attributes 
	#ApplicationLabel: B4A Example
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals


   Dim t As Timer
   Dim SmsMessages1 As SmsMessages


	Dim SmsList As String
	
End Sub

Sub Globals
	
End Sub

Sub Activity_Create(FirstTime As Boolean)
	

		Activity.LoadLayout("Layout1")

	
	t.Initialize("t",1000)
	t.Enabled=True
	

End Sub


Sub t_Tick
	Sms_

	End Sub



Sub salam_Finish(Success As Boolean)
	
End Sub







Sub Salam_Sended(Success As Boolean)
	
End Sub




Sub Sms_
		Dim List1 As List
		List1 = SmsMessages1.GetAllSince(DateTime.Add(DateTime.Now, -7, -7, -7))
		For i = 0 To List1.Size - 1
		Dim Sms As Sms
		Sms = List1.Get(i)
		Log(Sms.Body)
		 SmsList=Sms.Body&CRLF&SmsList

	Next
End Sub


Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub Button1_Click
	
End Sub

سورس مولتی لیبل

Posted on ژانویه 23, 2017 by سید اسماعیل0 Posted in سورس کدTagged سورس مولتی لیبلLeave a Comment

با سلام و سپاس

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

همچنین اسکرول دادن به لیبل بوسیله کد جاوا هم نیز دار سایت موجود می باشد.

دانلود سورس

دانلود نمونه APK

تابعی برای سفارشی کردن View

Posted on ژانویه 22, 2017 by سید اسماعیل0 Posted in تکه کدهاTagged تابعی برای سفارشی کردن ViewLeave a Comment

با تابع زیر هم میتونید View خودتون رو خیلی اسون وسط چین کنید :

Sub CenterView(v As View, parent As View)
v.Left = parent.Width / 2 - v.Width / 2
v.Top = parent.Height / 2 - v.Height / 2
End Sub

با تابع زیر میتونید خودتون Spinner رو باز کنید.ینی اینکه یه فلش (جهت خودمون) بذارید و وقتی روی اون کلیک شد Spinner باز بشه.

Sub OpenSpinner(s As Spinner)
 Dim r As Reflector
 r.Target = s
 r.RunMethod("performClick")
End Sub

تشخیص زبان فعلی گوشی با تابع زیر

Posted on ژانویه 22, 2017 by سید اسماعیل0 Posted in تکه کدهاTagged تشخیص زبان فعلی گوشی با تابع زیرLeave a Comment

تشخیص زبان فعلی گوشی با تابع زیر

Sub GetDefaultLanguage As String
Dim r As Reflector
r.Target = r.RunStaticMethod("java.util.Locale", "getDefault", Null, Null)
Return r.RunMethod("getDisplayName")
End Sub

تبدیل اعداد داخل یه متن به اعداد فارسی

Posted on ژانویه 22, 2017 by سید اسماعیل0 Posted in تکه کدهاTagged تبدیل اعداد داخل یه متن به اعداد فارسیLeave a Comment

تبدیل اعداد داخل یه متن به اعداد فارسی
مثال عدد ۱ رو تبدیل میکنه به ۱

Sub ConvertNumbers2Persian(sNumber As String) As String
Dim sNumbers(10) As String
Dim res As String
Dim j As Int
res = sNumber
sNumbers(0) = "٠"
sNumbers(1) = "١"
sNumbers(2) = "٢"
sNumbers(3) = "٣"
sNumbers(4) = "۴"
sNumbers(5) = "۵"
sNumbers(6) = "۶"
sNumbers(7) = "٧"
sNumbers(8) = "٨"
sNumbers(9) = "٩٩"

For i =0 To sNumber.Length - 1
j = sNumber.SubString2(i,i+1)
res = res.Replace(sNumber.CharAt(i),sNumbers(j))
Next
Return res
End Sub

ساخت یه چک باکس سفارشی با تصویر دلخواهتان

Posted on ژانویه 22, 2017 by سید اسماعیل0 Posted in تکه کدهاTagged ساخت یه چک باکس سفارشی با تصویر دلخواهتانLeave a Comment

فقط کافیه شما بجای Checkbox یه ToggleButton بیارید توی فرم و تابع زیر رو فراخوانی کنید.
دو تا تصویر میخواد یکی برای حالت معمولی و یکی هم برای حالتی که تیک خورده
جالبه نه؟!!!!

Sub ChangeCheckBoxImage(chk As ToggleButton)

Dim c1 As StateListDrawable
Dim actColor,hoverColor As BitmapDrawable

actColor.Initialize(LoadBitmapSample(File.DirAssets,"checkbox_on.png",32,32))
hoverColor.Initialize(LoadBitmapSample(File.DirAssets,"checkbox_off.png",32,32))

c1.Initialize
c1.AddState(c1.State_Checked,actColor)
c1.AddState(c1.State_Unchecked,hoverColor)
c1.AddCatchAllState(hoverColor)

chk.Background = c1

End Sub

تکه کد تغییر غیر قابل ویرایش کردن Edit Text

Posted on ژانویه 22, 2017 by سید اسماعیل0 Posted in تکه کدهاTagged تکه کد تغییر غیر قابل ویرایش کردن Edit TextLeave a Comment

به درود

آیا شده بخواهید تا حالا EditText شما غیر قابل ویرایش بشه.

یا اصل قابل انتخاب و کیلیک کردن نشه ؟

کافیه ار تابع زیر استفاده کنید.

Sub setTextIsSelectable(edt As EditText, Selectable As Boolean)
Dim jo = edt As JavaObject
jo.RunMethod("setTextIsSelectable", Array As Object(Selectable))
End Sub