عندي مشكلة في الأداة اللي عملتها ( بالصور) ال Compiler بيكتب كلام وبيرفضه

بدأه MohamedAliSalim في 27 أبريل 2009 · 13 رد · 862 مشاهدة · في Microsoft Visual Basic.NET

مشاركة: واتساب X فيسبوك تيليجرام

#127 أبريل 2009 في 13:48 صاحب الموضوع

السلام عليكم

قمت بإنشاء أداتين لمشروعي

وقمت بوضعهم على نموذج ما

وعملت تشغيل واشتغل عادي خالص

ولكن في بعض الأحيان عند محاولة فتح صفحة الكود لبدء كتابة كود ما

او حتى بعد ما اقوم بوقف التشغيل حتى اعود لوضع التصميم

اجد ان هناك اخطأ يظهرها لي الـ Compiler

وهي

المشكلة الأولى

المشكلة التانية

ولحل المشكلة الأولى

الضغط على العلامة المشار إليها في الصورة (وهي مهمتها إظهار إقتراح لحل المشكلة )

تظهرلي النافذة التالية واختار منها هذا الإختيار

ومن ثم يختفى الخطأ

ثم يعود مرة اخرى بنفس المشكلة بعد إيقاف التشغيل والعودة الى وضع التصميم او محاولة فتح صفحة الكود لبدء بكتابة كود ما

اما بالنسبة للمشكلة الثانية الموجودة فالحال اني امسح كلمة ProductionPlanning التي هي قبل الدوت

ثم يعود مرة اخرى لنفس المشكلة عند محاولة فتح صفحة الكود لكتابة كود ما او بعد إيقاف التشغيل للعودة الى وضع التصميم

فما الحل ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

اه نسيت اقولكم

ان الكود الظاهر امامكم مش انا اللي كاتبه

ده الــ Designer نفسه

تم تعديل هذه المشاركة بواسطة MohamedAliSalim في 27 أبريل 2009 في 13:55

Mohamed Ali Salim

0.1..0...4....7.....6......2.......7........4.........8

#227 أبريل 2009 في 16:18

مرحباً أخي الكريم,

هذه المشكلة سببها أما استدعاء إجراء يستخدم لإنشاء تحكمات أو صفوف بشكل غير نظامي أو بسبب تعريف الـ( Namespaces ) إذا كان بالإمكان إرفاق ( Code ) التحكم المستخدم, سيكون حل المشكلة سهل .

بالتوفيق

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#327 أبريل 2009 في 16:32

مش فاهم حاجة

انا ماعملتش حاجة غير اني قمت عمل كلاس وخليته ينهريت من التيكست بوكس

Public Class MyTextBox
	Inherits TextBox

وبعد كدة عملتله Bilding علشان يظهر ضمن الأدوات

والفعل ظهر وسحبته وحطيته على النموذج

على فكرة هو شغال عادي مع مشروع جديد

لكن مشروعي ده لا

وانهي كود اللي عاوزني ارفقهولك

كود الكلاس ولا كود النموذج ؟

Mohamed Ali Salim

0.1..0...4....7.....6......2.......7........4.........8

#428 أبريل 2009 في 17:17

مرحباً أخي الكريم,

Code التابع للتحكم المستخدم, وشكراً

بالتوفيق

تم تعديل هذه المشاركة بواسطة Bashar Rabat في 28 أبريل 2009 في 17:24

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#529 أبريل 2009 في 08:28

يعني ايه

Code التابع للتحكم المستخدم ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

مش فاهم

Mohamed Ali Salim

0.1..0...4....7.....6......2.......7........4.........8

#630 أبريل 2009 في 16:45

مرحباً أخي الكريم,

المقصود بـ( Code ) التحكم هو محتوى ملف التحكم المنشىء بالنسبة ( للـ( Designer ) و ( Programming Code ) ), أو يمكنك إخباري مالذي تحاول عمله وسأقوم بإنشاء تحكم شبيه له .

بالتوفيق

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#72 مايو 2009 في 10:27

انا عملت أداه

عبارة عن تعديل على التيكست بوكس العادي

الكونترول ده انا بضيفه في اي مشروع بيشتغل عادي بدون المشاكل اللي ذكرتها في بداية الموضوع

