رفتن به مطلب
  • 0

پیام چند بخشی


mohammad0064

سوال

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

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

باتشکر

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

3 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

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 هم باید بنویسیم

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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 هم باید بنویسیم

خواهش میکنم

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...