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

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


mehrabmmp

سوال

سلام دوستان 

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

 

post-4807-0-54991700-1462376788_thumb.png

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

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

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

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

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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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


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,

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

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

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

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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

@@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 قرار دادی

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

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

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

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

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

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

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

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

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

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

 

@@mehrabmmp,

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

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

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

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