تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
أضافة Control فى ال Run Time
#1
كاتب الموضوع : !!! 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

تحياتى
}}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم