01-10-12, 11:05 PM
كاتب الموضوع : !!! BoriS !!!
فى بعض الاوقات تحتاج الى أضافة ادوات فى ال Run Time وقت التشغيل اى بواسطة الكود ..هذا مثال بسيط لاضافة ListBox وقت التنفيذ ..
كود :
[color=#000000][COLOR=#007700]Private [/color][color=#0000bb]Sub Form1_Load[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]EventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles MyBase[/color][color=#007700].[/color][COLOR=#0000bb]Load
Dim ListBoxControl [/COLOR][color=#007700]As New [/color][COLOR=#0000bb]ListBox
ListBoxControl[/COLOR][color=#007700].[/color][color=#0000bb]Top [/color][color=#007700]= [/color][COLOR=#0000bb]50
ListBoxControl[/COLOR][color=#007700].[/color][color=#0000bb]Left [/color][color=#007700]= [/color][COLOR=#0000bb]50
ListBoxControl[/COLOR][color=#007700].[/color][color=#0000bb]Width [/color][color=#007700]= [/color][COLOR=#0000bb]300
ListBoxControl[/COLOR][color=#007700].[/color][color=#0000bb]Width [/color][color=#007700]= [/color][COLOR=#0000bb]100
ListBoxControl[/COLOR][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][COLOR=#dd0000]"Boris"
[/COLOR][color=#0000bb]Me[/color][color=#007700].[/color][color=#0000bb]Controls[/color][color=#007700].[/color][color=#0000bb]Add[/color][color=#007700]([/color][color=#0000bb]ListBoxControl[/color][COLOR=#007700])
[/COLOR][color=#0000bb]ListBoxControl[/color][color=#007700].[/color][color=#0000bb]Items[/color][color=#007700].[/color][color=#0000bb]Add[/color][color=#007700]([/color][color=#dd0000]"Essam"[/color][COLOR=#007700])
[/COLOR][color=#0000bb]ListBoxControl[/color][color=#007700].[/color][color=#0000bb]Items[/color][color=#007700].[/color][color=#0000bb]Add[/color][color=#007700]([/color][color=#dd0000]"Hack_88@hotmail.com"[/color][COLOR=#007700])
[/COLOR][COLOR=#0000bb]End Sub
[/COLOR][/COLOR]
ويمكنك التعامل مع باقى ال Controls
تحياتى