رفتن به مطلب
  • 0

هشدار خالی بودن لیست ویو


bahman

سوال

دوستان من فایلای یه پوشه رو توسط ی لیست ویو لود میکنم میخواستم بدونم کد اینکه پوشه فایلی نداشت وسط اسکرول ویو بزنه فایلی یافت نشد چیه

پیشاپیش ممنون از پاسخاتون

لینک ارسال
به اشتراک گذاری در سایت های دیگر

18 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

لینک ارسال
به اشتراک گذاری در سایت های دیگر

نه استاد اینم نشد

کدهایی که استاد اسکندری دادن هیچ مشکلی ندارن

کاملا درست هستند

شما محض اطمینان بیایین به جای EndWith از Contains استفاده کنید ببینید به جواب میرسید ؟

لینک ارسال
به اشتراک گذاری در سایت های دیگر

شما ابتدا فایل هارو داخل یک متغییر لیست قرار میدید که خود متغییر List  تابعی به اسم Size  داره

لیست ویو هم تابع Size  داره و میتونید شرط بزارید که Size  برابر 0 بود یعنی هیچ آیتمی موجود نیست. 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

پس سخت شد :D

با کد کسی میتونه بگه

خودم ی کارایی کردم ک جواب ندادن

کسی کد داشت ممنون میشم

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام

شما الان میخوای اگه لیست ویوت خالی بود، توی لیست ویو بنویسه موردی نیست؟؟؟

if listVIew1.size = 0 then
listView1.addSingleLine("چیزی نیست")
end if

استاد ارتا که راحت تر از این رو گفتن که بهمن اقا:)

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام

شما الان میخوای اگه لیست ویوت خالی بود، توی لیست ویو بنویسه موردی نیست؟؟؟

if listVIew1.size = 0 then
listView1.addSingleLine("چیزی نیست")
end if

استاد ارتا که راحت تر از این رو گفتن که بهمن اقا:)

حق با شماست ولی دقیقا همین کد رو خودم میزدم باز نمیاره متنو ک نیستش فایلی

نمیدونم مشکلم کجاست

لینک ارسال
به اشتراک گذاری در سایت های دیگر

کدایی که برای گرفتن فایل ها میذارید رو قرار بدید ببینم چه جوریه، شاید بتونم کمکتون کنم...

لینک ارسال
به اشتراک گذاری در سایت های دیگر

کدایی که برای گرفتن فایل ها میذارید رو قرار بدید ببینم چه جوریه، شاید بتونم کمکتون کنم...

Dim l As List

l=File.ListFiles(File.DirRootExternal&"/bhiiii" )

For i=0 To l.Size-1

Dim n As String

n=l.Get(i)

If n.EndsWith(".gif") Or n.EndsWith(".png") Then

ListView1.AddSingleLine(n)

Label=ListView1.SingleLineLayout.Label

لینک ارسال
به اشتراک گذاری در سایت های دیگر

Dim l As List

l=File.ListFiles(File.DirRootExternal&"/bhiiii" )

For i=0 To l.Size-1

Dim n As String

n=l.Get(i)

If n.EndsWith(".gif") Or n.EndsWith(".png") Then

ListView1.AddSingleLine(n)

Label=ListView1.SingleLineLayout.Label

خب همین جا قبل حلقه بیا چک کن که اگه l.size برابر صفر بود بگه خالیه در غیر اینصورت بیاد لود کنه فایل هارو

لینک ارسال
به اشتراک گذاری در سایت های دیگر

اینارو یه چک بکنید...

Dim l As List
l=File.ListFiles(File.DirRootExternal&"/bhiiii" )
if l.size = 0 then
msgbox("khaali","")
else
For i=0 To l.Size-1
Dim n As String
n=l.Get(i)
If n.EndsWith(".gif") Or n.EndsWith(".png") Then
ListView1.AddSingleLine(n)
Label=ListView1.SingleLineLayout.Label 
end if
لینک ارسال
به اشتراک گذاری در سایت های دیگر

اینارو یه چک بکنید...

Dim l As List
l=File.ListFiles(File.DirRootExternal&"/bhiiii" )
if l.size = 0 then
msgbox("khaali","")
else
For i=0 To l.Size-1
Dim n As String
n=l.Get(i)
If n.EndsWith(".gif") Or n.EndsWith(".png") Then
ListView1.AddSingleLine(n)
Label=ListView1.SingleLineLayout.Label 
end if

نه استاد اینم نشد

لینک ارسال
به اشتراک گذاری در سایت های دیگر

کدهایی که استاد اسکندری دادن هیچ مشکلی ندارن

کاملا درست هستند

شما محض اطمینان بیایین به جای EndWith از Contains استفاده کنید ببینید به جواب میرسید ؟

تو این مسله شکی نیست ولی بدون خطا هم هست منتهی عمل نمیکنه

لینک ارسال
به اشتراک گذاری در سایت های دیگر

تو این مسله شکی نیست ولی بدون خطا هم هست منتهی عمل نمیکنه

نمونه سورس پیوست کنید لطفا

لینک ارسال
به اشتراک گذاری در سایت های دیگر

نمونه سورس پیوست کنید لطفا

چون ایده جدیدی هست امکانش نیست متاسفانه کدمم تنها اون بخشو گذاشتم بعد اون کدی ک به لود مربوط باشه نیستش اصلا

بازم شرمنده

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...