HarePoint Explorer for SharePoint
 

Пример работы с Windows Forms

В качестве еще одного примера демонстрации универсальности 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() и возвращает ссылку на объект окна для дальнейшего изучения. Результат выполнения сценария выглядит примерно так:

Показать скриншот

Здесь хочется обратить внимание на то, что свойства созданного окна можно изменять. Путем изменения свойств (ничего не закрывая), наше окно можно заставить выглядеть, например, так:

Показать скриншот