In the Sub Show(title As String,message As String,Ok As String,Cancel As String,No As String, icon As Bitmap) As ResumableSub
Add this line right after the line "Dialog.ShowCustom":
B4X:
rs = Dialog.ShowCustom(x, Ok, No, Cancel)
EditName_TextChanged("", "")
And here is the Sub EditName_TextChanged:
B4X:
Sub EditName_TextChanged (Old As String, New As String)
Dim bt As B4XView = Dialog.GetButton(xui.DialogResponse_Positive)
bt.Visible = (New.Length > 0)
End Sub
In the Sub Show(title As String,message As String,Ok As String,Cancel As String,No As String, icon As Bitmap) As ResumableSub
Add this line right after the line "Dialog.ShowCustom":
B4X:
rs = Dialog.ShowCustom(x, Ok, No, Cancel)
EditName_TextChanged("", "")
And here is the Sub EditName_TextChanged:
B4X:
Sub EditName_TextChanged (Old As String, New As String)
Dim bt As B4XView = Dialog.GetButton(xui.DialogResponse_Positive)
bt.Visible = (New.Length > 0)
End Sub
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.