i am work on some b4a code, we used b4xpage and b4xdialog, with ASWheelPicker
here i attached screen shot
if we remove ASwheelpicker from design layout, our code is working
or
if remove this code line >>
Private selectedPanelIndex As Int '<<-------
Private senderButton As Button = Sender '<<-------
Private parentPanel As B4XView = senderButton.Parent ' Get the parent panel '<<-------
selectedPanelIndex = senderButton.Tag '<<-------
Log(selectedPanelIndex) '<<-------
its b4xdialog work with ASwheelpicker
B4X:
Private Sub ShowDialog(item As Map, RowId As Int)
'xui.MsgboxAsync("Hello world!", "B4X")
Dim v As B4XView = xui.CreatePanel("")
v.SetLayoutAnimated(0,0,0,90%x,600dip) '//'set the dialog-content size
v.LoadLayout("dialog_layout")
dialog.Title="SET Mode"
dialog.BorderWidth = 0
dialog.BorderCornersRadius=10
dialog.TitleBarColor = xui.Color_ARGB(255, 140, 140, 140)
dialog.ButtonsColor = xui.Color_ARGB(255, 140, 140, 140)
dialog.ButtonsTextColor = xui.Color_ARGB(255, 255, 255, 255)
dialog.BackgroundColor = xui.Color_ARGB(255, 255, 255, 230)
'//--------------------------------------------------------------------------------------
'---->>> When add this code line, the dialog_layout not load
Private selectedPanelIndex As Int '<<-------
Private senderButton As Button = Sender '<<-------
Private parentPanel As B4XView = senderButton.Parent ' Get the parent panel '<<-------
selectedPanelIndex = senderButton.Tag '<<-------
Log(selectedPanelIndex) '<<-------
'--------------------------------- End -----------------------------------------------------'
'dialog.ShowCustom(v,"Ok","","Cansel")
Dim obj As Object = dialog.ShowCustom(v,"Ok","","Cansel")
wait For(obj) complete (result As Int)
If result = xui.DialogResponse_Positive Then
Log("Closed Dialog")
End If
End Subhere i attached screen shot
if we remove ASwheelpicker from design layout, our code is working
or
if remove this code line >>
Private selectedPanelIndex As Int '<<-------
Private senderButton As Button = Sender '<<-------
Private parentPanel As B4XView = senderButton.Parent ' Get the parent panel '<<-------
selectedPanelIndex = senderButton.Tag '<<-------
Log(selectedPanelIndex) '<<-------
its b4xdialog work with ASwheelpicker
Last edited: