solmos36 69 ارسال شده در 11 آبان، ۱۳۹۴ اشتراک گذاری ارسال شده در 11 آبان، ۱۳۹۴ سلام چطور میتونم تشخیص بدم لیست ویوو خالیه ؟؟؟ یعنی میخوام بگم اگر خالی بود نمایش نده اگر پر بود نمایش بده؟؟ ممنون لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
Elyas Erfani 3,582 ارسال شده در 11 آبان، ۱۳۹۴ اشتراک گذاری ارسال شده در 11 آبان، ۱۳۹۴ سلام Private listview1 As ListView If listview1.size=0 then MsgBox("لیست ویو خالیه" ,"") End if موفق باشید لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
solmos36 69 ارسال شده در 11 آبان، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 11 آبان، ۱۳۹۴ اینو زدم نمیشه If lvl.Size<1 Then dasteh1.Visible=False Else lvl.AddTwoLinesAndBitmap2(c.GetString("title"),"",Null,c.GetString("title")) End If لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
solmos36 69 ارسال شده در 11 آبان، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 11 آبان، ۱۳۹۴ اینو زدم نمیشه If lvl.Size<1 Then dasteh1.Visible=False Else lvl.AddTwoLinesAndBitmap2(c.GetString("title"),"",Null,c.GetString("title")) End If الان در هر دو صورت یعنی چه خالی باشه چه نباشه اون پنل رو false میکنه لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
Elyas Erfani 3,582 ارسال شده در 11 آبان، ۱۳۹۴ اشتراک گذاری ارسال شده در 11 آبان، ۱۳۹۴ اینو زدم نمیشه 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 لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
solmos36 69 ارسال شده در 11 آبان، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 11 آبان، ۱۳۹۴ بازم نشد هر دو تا رو 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 لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
Elyas Erfani 3,582 ارسال شده در 11 آبان، ۱۳۹۴ اشتراک گذاری ارسال شده در 11 آبان، ۱۳۹۴ ببینید این کار جالبی نیست که شرط هارو هی میندید و یکی جدید میسازید بیاید و به جای اینکه شرط اولو End کنید و شرط دومو شروع کنید با Else If کار کنید و ی بار ببندید شرطو فقط لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.