ارور در موقع کامپایل

[mehrabmmp 528]

سلام دوستان 

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

 

[محمد رشوند 1,208]

این کد رو جایگزین کن ببین مشکلت حل میشه

Sub show
	Dim h As Int = 2%y
	For i = 0 To cur.RowCount - 1
		cur.Position = i
		If cur.GetInt("Type") = 0 Then
			lbl.Initialize("lbl")
			ScrollView1.Panel.AddView(lbl,3%X,h,ScrollView1.Width - 5%x,0)
			lbl.Textcolor = Colors.Black
			lbl.Textsize = 17
			lbl.Text = cur.GetString("matn")
			lbl.Typeface = Typeface.LoadFromAssets("irsans.ttf")
			Dim su As StringUtils
			lbl.Height = su.MeasureMultilineTextHeight(lbl,lbl.Text)
			h = h + lbl.Height + 2%y
			ScrollView1.panel.height = h
		else if cur.GetInt("Type") = 1 Then
			Dim image1 As ImageView
			image1.Initialize("")
			Dim be As BitmapExtended
			be.Initialize("")
			ScrollView1.panel.addview(image1,3%x,h,80%x,be.getHeight(image1.Bitmap))
			image1.Bitmap = LoadBitmap(File.DirAssets,cur.GetString("matn"))
			image1.Gravity = Gravity.FILL
			h = h + be.getHeight(image1.Bitmap) + 2%y
			ScrollView1.Panel.Height = h
		End If
	Next
End Sub

[dr.mohammad 68]

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

[mehrabmmp 528]

Sub show

Dim h As Int = 2%y

For i = 0 To cur.RowCount - 1

cur.Position = i

If cur.GetInt("Type") = 0 Then

lbl.Textcolor = Colors.Black

lbl.Textsize = 17

lbl.Text = cur.GetString("matn")

lbl.Typeface = Typeface.LoadFromAssets("irsans.ttf")

ScrollView1.Panel.AddView(lbl,3%X,h,ScrollView1.Width - 5%x,0)

Dim su As StringUtils

lbl.Height = su.MeasureMultilineTextHeight(lbl,lbl.Text)

h = h + lbl.Height + 2%y

ScrollView1.panel.height = h

else if cur.GetInt("Type") = 1 Then

Dim image1 As ImageView

image1.Initialize("")

image1.Bitmap = LoadBitmap(File.DirAssets,cur.GetString("matn"))

image1.Gravity = Gravity.FILL

Dim be As BitmapExtended

be.Initialize("")

ScrollView1.panel.addview(image1,3%x,h,80%x,be.getHeight(image1.Bitmap))

h = h + be.getHeight(image1.Bitmap) + 2%y

ScrollView1.Panel.Height = h

End If

Next

End Sub

[mehrabmmp 528]

کسی نمیدونه مشکلش چیه ؟

 

عزیزم عکس واضحه 

[محمد رشوند 1,208]

@@mehrabmmp,

تصویر واضحه احتمالاً شما هنگامی که یک ویو در صفحه وجود دارد بار دیگر اون ویو رو دوباره اد کردین به همین خاطر برنامه گفته که باید اون ویو رو حذف کنید این پیغام لاگ معمولاً در کد های مختلفی خطا میده شما کد قسمتی که اد ویو کردین رو بزارین یا اینکه اگر از لیست و دیتابیس استفاده کردین اون قسمت رو فقط قرار بدید

[mehrabmmp 528]

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

