مشکل در بازخورد دادن به یک باتون در b4a

[omidamitis 0]

سلام خسته نباشید

من در حال ساخت یه برنامه با b4a هستم و می خواستم کابر ابتدا یک متن رو تو یک تکست ادیت وارد کنه و بعد یک باتون رو بزنه و اگر متن وارد شده با یک متن که تو یک لیب است یکی بود یک ایمیج ویو ظاهر بشه ولی هرکار کردم نشد با if و else انجامش بدم سینتکس ارور می ده .

لطفا راهنماییم کنید

 

[hemmaty76 175]

Sub Globals

Private Label1 As Label

Private EditText1 As EditText

Private Button1 As Button

End Sub

Sub Activity_Create(FirstTime As Boolean)

Activity.LoadLayout("Layout1")

Label1.Text="hi"

End Sub

Sub Button1_Click

If Label1.Text=EditText1.Text Then

ExitApplication

End If

End Sub

[amirjun32 105]

 

سلام خسته نباشید

من در حال ساخت یه برنامه با b4a هستم و می خواستم کابر ابتدا یک متن رو تو یک تکست ادیت وارد کنه و بعد یک باتون رو بزنه و اگر متن وارد شده با یک متن که تو یک لیب است یکی بود یک ایمیج ویو ظاهر بشه ولی هرکار کردم نشد با if و else انجامش بدم سینتکس ارور می ده .

لطفا راهنماییم کنید

 

 

 

 

بفرما.

فقط یادت باشه که ایمیج ویو رو از داخل پراپرتیز دیزاینر مقدارvisible=false  قرار بدی.

 

اینم کدات.

 

Sub Globals
	Private Button1 As Button
	Private EditText1 As EditText
	Private Label1 As Label
Dim imag As ImageView
End Sub

Sub Activity_Create(FirstTime As Boolean)

	Activity.LoadLayout("Layout1")
Label1.Text="ali"
End Sub


Sub Button1_Click
			If Label1.Text==EditText1.Text Then
				ToastMessageShow("barabar ast",False)
				imag.Visible=True
				Else
					ToastMessageShow("barabar nist",False)
					End If
End Sub

[omidamitis 0]

آقا فوق العاده ممنون دستتون درد نکنه