Vulcan.NET Using The VB PowerPack
REFERENCES "VbPowerPack.DLL"
REFERENCES "System.Windows.Forms"
REFERENCES "System.Drawing"
USING VbPowerPack
USING System.Windows.Forms
CLASS MyForm INHERIT System.Windows.Forms.Form
PROTECT oButton1 AS System.Windows.Forms.Button
PROTECT BlendPanel1 AS BlendPanel
PROTECT TaskPane1 AS TaskPane
PROTECT tskInfo1 AS TaskFrame
PROTECT tskInfo2 AS TaskFrame
PROTECT TextBox1 AS TextBox
PROTECT TextBox2 AS TextBox
CONSTRUCTOR() CLASS MyForm
SUPER()
SELF:InitializeForm()
RETURN
FUNCTION Start AS VOID
LOCAL o AS MyForm
System.Windows.Forms.Application.EnableVisualStyles()
o := MyForm{}
System.Windows.Forms.Application.Run(o)
RETURN
METHOD Button1Click(oControl AS OBJECT , e AS System.EventArgs) AS VOID CLASS MyForm
SELF:Close()
RETURN
METHOD InitializeForm() AS VOID CLASS MyForm
SELF:Location := System.Drawing.Point{100,100}
SELF:ClientSize := System.Drawing.Size{600,475}
SELF:Text := "Form"
SELF:oButton1:=System.Windows.Forms.Button{}
SELF:oButton1:Location := System.Drawing.Point{152,120}
SELF:oButton1:Size := System.Drawing.Size{72,24}
SELF:oButton1:Text := "Close"
SELF:oButton1:FlatStyle := System.Windows.Forms.FlatStyle.System
SELF:Controls:Add(SELF:oButton1)
SELF:BlendPanel1 := BlendPanel{}
SELF:BlendPanel1:Blend := BlendFill{BlendStyle.Vertical, System.Drawing.SystemColors.InactiveCaption, System.Drawing.SystemColors.Window}
SELF:BlendPanel1:Dock := System.Windows.Forms.DockStyle.Fill
SELF:BlendPanel1:Location := System.Drawing.Point{0,0}
SELF:BlendPanel1:Name := "BlendPanel1"
SELF:BlendPanel1:Size := System.Drawing.Size{338, 208}
SELF:BlendPanel1:Controls:Add(SELF:oButton1)
SELF:Controls:Add(SELF:BlendPanel1)
SELF:TaskPane1 := TaskPane{}
SELF:tskInfo1 := TaskFrame{}
SELF:TextBox1 := TextBox{}
SELF:tskInfo2 := TaskFrame{}
SELF:TextBox2 := TextBox{}
SELF:TaskPane1:AutoScroll := TRUE
SELF:TaskPane1:BackColor := System.Drawing.SystemColors.InactiveCaption
SELF:TaskPane1:CornerStyle := VbPowerPack.TaskFrameCornerStyle.SystemDefault
SELF:TaskPane1:Dock := System.Windows.Forms.DockStyle.Right
SELF:TaskPane1:Location := System.Drawing.Point{536, 0}
SELF:TaskPane1:Name := "TaskPane1"
SELF:TaskPane1:Size := System.Drawing.Size{248, 530}
SELF:tskInfo1:AllowDrop := TRUE
SELF:tskInfo1:BackColor := System.Drawing.SystemColors.InactiveCaptionText
SELF:tskInfo1:CaptionBlend := BlendFill{VbPowerPack.BlendStyle.Horizontal, System.Drawing.SystemColors.Window, System.Drawing.Color.FromArgb(152,188,155)}
SELF:tskInfo1:CaptionHighlightColor := System.Drawing.SystemColors.ActiveCaption
SELF:tskInfo1:Controls:Add(SELF:TextBox1)
SELF:tskInfo1:Location := System.Drawing.Point{12, 33}
SELF:tskInfo1:Name := "tskInfo1"
SELF:tskInfo1:Size := System.Drawing.Size{224, 190}
SELF:tskInfo1:Text := "TaskFrame 1"
SELF:TextBox1:BorderStyle := System.Windows.Forms.BorderStyle.Fixed3D
SELF:TextBox1:Location := System.Drawing.Point{10, 5}
SELF:TextBox1:Name := "TextBox1"
SELF:TextBox1:Size := System.Drawing.Size{206, 180}
SELF:TextBox1:MultiLine := TRUE
SELF:TextBox1:ScrollBars := System.Windows.Forms.ScrollBars.Vertical
SELF:TextBox1:AcceptsReturn := TRUE
SELF:TextBox1:WordWrap := TRUE
SELF:TextBox1:ReadOnly := TRUE
SELF:TextBox1:Text := "This is a TaskPanel." + _chr(13) + chr(10) + _chr(13) + chr(10) + ;
"You can click on the header and the contents of the panel will "+ ;
"scroll up and down like blinds."
SELF:tskInfo2:AllowDrop := TRUE
SELF:tskInfo2:BackColor := System.Drawing.SystemColors.InactiveCaptionText
SELF:tskInfo2:CaptionBlend := BlendFill{VbPowerPack.BlendStyle.Horizontal, System.Drawing.SystemColors.Window, System.Drawing.Color.FromArgb(152,188,155)}
SELF:tskInfo2:CaptionHighlightColor := System.Drawing.SystemColors.ActiveCaption
SELF:tskInfo2:Controls:Add(SELF:TextBox2)
SELF:tskInfo2:Location := System.Drawing.Point{12, 33}
SELF:tskInfo2:Name := "tskInfo2"
SELF:tskInfo2:Size := System.Drawing.Size{224, 190}
SELF:tskInfo2:Text := "TaskFrame 2"
SELF:TextBox2:ReadOnly := TRUE
SELF:TextBox2:Location := System.Drawing.Point{10, 5}
SELF:TextBox2:Size := System.Drawing.Size{206, 180}
SELF:TextBox2:MultiLine := TRUE
SELF:TextBox2:WordWrap := TRUE
SELF:TextBox2:Text := "You can put any other controls in this area as well."
SELF:TaskPane1:Controls:Add(SELF:tskInfo1)
SELF:TaskPane1:Controls:Add(SELF:tskInfo2)
SELF:Controls:Add(SELF:TaskPane1)
SELF:oButton1:Click += System.EventHandler{ SELF,@MyForm.Button1Click }
RETURN