لكن المشاكل دي بتظهر فقط في مشروعي اللي شغال فيه دلوقتي

ومش عارف ايه سبب المشكلة

تخيل كل ما ابدء في كتابة كود جديد يطلعلى 21 خطأ لازم احلها علشان اقدر اعمل Run للبرنامج

وشكرا ومنتظركم بشدة

Mohamed Ali Salim

0.1..0...4....7.....6......2.......7........4.........8

#88 مايو 2009 في 00:08

Mohamed Ali Salim

0.1..0...4....7.....6......2.......7........4.........8

#910 مايو 2009 في 13:52

السلام عليكــم ورحمـة الله وبركاتــه ،،

الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين

الكنترول الجديد اللي انت مستخدمه فيه إيرور وبالتالي البرنامج مش حايشوفه

#1015 مايو 2009 في 16:21

مشكور اخ وائل على الرد

اليك هذا كود الكونترول

Public Class MyTextBox
	Inherits TextBox
	Public Enum MyTypes
		SetDecimal
		SetInteger
		SetIntegerAndString
		SetStringOnly
		SetSymbols
	End Enum
	Dim MyDtyps As MyTypes
	Dim DotCounter As Integer
	Dim MyPriority As _priority

	Public Property priority() As _priority
		Get
			Return MyPriority
		End Get
		Set(ByVal value As _priority)
			MyPriority = value
		End Set
	End Property
	Public Property MyDataType() As MyTypes
		Get
			Return MyDtyps
		End Get
		Set(ByVal value As MyTypes)
			MyDtyps = value
		End Set
	End Property
	Protected Overrides Sub OnKeyPress(ByVal E As System.Windows.Forms.KeyPressEventArgs)
		If Me.MyDataType = MyTypes.SetInteger Then

			If E.KeyChar <> "0" And _
			E.KeyChar <> "1" And _
			E.KeyChar <> "2" And _
			E.KeyChar <> "3" And _
			E.KeyChar <> "4" And _
			E.KeyChar <> "5" And _
			E.KeyChar <> "6" And _
			E.KeyChar <> "7" And _
			E.KeyChar <> "8" And _
			E.KeyChar <> "9" And _
		   E.KeyChar <> ""c Then

				E.Handled = True
			End If

		ElseIf Me.MyDataType = MyTypes.SetDecimal Then

			If E.KeyChar <> "0" And _
					   E.KeyChar <> "1" And _
					   E.KeyChar <> "2" And _
					   E.KeyChar <> "3" And _
					   E.KeyChar <> "4" And _
					   E.KeyChar <> "5" And _
					   E.KeyChar <> "6" And _
					   E.KeyChar <> "7" And _
					   E.KeyChar <> "8" And _
					   E.KeyChar <> "9" And _
					   E.KeyChar <> "." And _
					  E.KeyChar <> ""c Then


				E.Handled = True
			Else
				For i As Integer = 0 To Me.Text.Length - 1
					If Me.Text.Chars(i) = "." Then
						DotCounter = 1
					End If
				Next
				If DotCounter = 1 And E.KeyChar = "." Then DotCounter = 0 : E.Handled = True

			End If

		ElseIf Me.MyDataType = MyTypes.SetSymbols Then

			If E.KeyChar <> "~" And E.KeyChar <> "!" And E.KeyChar <> "@" _
								And E.KeyChar <> "#" And E.KeyChar <> "$" _
								And E.KeyChar <> "%" And E.KeyChar <> "^" _
								And E.KeyChar <> "&" And E.KeyChar <> "*" _
								And E.KeyChar <> "(" And E.KeyChar <> ")" _
								And E.KeyChar <> "_" And E.KeyChar <> "-" _
								And E.KeyChar <> "=" And E.KeyChar <> "+" _
								And E.KeyChar <> "/" And E.KeyChar <> "\" _
								And E.KeyChar <> "|" And E.KeyChar <> "{" _
								And E.KeyChar <> "}" And E.KeyChar <> "[" _
								And E.KeyChar <> "]" And E.KeyChar <> "<" _
								And E.KeyChar <> ">" And E.KeyChar <> """" _
								And E.KeyChar <> "'" And E.KeyChar <> ":" _
								And E.KeyChar <> ";" And E.KeyChar <> "×" _
								And E.KeyChar <> "÷" And E.KeyChar <> "‘" _
								And E.KeyChar <> ""c Then

				E.Handled = True
			End If





		ElseIf Me.MyDataType = MyTypes.SetStringOnly Then

			If E.KeyChar <> "~" And E.KeyChar <> "!" And E.KeyChar <> "@" _
								And E.KeyChar <> "#" And E.KeyChar <> "$" _
								And E.KeyChar <> "%" And E.KeyChar <> "^" _
								And E.KeyChar <> "&" And E.KeyChar <> "*" _
								And E.KeyChar <> "(" And E.KeyChar <> ")" _
								And E.KeyChar <> "_" And E.KeyChar <> "-" _
								And E.KeyChar <> "=" And E.KeyChar <> "+" _
								And E.KeyChar <> "/" And E.KeyChar <> "\" _
								And E.KeyChar <> "|" And E.KeyChar <> "{" _
								And E.KeyChar <> "}" And E.KeyChar <> "[" _
								And E.KeyChar <> "]" And E.KeyChar <> "<" _
								And E.KeyChar <> ">" And E.KeyChar <> """" _
								And E.KeyChar <> "'" And E.KeyChar <> ":" _
								And E.KeyChar <> ";" And E.KeyChar <> "×" _
								And E.KeyChar <> "÷" And E.KeyChar <> "‘" _
								And E.KeyChar <> "0" And E.KeyChar <> "1" _
								And E.KeyChar <> "2" And E.KeyChar <> "3" _
								And E.KeyChar <> "4" And E.KeyChar <> "5" _
								And E.KeyChar <> "6" And E.KeyChar <> "7" _
								And E.KeyChar <> "8" And E.KeyChar <> "9" _
								And E.KeyChar <> "." And E.KeyChar <> "?" _
								And E.KeyChar <> "؟" And E.KeyChar <> "," Then

				E.Handled = False
			Else
				E.Handled = True
			End If

		End If
	End Sub

	Enum _priority
		No
		Yes
	End Enum
