تداخل اسکرول ویو و منو اسلایدی در بیسیک فور اندروید

سوال

سلام و درود

من برای پروژه کلاسیم مشکلی دارم. زمانی که میخوام از منو اسلایدی استفاده کنم، اسکرول ویو کار نمیکنه

ولی وقتی کد های منو اسلایدی رو کامنت میکنم، اسکرول ویو درست میشه

لطفا میتونید این تداخل راهنمایی کنید که برطرف بشه؟؟؟؟

#Region  Activity Attributes 
	#FullScreen: true
	#IncludeTitle: false
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

End Sub

Sub Globals
	'These global variables will be redeclared each  time the activity is created.
	'These variables can only be accessed from this module.

	Private Button1 As Button
	Private Button2 As Button
	Private ScrollView1 As ScrollView
	Dim nav As AHNavigationDrawer
	Dim p_menu As Panel
	
	Private ListView1 As ListView
	
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("kidmain")
	ScrollView1.Panel.LoadLayout("kidmain1")
	ScrollView1.Panel.Height=100%y
	slide
	
	
	
	
End Sub

Sub Activity_Resume
	
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Private Sub Button1_Click
	nav.OpenDrawer
End Sub

Sub slide
 	p_menu.Initialize("")
	Activity.AddView(p_menu,0%x,0%x,100%y,100%y)
	nav.Initialize("menu",p_menu,50%x)
	nav.NavigationPanel.LoadLayout("menu")
	nav.SetEdgeSize(nav.GRAVITY_RIGHT,100dip)
	ListView1.AddSingleLine("دسته بندی ها")
	ListView1.AddSingleLine("تماس با ما")
	ListView1.AddSingleLine("بپرسم")
	ListView1.AddSingleLine("طراحی سایت")
	ListView1.SingleLineLayout.Label.TextColor=Colors.Black
	ListView1.SingleLineLayout.ItemHeight=8%y
	ListView1.SingleLineLayout.Label.TextSize=15
	ListView1.SingleLineLayout.Label.Gravity=Gravity.CENTER
	ListView1.Color=Colors.RGB(231, 229, 229)
	End Sub
	
Private Sub ListView1_ItemClick (Position As Int, Value As Object)
	If Value="نتایج " Then
		ToastMessageShow("روی  دسته بندیها کلیک شده است",True)
	Else If Value="تماس با ما" Then
		ToastMessageShow("beporsam.ir/contact_us/",True)
	Else If Value="xxx" Then
		ToastMessageShow("www.beporsam.ir",True)
	Else If Value="yyyy" Then
		ToastMessageShow("www.fadev.ir",True)
	End If
End Sub

 

تشکر

حل شد 0
, 2023-03-30T02:30:39+03:30 4 پاسخ کاربر تازه 0

پاسخ ها ( 4 )

    0
    2023-03-31T00:51:35+03:30

    سلام.

    نمونه سورس کدتون رو بذارید بررسی کنم

    1
    2023-03-31T14:30:32+03:30

    نمونه سورس اول گذاشتم.

    #Region  Activity Attributes 
    	#FullScreen: true
    	#IncludeTitle: false
    #End Region
    
    Sub Process_Globals
    
    End Sub
    
    Sub Globals
    	
    
    	Private Button1 As Button
    	Private Button2 As Button
    	Private ScrollView1 As ScrollView
    	Dim nav As AHNavigationDrawer
    	Dim p_menu As Panel
    	
    	Private ListView1 As ListView
    	
    End Sub
    
    Sub Activity_Create(FirstTime As Boolean)
    	Activity.LoadLayout("kidmain")
    	ScrollView1.Panel.LoadLayout("kidmain1")
    	ScrollView1.Panel.Height=100%y
    	slide
    	
    	
    	
    	
    End Sub
    
    Sub Activity_Resume
    	
    End Sub
    
    Sub Activity_Pause (UserClosed As Boolean)
    
    End Sub
    
    
    Private Sub Button1_Click
    	nav.OpenDrawer
    End Sub
    
    Sub slide
     	p_menu.Initialize("")
    	Activity.AddView(p_menu,0%x,0%x,100%y,100%y)
    	nav.Initialize("menu",p_menu,50%x)
    	nav.NavigationPanel.LoadLayout("menu")
    	nav.SetEdgeSize(nav.GRAVITY_RIGHT,100dip)
    	ListView1.AddSingleLine("دسته بندی ها")
    	ListView1.AddSingleLine("تماس با ما")
    	ListView1.AddSingleLine("بپرسم")
    	ListView1.AddSingleLine("طراحی سایت")
    	ListView1.SingleLineLayout.Label.TextColor=Colors.Black
    	ListView1.SingleLineLayout.ItemHeight=8%y
    	ListView1.SingleLineLayout.Label.TextSize=15
    	ListView1.SingleLineLayout.Label.Gravity=Gravity.CENTER
    	ListView1.Color=Colors.RGB(231, 229, 229)
    	End Sub
    	
    Private Sub ListView1_ItemClick (Position As Int, Value As Object)
    	If Value="نتایج " Then
    		ToastMessageShow("روی  دسته بندیها کلیک شده است",True)
    	Else If Value="تماس با ما" Then
    		ToastMessageShow("beporsam.ir/contact_us/",True)
    	Else If Value="xxx" Then
    		ToastMessageShow("www.beporsam.ir",True)
    	Else If Value="yyyy" Then
    		ToastMessageShow("www.fadev.ir",True)
    	End If
    End Sub

     

      0
      2023-04-02T12:13:24+03:30

      ببین عزیزم وقتی شما فایل سورستو بذاری، من راحت دانلود میکنم و بازش میکنم و خطایابی میکنم

      اما اینطوری که شما کدهارو کپی کردید،اینطوری من باید کدهارو داخل برنامم کپی کنم، ویوهارو بسازم و کلی وقت بذارم روش.

      پس سورس برنامتون رو بذارید.

      • متاسفیم ، این پاسخ خصوصی است.

  1. متاسفیم ، این پاسخ خصوصی است.

    • متاسفیم ، این پاسخ خصوصی است.

    0
    2023-04-04T02:25:45+03:30

    خواهشا پاسختون رو خصوصی نفرستید، نمیشه بخونیش

ارسال یک پاسخ