پیام چند بخشی

[mohammad0064 4]

سلام به دوستان عزیز انجمن

کد B4A میخواستم برای نمایش تعداد کاراکترهای پیامی که میخواهیم ارسال کنیم مثلا بیشتر از 70 کاراکتر شد نمایش دهد:  70/2  ، نمایش کم شدن کاراکترها هم نیاز دارم از هفتاد نزولی تا صفر یا از صفر صعودی تا 70

باتشکر

 

[mohammad0064 4]

Sub Globals

	Private Label1 As Label
	Private EditText1 As EditText
	Dim tedad,num As Int
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout1")
	tedad = 1
	Label1.Text = num & "/" & tedad
End Sub

Sub EditText1_TextChanged (Old As String, New As String)
	num = EditText1.Text.Length
	If num > 70 And num < 141 Then
		tedad = 2
	Else if num > 140 Then
		tedad = 3
	else if num < 71 Then
		tedad = 1
	End If
End Sub

سلام ممنون لطف کردید مشکل حل شد. فقط دستور Label1.Text = num & "/" & tedad را در تابع edittext هم باید بنویسیم

[مهدی ایزدی 9,203]

Sub Globals

	Private Label1 As Label

	Private EditText1 As EditText

	Dim tedad,num As Int

End Sub

Sub Activity_Create(FirstTime As Boolean)

	Activity.LoadLayout("Layout1")

	tedad = 1

	Label1.Text = num & "/" & tedad

End Sub

Sub EditText1_TextChanged (Old As String, New As String)

	num = EditText1.Text.Length

	If num > 70 And num < 141 Then

		tedad = 2

	Else if num > 140 Then

		tedad = 3

	else if num < 71 Then

		tedad = 1

	End If

End Sub

[مهدی ایزدی 9,203]

سلام ممنون لطف کردید مشکل حل شد. فقط دستور Label1.Text = num & "/" & tedad را در تابع edittext هم باید بنویسیم

خواهش میکنم

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