تحويل كود من vba الى DOT NET

اعتقد ان الكود قد يعمل !

لكن اذهب الى نافذة محرر الاكواد ، ثم اهذب الى قائمة Tools بعدها Upgrade VB6 Code

تحياتي

بسم الله الرحمن الرحيم

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

اخى النبهاني

شكرا للرد و عملت بالنصيحة و لكن التحويل كان حرفيا و لا يعمل على dot net حتى على vb6 الكود لا يعمل هذا الكود يعمل تمام في اكسس vba

For I = 1 to 25
ME("Button" & I ).Caption =I
next I

السلام عليكم, أولاً الكود غير محكم لانه لا يعتمد على عدد الازرار بشكل ديناميكي و إنما بشكل ثابت وحصري على القيمة 25 وهذا خلل برمجي

ثانياً الكلمة Caption انتهت في بيئة الدوت نت و استبدلت بالكلمة Text

آلية و أسلوب vba رخيص للغاية مقارنةً ببيئة دوت نت وهو مرفوض البتة .

لذلك بديل هذا الكود بشكل محكم و منطقي و يحاكي بيئته بشكل يتوافق معها على هذا النحو يكتب .

 Dim i As Integer = 1
		For Each ctl As Control In Me.Controls
			If TypeOf ctl Is Button Then
				ctl.Text = i.ToString
				i += 1
			End If
		Next

بالتوفيق إن شاء الله.

بسم الله الرحمن الرحيم

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

اخي الشهاب الحارق

شكرا للمساعده كان هذا طلبي

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