<![CDATA[
<html><head>
<title>Overview</title>
<meta name="generator" content="HelpMaker">
<meta name="keywords" content="Overview">
<link rel="stylesheet" type="text/css" href="hm.css"></head>
<body bgcolor="#FFFCEA">
<table width="100%" border="0" cellspacing="0" cellpadding="2" bgcolor="#C0C0C0">
<tr>
<td align="left">
<body><div align="left" dir="rtl"><font face="Arial"><span style=" font-size:10pt">Overview</span></font></div></body></html>
</td>
<td align="right">
<font face="Arial" size="2">
<a href="overview.html">Top</a> <a href="createnew.htm">Next</a>
</font>
</td>
</tr></table>
<hr><body><div align="left"><font face="Arial"><span style=" font-size:10pt">The Door library is a special library.</span></font></div><div align="left"><font face="Arial"><span style=" font-size:10pt">It allows you to access .Net objects, methods and properties from Basic4ppc code without
creating new libraries.</span></font></div><div align="left"><font face="Arial"><span style=" font-size:10pt">It won't replace any existing library but rather make these libraries and Basic4ppc itself more
complete.</span></font></div><div align="left"><font face="Arial"><span style=" font-size:10pt">For example you can use this library to access all the properties of a control (on the desktop or
device) and not only the subset supported by Basic4ppc.</span></font></div><div align="left"><font face="Arial (Hebrew)"><span style=" font-size:10pt"><br></span></font></div><div align="left"><font face="Arial"><span style=" font-size:10pt">You should have some knowledge with the .Net Framework if you want to fully exploit this library.</span></font></div><div align="left"><font face="Arial (Hebrew)"><span style=" font-size:10pt"><br></span></font></div><div align="left"><font face="Arial"><span style=" font-size:10pt">There are three types of objects in the Door library.</span></font></div><div align="left"><font face="Arial"><span style=" font-size:10pt">Object - The main data type which holds the value of a specific .Net object.</span></font></div><div align="left"><font face="Arial"><span style=" font-size:10pt">ObjectArray - An array of objects. It is mostly used to pass arguments to methods or constructors.</span></font></div><div align="left"><font face="Arial"><span style=" font-size:10pt">Event - Represents an event and allows adding events to objects.</span></font></div><div align="left"><font face="Arial"><span style=" font-size:10pt">The following types of events arguments are supported:</span></font></div><div align="left"><font face="Arial"><span style=" font-size:10pt">- EventHandler</span></font></div><div align="left"><font face="Arial"><span style=" font-size:10pt">- KeyEventHandler</span></font></div><div align="left"><font face="Arial"><span style=" font-size:10pt">- KeyPressEventHandler</span></font></div><div align="left"><font face="Arial"><span style=" font-size:10pt">- MouseEventHandler</span></font></div><div align="left"><font face="Arial"><span style=" font-size:10pt">- PaintEventHandler</span></font></div><div align="left"><font face="Arial (Hebrew)"><span style=" font-size:10pt"><br></span></font></div><div align="left"><font face="Arial"><span style=" font-size:10pt">Examples:</span></font></div><div align="left"><font face="Arial"><span style=" font-size:10pt"><b>Change the Form's KeyPreview property to true - All keystrokes will be first handled by
Form_KeyPress event.</b></span></font></div><div align="left"><font face="Arial"><span style=" font-size:10pt">Form1 is a regular Form, ofrm is an Object</span></font></div><div align="left"><font face="Courier New" color="#0000ff"><span style=" font-size:10pt">Sub </span></font><font face="Courier New"><span style=" font-size:10pt">App_Start</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt">    Form1.Show</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt">    ofrm.New1(false)</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt">    ofrm.FromControl(</span></font><font face="Courier New" color="#800000"><span style=" font-size:10pt">"Form1"</span></font><font face="Courier New"><span style=" font-size:10pt">)</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt">    ofrm.SetProperty(</span></font><font face="Courier New" color="#800000"><span style=" font-size:10pt">"KeyPreview"</span></font><font face="Courier New"><span style=" font-size:10pt">,true)</span></font></div><div align="left"><font face="Courier New" color="#0000ff"><span style=" font-size:10pt">End Sub</span></font></div><div align="left"><font face="Arial (Hebrew)"><span style=" font-size:10pt"><br></span></font></div><div align="left"><font face="Arial"><span style=" font-size:10pt"><b>Desktop only: Change the icon of a specific form.</b></span></font></div><div align="left"><font face="Arial"><span style=" font-size:10pt">Form1 is a regular Form, ofrm and oIcon are Objects, args is an ObjectArray.</span></font></div><div align="left"><font face="Courier New" color="#0000ff"><span style=" font-size:10pt">Sub </span></font><font face="Courier New"><span style=" font-size:10pt">App_Start</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt">    Form1.Show</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt">    ofrm.New1(false)</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt">    oIcon.New1(false)</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt">    ChangeIcon(</span></font><font face="Courier New" color="#800000"><span style=" font-size:10pt">"Form1"</span></font><font face="Courier New"><span style=" font-size:10pt">,</span></font><font face="Courier New" color="#0000ff"><span style=" font-size:10pt">AppPath</span></font><font face="Courier New"><span style=" font-size:10pt"> & </span></font><font face="Courier New" color="#800000"><span style=" font-size:10pt">"\SomeIcon.ico"</span></font><font face="Courier New"><span style=" font-size:10pt">)</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt">    </span></font><font face="Courier New" color="#008000"><span style=" font-size:10pt">'ChangeIcon("Form2",AppPath & "\AnotherIcon.ico")</span></font></div><div align="left"><font face="Courier New" color="#0000ff"><span style=" font-size:10pt">End Sub</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt"><br></span></font></div><div align="left"><font face="Courier New" color="#0000ff"><span style=" font-size:10pt">Sub </span></font><font face="Courier New"><span style=" font-size:10pt">ChangeIcon (FormName, IconFile)</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt">    ofrm.FromControl(FormName)</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt">    args.New1(</span></font><font face="Courier New" color="#800080"><span style=" font-size:10pt">1</span></font><font face="Courier New"><span style=" font-size:10pt">)</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt">    args.SetValue(</span></font><font face="Courier New" color="#800080"><span style=" font-size:10pt">0</span></font><font face="Courier New"><span style=" font-size:10pt">,IconFile,</span></font><font face="Courier New" color="#800000"><span style=" font-size:10pt">"System.String"</span></font><font face="Courier New"><span style=" font-size:10pt">)</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt">    oIcon.CreateNew2(</span></font><font face="Courier New" color="#800000"><span style=" font-size:10pt">"System.Drawing.Icon"</span></font><font face="Courier New"><span style=" font-size:10pt"> & oIcon.System_Drawing,
args.Value)</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt">    ofrm.SetProperty2(</span></font><font face="Courier New" color="#800000"><span style=" font-size:10pt">"Icon"</span></font><font face="Courier New"><span style=" font-size:10pt">,oIcon.Value)</span></font></div><div align="left"><font face="Courier New" color="#0000ff"><span style=" font-size:10pt">End Sub</span></font></div><div align="left"><font face="Courier New" color="#0000ff"><span style=" font-size:10pt"><br></span></font></div><div align="left"><font face="Arial"><span style=" font-size:10pt"><b>Set the WebRequest Referer header's value.</b></span></font></div><div align="left"><font face="Arial"><span style=" font-size:10pt">WebRequest1 is a WebRequest object (HTTP library), obj is an Object.</span></font></div><div align="left"><font face="Courier New" color="#0000ff"><span style=" font-size:10pt">Sub </span></font><font face="Courier New"><span style=" font-size:10pt">App_Start</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt">    WebRequest1.New1(</span></font><font face="Courier New" color="#800000"><span style=" font-size:10pt">"http://www.basic4ppc.com"</span></font><font face="Courier New"><span style=" font-size:10pt">)</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt">    obj.New1(false)</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt">    obj.FromLibrary(</span></font><font face="Courier New" color="#800000"><span style=" font-size:10pt">"WebRequest1"</span></font><font face="Courier New"><span style=" font-size:10pt">,</span></font><font face="Courier New" color="#800000"><span style=" font-size:10pt">"req"</span></font><font face="Courier New"><span style=" font-size:10pt">,</span></font><font face="Courier New" color="#0000ff"><span style=" font-size:10pt">B4PObject</span></font><font face="Courier New"><span style=" font-size:10pt">(</span></font><font face="Courier New" color="#800080"><span style=" font-size:10pt">2</span></font><font face="Courier New"><span style=" font-size:10pt">))</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt">    obj.SetProperty(</span></font><font face="Courier New" color="#800000"><span style=" font-size:10pt">"Referer"</span></font><font face="Courier New"><span style=" font-size:10pt">,</span></font><font face="Courier New" color="#800000"><span style=" font-size:10pt">"http://xxx.xxx.xx"</span></font><font face="Courier New"><span style=" font-size:10pt">)</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt">    </span></font><font face="Courier New" color="#008000"><span style=" font-size:10pt">'Msgbox(obj.GetProperty("Referer"))</span></font></div><div align="left"><font face="Courier New" color="#0000ff"><span style=" font-size:10pt">End Sub</span></font></div><div align="left"><font face="Arial"><span style=" font-size:10pt"><br></span></font></div><div align="left"><font face="Arial"><span style=" font-size:10pt"><br></span></font></div><div align="left"><font face="Arial"><span style=" font-size:10pt"><b>Passing color value.</b></span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt">Sub App_Start</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt">    Form1.Show</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt">    clr.New1(false)</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt">    txt.New1(false)</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt">    txt.FromControl("textbox1")</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt">    clr.CreateNew("System.Drawing.Color" & clr.System_Drawing)</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt"> 
txt.SetPr</span></font><font face="Courier New"><span style=" font-size:10pt">operty2(</span></font><font face="Courier New" color="#800000"><span style=" font-size:10pt">"BackColor"</span></font><font face="Courier New"><span style=" font-size:10pt">,clr.RunMethod2(</span></font><font face="Courier New" color="#800000"><span style=" font-size:10pt">"FromArgb"</span></font><font face="Courier New"><span style=" font-size:10pt">,cRed,</span></font><font face="Courier New" color="#800000"><span style=" font-size:10pt">"System.Int32"</span></font><font face="Courier New"><span style=" font-size:10pt">)) </span></font><font face="Courier New" color="#008000"><span style=" font-size:10pt">'Use Color.FromArgb(Int32) to pass the color</span></font></div><div align="left"><font face="Courier New" color="#0000ff"><span style=" font-size:10pt">End Sub</span></font></div><div align="left"><font face="Arial"><span style=" font-size:10pt"><br></span></font></div><div align="left"><font face="Arial"><span style=" font-size:10pt"><b>Events examples:</b></span></font></div><div align="left"><font face="Arial"><span style=" font-size:10pt"><b>Handle the TextChanged event (fires whenever the text changes).</b></span></font></div><div align="left"><font face="Courier New" color="#008000"><span style=" font-size:10pt">'obj is an Object, TextBox1ChangedEvent is an Event.</span></font></div><div align="left"><font face="Courier New" color="#0000ff"><span style=" font-size:10pt">Sub </span></font><font face="Courier New"><span style=" font-size:10pt">App_Start</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt">    Form1.Show</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt">    obj.New1(false)</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt">    obj.FromControl(</span></font><font face="Courier New" color="#800000"><span style=" font-size:10pt">"textbox1"</span></font><font face="Courier New"><span style=" font-size:10pt">)</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt">    TextBox1ChangedEvent.New1( obj.Value,</span></font><font face="Courier New" color="#800000"><span style=" font-size:10pt">"TextChanged"</span></font><font face="Courier New"><span style=" font-size:10pt">)</span></font></div><div align="left"><font face="Courier New" color="#0000ff"><span style=" font-size:10pt">End Sub</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt"><br></span></font></div><div align="left"><font face="Courier New" color="#0000ff"><span style=" font-size:10pt">Sub </span></font><font face="Courier New"><span style=" font-size:10pt">TextBox1ChangedEvent_NewEvent</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt">    form1.Text = textbox1.Text</span></font></div><div align="left"><font face="Courier New" color="#0000ff"><span style=" font-size:10pt">End Sub</span></font></div><div align="left"><font face="Arial"><span style=" font-size:10pt"><br></span></font></div><div align="left"><font face="Arial"><span style=" font-size:10pt"><b>Show which mouse button was pressed.</b></span></font></div><div align="left"><font face="Courier New" color="#008000"><span style=" font-size:10pt">'obj and o are Objects, MouseDownEvent is an Event.</span></font></div><div align="left"><font face="Courier New" color="#0000ff"><span style=" font-size:10pt">Sub </span></font><font face="Courier New"><span style=" font-size:10pt">App_Start</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt">    Form1.Show</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt">    obj.New1(false)</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt">    o.New1(false)</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt">    obj.FromControl(</span></font><font face="Courier New" color="#800000"><span style=" font-size:10pt">"form1"</span></font><font face="Courier New"><span style=" font-size:10pt">)</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt">    MouseDownEvent.New1( obj.Value,</span></font><font face="Courier New" color="#800000"><span style=" font-size:10pt">"MouseDown"</span></font><font face="Courier New"><span style=" font-size:10pt">)</span></font></div><div align="left"><font face="Courier New" color="#0000ff"><span style=" font-size:10pt">End Sub</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt"><br></span></font></div><div align="left"><font face="Courier New" color="#0000ff"><span style=" font-size:10pt">Sub </span></font><font face="Courier New"><span style=" font-size:10pt">MouseDownEvent_NewEvent</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt">    o.Value = MouseDownEvent.Data </span></font><font face="Courier New" color="#008000"><span style=" font-size:10pt">'Get the event's data.</span></font></div><div align="left"><font face="Courier New"><span style=" font-size:10pt">    form1.Text = o.GetProperty(</span></font><font face="Courier New" color="#800000"><span style=" font-size:10pt">"Button"</span></font><font face="Courier New"><span style=" font-size:10pt">) </span></font><font face="Courier New" color="#008000"><span style=" font-size:10pt">'Returns Left, Middle or Right</span></font></div><div align="left"><font face="Courier New" color="#0000ff"><span style=" font-size:10pt">End Sub</span></font></div><div align="left"><font face="Courier New" color="#0000ff"><span style=" font-size:10pt"><br></span></font></div><div align="left"><font face="Arial"><span style=" font-size:10pt"><br></span></font></div><div align="left"> </div></body></html>
</body></html>
]]>