هل يمكن اضافة كود فى RunTime

السلام عليكم

لا اعتقد ولا اعتقد بشدة

السلام عليكم

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

مثلا اقرأ سطر من الملف ثم افحص الامر

if text1 ="List1.AddItem" then

List1.AddItem text2

endif

يعني في الملف تضع الامر وبجانبه القيمة التي تريدها ثم تقرأ السطر وتفحص الامر وعلى اساس الامر تتحكم في القيمة

ارجو ان ت كون وصلت الفكرة

جرب الكود التالي :

Dim S As String
Dim F As Integer
	F = FreeFile
	Open "C:\ListData.txt" For Input As F
		Input #F, S
	Close F

		If Mid(S, 1, 4) = "Add " Then
			List1.AddItem (Mid(S, 5))
		End If

طبعا لا تنسى إنشاء ملف اسمه ListData.txt داخل القرص C

وتضع فيه القيمة التالية :

Add 10

ولا تنسى المسافة التي تفصل Add عن 10

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

أعتقد أنه ممكن التحايل على الموضوع بكتابة ملفات VBS و تنفيذها لكن طبعا مش هيبقى زى ما أنت عايز قوى.

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

وكل عام وانتم بخير

توجد أداة قد يسمع بها البعض لكن معظمنا لا يستعملها إطلاقا وهي ScriptControl

وبعد اضافتها على الفورم

نضيف object باسمه مثلا نضيف الليست بوكس باسم معين ككائن لكي يتم تعريفه ويتم تنفيذ الكود

ScriptControl1.AddObject "List1", List1

بعد ذلك يمكننا أن ننفذ الكود الموجود داخل نص

ScriptControl1.ExecuteStatement "List1.AddItem 1"

بالتوفيق للجميع

الأخ الفاضل ...

راجع: هل يمكن إضافة كود وتنفيذة إثناء التشغيل

شكراً

Private Sub Command1_Click()
   ScriptControl1.AddObject "list1", List1
	Open "C:\code.txt" For Input As #1
a:
	   Input #1, x
  ScriptControl1.ExecuteStatement x
		If EOF(1) Then
								Close #1
		Exit Sub
		Else
		GoTo a:
		End If
End Sub

جزاك الله خيرا على الأداة أخي DreamNet

وأعتقد أنها قد تكفي لإنشاء VB Compiler

ياااااااااة

أنا أول من قرأ هذا الموضوع ، وخلال الفترة السابقة كنت أحاول أفتكر طريقة ScriptControl ولما أفتكرت دخلت لكي أضع مثال فوجدت الأخ الغالي DreamNet سبقني ووضع الطريقة !!!

علي العموم الي سبق أكل النبأ ، شكراً أخي الغالي علي الطريقة مرة أخري .

أما الآن فإسمحولي أن أضع المثال الذي قمت بإعدادة منذ ساعة تقريباً ، إستكمالاً للأخ DreamNet وحتي لا أشعر بضياع لوقتي .

شكراً

Lang.rar