If titlecomputer = "نحوه‌ی غیرفعال‌سازی و حذف Windows Defender در محیط ویندوز" Then
		lbltitr.Text = "نحوه‌ی غیرفعال‌سازی و حذف Windows Defender در محیط ویندوز"
		ChangeFontByLabelSize.FitToLabelSize(lbltitr)
		cur = sql.ExecQuery("SELECT * FROM Matn WHERE id BETWEEN 1 AND 2")
		show
		inttag = 1
		ImageView2.Tag = inttag
		ImageView3.Tag = inttag
		cur = sql.ExecQuery("SELECT * FROM Matn2 ")
		cur.Position = 0
		If cur.GetString("favo") = 1 Then
			ImageView2.Visible = False
			ImageView2.Enabled = False
			ImageView3.Visible = True
			ImageView3.Enabled = True
		End If
	Else If titlecomputer = "تغییر عملکرد دکمه‌ی Power در منوی Start ویندوز 7" Then
		lbltitr.Text = "تغییر عملکرد دکمه‌ی Power در منوی Start ویندوز 7"
		ChangeFontByLabelSize.FitToLabelSize(lbltitr)
		cur = sql.ExecQuery("SELECT * FROM Matn WHERE id BETWEEN 3 AND 9")
		show
		inttag = 2
		ImageView2.Tag = inttag
		ImageView3.Tag = inttag
		cur = sql.ExecQuery("SELECT * FROM Matn2 ")
		cur.Position = 0
		If cur.GetString("favo") = 1 Then
			ImageView2.Visible = False
			ImageView2.Enabled = False
			ImageView3.Visible = True
			ImageView3.Enabled = True
		End If
	
		
	End If

اینم کدای ساب show

Sub show
	Dim h As Int = 2%y
	For i = 0 To cur.RowCount - 1
		cur.Position = i
		If cur.GetInt("Type") = 0 Then
			lbl.Textcolor = Colors.Black
			lbl.Textsize = 17
			lbl.Text = cur.GetString("matn")
			lbl.Typeface = Typeface.LoadFromAssets("irsans.ttf")
			ScrollView1.Panel.AddView(lbl,3%X,h,ScrollView1.Width - 5%x,0)
			Dim su As StringUtils
			lbl.Height = su.MeasureMultilineTextHeight(lbl,lbl.Text)
			h = h + lbl.Height + 2%y
			ScrollView1.panel.height = h
		else if cur.GetInt("Type") = 1 Then
			Dim image1 As ImageView
			image1.Initialize("")
			image1.Bitmap = LoadBitmap(File.DirAssets,cur.GetString("matn"))
			image1.Gravity = Gravity.FILL
			Dim be As BitmapExtended
			be.Initialize("")
			ScrollView1.panel.addview(image1,3%x,h,80%x,be.getHeight(image1.Bitmap))
			h = h + be.getHeight(image1.Bitmap) + 2%y
			ScrollView1.Panel.Height = h
		End If
	Next
End Sub

[محمد رشوند 1,208]

@@mehrabmmp,

خب کدات یکم مشکل دارن

شما این خط کد رو کامنت کن

cur = sql.ExecQuery("SELECT * FROM Matn2 ")

اگر جفت اینا تو یه لایه دارن اجرا میشن کد زیر نباید دوبار تکرار بشه مشکل به وجود میاره

	If cur.GetString("favo") = 1 Then
			ImageView2.Visible = False
			ImageView2.Enabled = False
			ImageView3.Visible = True
			ImageView3.Enabled = True
		End If

ویژگی نمایش ایمیج ویو رو دوبار برابر true قرار دادی

[mehrabmmp 528]

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

[mehrabmmp 528]

نه ببینید این کد ها مربوط به کدای tag و sender هستن و نباید اشکالی بوجود بیارن چون من گفتم وقتی که متن titlecomputer برابر با فلان بود یه کاری رو انجام بده و هرکدوم از کدها مربوط به متن خودشون هستن امیدوارم بفهمید چی میگم

[mehrabmmp 528]

ببخشید اسپم میزنم  کاری که شما گفتید رو کردم اما انگار از کدای ساب show ایراد میگیره

[محمد رشوند 1,208]

متن titlecomputer برابر با فلان بود

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

حالا به جای اینکه بیای متن تایتل رو به صورت طولانی بگیری با چک کردن عدد میتونی بگی اگه یک بود فلان کارو کن اگه دو بود ...

 

@@mehrabmmp,

ساب show رو قرار بدید