سورس b4a

سوال

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

در حال بررسی 0
, 2024-02-11T11:50:45+03:30 3 پاسخ کاربر تازه 0

پاسخ ها ( 3 )

  1. احمد آخوندی
    0
    2024-02-12T18:15:25+03:30
    پاسخ

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

    ابتدا یک 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, 10dip, 70dip, 300dip, 500dip)
    
    '...کدهای دیگر
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 = 1 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
    2024-02-13T10:03:37+03:30
    پاسخ

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

  3. mehrdad_s20
    0
    2024-02-13T10:06:23+03:30
    پاسخ

    متن ارور

ارسال یک پاسخ