پاسخ ها ( 2 )

  1. morteza
    0
    2020-09-22T15:44:15+03:30
    پاسخ

    سلام.

    این چیه،سواله؟!
    میشه واضح تر بپرسی؟

    • مسعود
      0
      2020-11-10T13:57:55+03:30
      پاسخ

      یک scrollview ساختم و از یک چک باکس از طریق لایبرری AnimCheckBox در آن استفاده کردم ولی نمیتونم به tag چک باکس در click آن دسترسی پیدا کنم وقتی از sender در sub استفاده میکنم خطا میده

  2. مسعود
    0
    2020-11-11T13:45:40+03:30
    پاسخ 
    Sub Globals
	'These global variables will be redeclared each time the activity is created.

'	Private chk As AnimCheckBox

	Dim PanelHeight As Int	: PanelHeight = 45dip

	Private ScrollView1 As ScrollView
	Private Panel1 As Panel
End Sub

Sub Activity_Create(FirstTime As Boolean)
	
	ScrollView1.Initialize(100)
	
	Activity.AddView(ScrollView1, 0, 50, 100%x, 100%y-300)
	

	For i = 0 To 100 
		Dim Panel1 As Panel
		Dim chk As AnimCheckBox
		Dim txt As EditText
		Panel1.Initialize("")
		ScrollView1.Panel.AddView(Panel1,0,i*PanelHeight,100%x,PanelHeight)
		If (i Mod 2)=1 Then
			Panel1.Color=Colors.White
		Else
			Panel1.Color=Colors.Blue
		End If
		chk.Initialize("chk")
		Panel1.AddView(chk,100%x-32dip, 5dip, 36dip, 36dip)
		chk.Tag=i
		
		txt.Initialize("txt")
		Panel1.AddView(txt,0, 5dip, 400dip, 36dip)
		txt.Tag=i
		
	Next

	ScrollView1.Panel.Height = 100*PanelHeight

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
		
Sub Chk_check_changed
	Log("chkchange")
	Dim chk As AnimCheckBox  = Sender
	Log(chk.tag)  '   اینجا خطا میده

End Sub

Sub txt_click
	Log("txtclick")
	Dim txt As EditText = Sender
	Log(txt.Tag)
End Sub

Sub txt_TextChanged (Old As String, New As String)
	Log("textchanged")
	Dim txt As EditText = Sender
	Log(txt.Tag)
End Sub

Sub txt_FocusChanged (HasFocus As Boolean)
	Log("focuschange")
	Dim txt As EditText = Sender
	Log(txt.Tag)
'	Dim chk As AnimCheckBox = Sender    'اگر بعد از یکبار کامپایل در حالت دیباگ این دو خط رو از حالت کامنت دربیاری جالبه که اینجا کار میکنه
'	Log(chk.tag)
End Sub


'
'B4A Version: 10.0
'Java Version: 8
'Parsing code.    (0.01s)
'Building folders structure.    (0.02s)
'Compiling code.    (0.03s)
'Compiling layouts code.    (0.00s)
'Organizing libraries.    (0.00s)
'	(AndroidX SDK)
'Generating R File.    (0.00s)
'Compiling debugger engine code.    (0.00s)
'Compiling generated Java code.    Error
'B4A line: 74
'Dim chk As AnimCheckBox = Sender
'javac 1.8.0_131
'src\chk\list\saba\main.java:505: error: cannot find symbol
'_chk = (animcheckboxwrapper.animCheckBoxWrapper) anywheresoftware.b4a.AbsObjectWrapper.ConvertToWrapper(new animcheckboxwrapper.animCheckBoxWrapper(), (main.java.com.github.lguipeng.library.animcheckbox.AnimCheckBox)(anywheresoftware.b4a.keywords.Common.Sender(mostCurrent.activityBA)));
'                                                                                                                                                            ^
'  symbol:   class java
'  location: class main
'1 error


 
'Error occurred on line: 75 (Main)
'java.lang.ClassCastException: anywheresoftware.b4a.ShellBA cannot be cast To android.view.View

     

ارسال یک پاسخ