В качестве еще одного примера демонстрации универсальности HarePoint Explorer for SharePoint рассмотрим работу с классом System.Windows.Forms.Form.
Откроем новое окно сценария и модифицируем текст метода main следующим образом:
C# using System; using System.Collections.Generic; using System.Diagnostics; using System.Text; using MAPILab.SharePoint.Explorer.CodeForm; using MAPILab.SharePoint.Explorer.Utilities.ScriptRunner; using System.Windows.Forms; public class Tester { static void Main( MAPILab.SharePoint.Explorer.CodeForm.MLCodeForm thisForm ,MAPILab.SharePoint.Explorer.Utilities.ScriptRunner.MLBrowser browser ) { Form form = new Form(); form.Text = "Hello From HarePoint Explorer for SharePoint"; FlowLayoutPanel layoutPanel = new FlowLayoutPanel(); form.Controls.Add(layoutPanel); layoutPanel.Dock = DockStyle.Fill; TextBox textBox = new TextBox(); textBox.Text = "Enter you name"; layoutPanel.Controls.Add(textBox); Button button = new Button(); button.Text = "Click Me!"; layoutPanel.Controls.Add(button); form.Show(); // Output browser configuration //browser.Text = "Browser window"; //browser.DisplayMode = MAPILab.SharePoint.Explorer.Utilities.ScriptRunner.DisplayMode.Expanded; browser.ReturnValue = form; } }
Visual Basic Imports System Imports System.Collections.Generic Imports System.Diagnostics Imports System.Text Imports MAPILab.SharePoint.Explorer.CodeForm Imports MAPILab.SharePoint.Explorer.Utilities.ScriptRunner Imports System.Windows.Forms Public Class Tester Shared Sub Main(ByVal thisForm As MAPILab.SharePoint.Explorer.CodeForm.MLCodeForm, ByVal browser As MAPILab.SharePoint.Explorer.Utilities.ScriptRunner.MLBrowser) Dim form As Form = new Form() form.Text = "Hello From HarePoint Explorer for SharePoint" Dim layoutPanel As FlowLayoutPanel = new FlowLayoutPanel() form.Controls.Add(layoutPanel) layoutPanel.Dock = DockStyle.Fill Dim textBox As TextBox = new TextBox() textBox.Text = "Enter you name" layoutPanel.Controls.Add(textBox) Dim button As Button = new Button() button.Text = "Click Me!" layoutPanel.Controls.Add(button) form.Show() ' Output browser configuration 'browser.Text = "Browser window" 'browser.DisplayMode = MAPILab.SharePoint.Explorer.Utilities.ScriptRunner.DisplayMode.Expanded browser.ReturnValue = form End Sub End Class
Приведенный программный код создает новое окно, добавляет в него несколько элементов управления, после чего показывает его с помощью метода Show() и возвращает ссылку на объект окна для дальнейшего изучения. Результат выполнения сценария выглядит примерно так:
Здесь хочется обратить внимание на то, что свойства созданного окна можно изменять. Путем изменения свойств (ничего не закрывая), наше окно можно заставить выглядеть, например, так: