رفتن به مطلب

خالی بودن لیست ویوو


solmos36

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

سلام چطور میتونم تشخیص بدم لیست ویوو خالیه ؟؟؟

یعنی میخوام بگم اگر خالی بود نمایش نده اگر پر بود نمایش بده؟؟

ممنون

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

سلام

Private listview1 As ListView
If listview1.size=0 then
MsgBox("لیست ویو خالیه" ,"")
End if

موفق باشید

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

اینو زدم نمیشه

 

If lvl.Size<1 Then
dasteh1.Visible=False
Else
lvl.AddTwoLinesAndBitmap2(c.GetString("title"),"",Null,c.GetString("title"))
End If
لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

اینو زدم نمیشه

 

If lvl.Size<1 Then
dasteh1.Visible=False
Else
lvl.AddTwoLinesAndBitmap2(c.GetString("title"),"",Null,c.GetString("title"))
End If

 

 

الان در هر دو صورت یعنی چه خالی باشه چه نباشه اون پنل رو false میکنه

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

 

اینو زدم نمیشه

 

If lvl.Size<1 Then
dasteh1.Visible=False
Else
lvl.AddTwoLinesAndBitmap2(c.GetString("title"),"",Null,c.GetString("title"))
End If

 

 

اینجوری بنویسید :

If lvl.Size = 0 Then
dasteh1.Visible=False
Else
lvl.AddTwoLinesAndBitmap2(c.GetString("title"),"",Null,c.GetString("title"))
End If
لینک ارسال
به اشتراک گذاری در سایت های دیگر

بازم نشد هر دو تا رو false میکنه 

این همه کدا مشکلی داره بنظرتون

Dim c As Cursor
If File.Exists(File.DirInternal,bank1 &".db") = False Then
File.Copy(File.DirAssets,bank1 &".db",File.DirInternal,bank1 &".db")
End If
s.Initialize(File.DirInternal,bank1 &".db",False)
c = s.ExecQuery("select * from " & bank1 & " title")
Dim b As BitmapDrawable
b.Initialize(LoadBitmap(File.DirAssets,"sidebarpanell.png"))
lvl.TwoLinesAndBitmap.Background=b
lvl.TwoLinesAndBitmap.Label.Gravity = Gravity.CENTER
lvl.TwoLinesAndBitmap.Label.Left=3%x
lvl.TwoLinesAndBitmap.Label.Typeface=Typeface.LoadFromAssets("byekan.ttf")
lvl.TwoLinesAndBitmap.Label.TextColor = Colors.RGB(208,87,40)
lvl.TwoLinesAndBitmap.Label.Top = 2%y
lvl.TwoLinesAndBitmap.Label.TextSize=16
For i = 0 To c.RowCount -1
c.Position = i
If lvl.Size=0 Then
dasteh1.Visible=False
Else
lvl.AddTwoLinesAndBitmap2(c.GetString("title"),"",Null,c.GetString("title"))
End If
Next
لینک ارسال
به اشتراک گذاری در سایت های دیگر

ببینید این کار جالبی نیست که شرط هارو هی میندید و یکی‌ جدید میسازید

بیاید و به جای اینکه شرط اولو End کنید و شرط دومو شروع کنید با Else If کار کنید و ی بار ببندید شرطو فقط :)

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

بایگانی شده

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

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

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