ادوات مهمة لتصميم الفورم باستخدام ocx ارجو التثبيت

changeres.SetResolution(800, 600)
changeres.ChangeResolution = True

هذا هو كود تغير الريزوليوشن

انا اسف جدا اخوانى الكرام لكن من خلال قرائاتى لردودكم فى هذا الموضوع انكم تجنبتم الموضوع الرئيسى واتجهتم لموضوع فرعى وهو اثقال كاهل اخينا www2 باللوم والعتاب

لقد اعترف الرجل بخطئة وانتهى الموضوع وبصراحة انا لى راى فى هذا الموضوع فكل منا فى بدايتة كان كالغريق مثل اخينا الكريم الفارق الوحيد ان كل منا وجد من يدلة على الطريق لكن الرجل لم يجد من يرشده فقفز فى البحر وظل يتخبط يمينا ويسارا واعتقد انه الان قد تعلم الدرس بل انى اعتقد ان المشاركة القادمة لة ستكون اول مشروع لة

اما اخينا elbzar فله كل الشكر على مشاركاتة المفيدة واتمنى من الاخوة الكرام المشاركة معة بالادوات حتى لا يحزن الرجل فكما ترون هو لا يزال حديث العهد بالمشاركات الايجابية

وكبادرة منى اهديكم هاتين الاداتين المشهورتين فى صناعة الازرار

وامنى ان تعجبكم اولا

ونتفاعل ثانيا

اعتذر

نسيت ارفاق الاداتين

من لم يفهم يمكننى ارسال الشرح لة

Xp[1].zip

sexyControls.rar

والأن اقوي مكتبة ادوات VbPowerPack.dll

لعمل التدرجات اللونية والcommon task والقائمة المنسدلة كما في الماسنجر

وغيرة الكثير

اضف المكتبة

وادعو لي

VbPowerPack.zip

ارجو التفاعل فهناك المزيد .............................

اين انتم يا شباب؟؟؟؟؟؟؟؟؟؟؟

الايملك احداً اي اداة

صدق او لا تصدق اليوم ساقوم بتنصيب الدوت نيت و ابحث عن هذه الادوات

طارق إبراهيم كتب:

صدق او لا تصدق اليوم ساقوم بتنصيب الدوت نيت و ابحث عن هذه الادوات

←

صادق ان شاء الله أخي

ارجو ان اري مشاركتك في موضوع اتحاد المبرمجين العرب

وتقديم المساعدة التي في استطاعتك

وهنيئاً لنا بدخولك الي الدوت نت

اين الادوات

مافي حد بدة يساهم في الموضوع غير الاخ عصام ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

عموماً مشكورين

وهنكمل بإذن الله

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

جزاك الله خيرا

"قل لا أسألكم عليه أجرا إن أجري إلا على رب العالمين"

تفاعل ...... :D

عمل رائع أخي elbzar

على ليس في هذاالموضوع فقط بل في المنتدى بشكل عام

والآن ... المزيد ..... :lol:

والان كاتب البار كود

BarCodeWriter.rar

elbzar كتب:

changeres.SetResolution(800, 600)
changeres.ChangeResolution = True

هذا هو كود تغير الريزوليوشن

كلام جميل

طيب دلوقتى احنا عرفنا نغير ال Resolution حسب برمجة مشروعنا

جميل

طيب انا عايز اعرف اى Resolution كان ضبطه المستخدم علشان لما يقفل البرنامج نرجعله ال Resolution بتاعه :wacko: زى ما كان

علشان مش يتخنق مننا :lol:

ارجو الافادة

تحياتى

cdcase كتب:

كلام جميل

طيب دلوقتى احنا عرفنا نغير ال Resolution حسب برمجة مشروعنا

جميل

طيب انا عايز اعرف اى Resolution كان ضبطه المستخدم علشان لما يقفل البرنامج نرجعله ال Resolution بتاعه :wacko: زى ما كان

علشان مش يتخنق مننا :lol:

ارجو الافادة

تحياتى

مشكور علي مرورك

بالنسبة لهذة المشكلة ستجد في الخاصية resolu~ للأداة القيمة الحالية للمستخدم

يعني انت ترجع القيمة الأول قبل ماتغير الريزوليوشن

وتقوم بتخزينها بأي طريقة (داتا بيز - ريجستري .... الخ)

وبعد كدة تغير الريزوليوشن زي مانتا عايز

وبعد مايعمل اغلاق للبرنامج تحط حدث تغيير الريزوليوشن مرة أخرة للقيمة اللتي قمت بتخزينها مشبقاً

elbzar كتب:

مشكور علي مرورك

بالنسبة لهذة المشكلة ستجد في الخاصية resolu~ للأداة القيمة الحالية للمستخدم

يعني انت ترجع القيمة الأول قبل ماتغير الريزوليوشن

وتقوم بتخزينها بأي طريقة (داتا بيز - ريجستري .... الخ)

وبعد كدة تغير الريزوليوشن زي مانتا عايز

وبعد مايعمل اغلاق للبرنامج تحط حدث تغيير الريزوليوشن مرة أخرة للقيمة اللتي قمت بتخزينها مشبقاً

مرحبا

مشكور أخى على سرعة ردك

ولكن هل ممكن التوضيح عن طريق الكود انى اوصل لبيانات ال Resolution الحالى

تحياتى

chres.ChangeResolution = True
		chres.ResetText()
		Dim x, y As Integer
		x = chres.Xpixels
		y = chres.Ypixels
		Try
			OleDbCommand1.CommandText = "update [res] set [xp]=" + x.ToString + ",[yp]=" + y.ToString + " where [id]=1"
			OleDbConnection1.Open()
			OleDbCommand1.ExecuteNonQuery()
		Catch Ex As Exception
			MsgBox(Ex.Message)
		Finally
			OleDbConnection1.Close()
		End Try
		chres.SetResolution(800, 600)

elbzar كتب:

chres.ChangeResolution = True
		chres.ResetText()
		Dim x, y As Integer
		x = chres.Xpixels
		y = chres.Ypixels
		Try
			OleDbCommand1.CommandText = "update [res] set [xp]=" + x.ToString + ",[yp]=" + y.ToString + " where [id]=1"
			OleDbConnection1.Open()
			OleDbCommand1.ExecuteNonQuery()
		Catch Ex As Exception
			MsgBox(Ex.Message)
		Finally
			OleDbConnection1.Close()
		End Try
		chres.SetResolution(800, 600)

جزاك الله خيراً يا أخى

نفعت معى

تحياتى