سورس b4a

سوال

سلام در محیط b4a یک شیء spainner ایجاد کردم با دو گزینه internal storeg و sd card …..میخوام هر کدوم ازین آیتم ها انتخاب شد در پنجره listview تمام فایلها و فولدرها نمایش داده بشه تا بتونم هر فایلی رو خواستم انتخاب کنم .ممنون میشم سورس نمایش محتویات حافظه داخلی و خارجی رو برام بزارید.،🌹🙏

در حال بررسی 0
, ۱۴۰۲/۱۱/۲۲ ۱۱:۵۰:۴۵ 3 پاسخ کاربر تازه 0

پاسخ ها ( 3 )

  1. احمد آخوندی
    0
    ۱۴۰۲/۱۱/۲۳ ۱۸:۱۵:۲۵
    پاسخ

    سلام دوست عزیز

    ابتدا یک Spinner با دو گزینه “Internal Storage” و “SD Card” ایجاد کنید و به آن یک نام دهید، برای مثال “storageSpinner”.

    سپس یک ListView ایجاد کنید و به آن یک نام دهید، برای مثال “fileListView”.

    حالا در کد خود، می‌توانید با استفاده از رویداد OnItemSelected برای Spinner، فایل‌ها و پوشه‌های مربوط به انتخاب کاربر را در ListView نمایش دهید.

    نمونه کد:

    ۱
    ۲
    ۳
    ۴
    ۵
    ۶
    ۷
    ۸
    ۹
    ۱۰
    ۱۱
    ۱۲
    ۱۳
    ۱۴
    ۱۵
    ۱۶
    ۱۷
    ۱۸
    ۱۹
    ۲۰
    ۲۱
    ۲۲
    ۲۳
    ۲۴
    ۲۵
    ۲۶
    ۲۷
    ۲۸
    ۲۹
    ۳۰
    ۳۱
    ۳۲
    ۳۳
    ۳۴
    ۳۵
    ۳۶
    ۳۷
    ۳۸
    ۳۹
    ۴۰
    ۴۱
    Sub Activity_Create(FirstTime As Boolean)
        
        'مربوط به spinner
        Dim storageSpinner As Spinner
        storageSpinner.Initialize("storageSpinner")
     
        storageSpinner.Add("Internal Storage")
        storageSpinner.Add("SD Card")
     
        Activity.AddView(storageSpinner, 10dip, 10dip, 200dip, 50dip)
        
        'مربوط به ListView
        Dim fileListView As ListView
        fileListView.Initialize("fileListView")
        
        Activity.AddView(fileListView, ۱۰dip, ۷۰dip, ۳۰۰dip, ۵۰۰dip)
        
        '...کدهای دیگر
    End Sub
     
    Sub storageSpinner_ItemSelected(Position As Int, Value As Object)
        Dim files() As String
        
        If Position = 0 Then
            'نمایش فایل‌ها و پوشه‌های Internal Storage
            files = File.ListFiles(File.DirInternal)
        Else If Position = ۱ Then
            'نمایش فایل‌ها و پوشه‌های SD Card
            files = File.ListFiles(File.DirRootExternal)
        End If
        
        'پاکسازی ListView
        fileListView.Clear
        
        If files <> Null Then
            For Each file As String In files
                'اضافه کردن فایل‌ها و پوشه‌ها به ListView
                fileListView.AddSingleLine(file)
            Next
        End If
    End Sub

    موفق باشید.

     

  2. mehrdad_s20
    0
    ۱۴۰۲/۱۱/۲۴ ۱۰:۰۳:۳۷
    پاسخ

    سلام دوست عزیز با تشکر از زحمت شما برای پاسخ دادن …سورس رو در پروژه پارد کردم اما در قسمت قراردادن متغیر string برای فایلها.   ارور داد

  3. mehrdad_s20
    0
    ۱۴۰۲/۱۱/۲۴ ۱۰:۰۶:۲۳
    پاسخ

    متن ارور

ارسال یک پاسخ