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

سوال

سلام و درود

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

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

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

۱
۲
۳
۴
۵
۶
۷
۸
۹
۱۰
۱۱
۱۲
۱۳
۱۴
۱۵
۱۶
۱۷
۱۸
۱۹
۲۰
۲۱
۲۲
۲۳
۲۴
۲۵
۲۶
۲۷
۲۸
۲۹
۳۰
۳۱
۳۲
۳۳
۳۴
۳۵
۳۶
۳۷
۳۸
۳۹
۴۰
۴۱
۴۲
۴۳
۴۴
۴۵
۴۶
۴۷
۴۸
۴۹
۵۰
۵۱
۵۲
۵۳
۵۴
۵۵
۵۶
۵۷
۵۸
۵۹
۶۰
۶۱
۶۲
۶۳
۶۴
۶۵
۶۶
۶۷
۶۸
۶۹
۷۰
۷۱
۷۲
۷۳
۷۴
۷۵
۷۶
۷۷
۷۸
#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=۱۰۰%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,۰%x,۰%x,۱۰۰%y,۱۰۰%y)
nav.Initialize("menu",p_menu,۵۰%x)
nav.NavigationPanel.LoadLayout("menu")
nav.SetEdgeSize(nav.GRAVITY_RIGHT,۱۰۰dip)
ListView1.AddSingleLine("دسته بندی ها")
ListView1.AddSingleLine("تماس با ما")
ListView1.AddSingleLine("بپرسم")
ListView1.AddSingleLine("طراحی سایت")
ListView1.SingleLineLayout.Label.TextColor=Colors.Black
ListView1.SingleLineLayout.ItemHeight=۸%y
ListView1.SingleLineLayout.Label.TextSize=۱۵
ListView1.SingleLineLayout.Label.Gravity=Gravity.CENTER
ListView1.Color=Colors.RGB(۲۳۱, ۲۲۹, ۲۲۹)
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
, ۱۴۰۲/۱/۱۰ ۲:۳۰:۳۹ 4 پاسخ کاربر تازه 0

پاسخ ها ( 4 )

  1. مرتضی صباغی
    0
    ۱۴۰۲/۱/۱۱ ۰:۵۱:۳۵
    پاسخ

    سلام.

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

  2. شماعی زاده
    1
    ۱۴۰۲/۱/۱۱ ۱۴:۳۰:۳۲
    پاسخ

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

    ۱
    ۲
    ۳
    ۴
    ۵
    ۶
    ۷
    ۸
    ۹
    ۱۰
    ۱۱
    ۱۲
    ۱۳
    ۱۴
    ۱۵
    ۱۶
    ۱۷
    ۱۸
    ۱۹
    ۲۰
    ۲۱
    ۲۲
    ۲۳
    ۲۴
    ۲۵
    ۲۶
    ۲۷
    ۲۸
    ۲۹
    ۳۰
    ۳۱
    ۳۲
    ۳۳
    ۳۴
    ۳۵
    ۳۶
    ۳۷
    ۳۸
    ۳۹
    ۴۰
    ۴۱
    ۴۲
    ۴۳
    ۴۴
    ۴۵
    ۴۶
    ۴۷
    ۴۸
    ۴۹
    ۵۰
    ۵۱
    ۵۲
    ۵۳
    ۵۴
    ۵۵
    ۵۶
    ۵۷
    ۵۸
    ۵۹
    ۶۰
    ۶۱
    ۶۲
    ۶۳
    ۶۴
    ۶۵
    ۶۶
    ۶۷
    ۶۸
    ۶۹
    ۷۰
    ۷۱
    ۷۲
    ۷۳
    ۷۴
    #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=۱۰۰%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,۰%x,۰%x,۱۰۰%y,۱۰۰%y)
    nav.Initialize("menu",p_menu,۵۰%x)
    nav.NavigationPanel.LoadLayout("menu")
    nav.SetEdgeSize(nav.GRAVITY_RIGHT,۱۰۰dip)
    ListView1.AddSingleLine("دسته بندی ها")
    ListView1.AddSingleLine("تماس با ما")
    ListView1.AddSingleLine("بپرسم")
    ListView1.AddSingleLine("طراحی سایت")
    ListView1.SingleLineLayout.Label.TextColor=Colors.Black
    ListView1.SingleLineLayout.ItemHeight=۸%y
    ListView1.SingleLineLayout.Label.TextSize=۱۵
    ListView1.SingleLineLayout.Label.Gravity=Gravity.CENTER
    ListView1.Color=Colors.RGB(۲۳۱, ۲۲۹, ۲۲۹)
    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
      ۱۴۰۲/۱/۱۳ ۱۲:۱۳:۲۴
      پاسخ

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

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

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

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

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

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

  4. مرتضی صباغی
    0
    ۱۴۰۲/۱/۱۵ ۲:۲۵:۴۵
    پاسخ

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

ارسال یک پاسخ