End Class

وقولي ايه الخطأ اللي فيه

Mohamed Ali Salim

0.1..0...4....7.....6......2.......7........4.........8

#1115 مايو 2009 في 19:16

لم تذكر اسم النيم سبيس التابع له هذا الكنترول هل هو Production Planning كما هوه مذكور في الكود أم لا؟

#1215 مايو 2009 في 22:11

هذا مش اكتر من انه كلاس

عملت كلاس عادي جدا وكتبت فيه الكلام ده

وشغال عادي جدا مع اي مشروع

الا المشروع ده

Mohamed Ali Salim

0.1..0...4....7.....6......2.......7........4.........8

#1317 مايو 2009 في 18:14

حتى يعمل أي كلاس داخل أي مشروع لا بد أن يكون داخل نيم سبيس معين. وهذا الكلاس قد يكون غير مرئي نظراً لأنه داخل نيم سبيس مختلف عن الموجود في المشروع وبالتالي يعطي هذا الخطأ.

#1417 مايو 2009 في 21:54

يعني اضع كل الكونترولز بتاعتي في نيم اسبيس ؟

هاجرب وهارد عليك

Mohamed Ali Salim

0.1..0...4....7.....6......2.......7........4.........8

مواضيع مشابهة

للمشرفين .. عندي مشكلة3 رد · 26 أبريل 2005
مرحبا عندي مشكلة لم يظهر عندي عنصر التقارير2 رد · 4 يوليو 2005
ارجوكم عندي مشكله صعبه عندي بس سهلة عندكم3 رد · 11 ديسمبر 2003
عندي مشكلة في سلة المهملات3 رد · 17 أكتوبر 2003
لو سمحتوا عندى مشكله فى kx t77300 رد · 29 فبراير 2016
عندي مشكلة في عرض سجل من قاعدة البيانات6 رد · 31 أغسطس 2006

عندي مشكلة في الأداة اللي عملتها ( بالصور) ال Compiler بيكتب كلام وبيرفضه

مواضيع مشابهة

عدد الزوار حالياً