Imports IBM.WMQ
Imports System.Text

Module Module1
    Const HOST_NAME As String = "localhost"
    Const PORT As Integer= 1414
    Const QUEUE_MANAGER_NAME = "QM_APPLE"
    Const CHANNEL_NAME = "QM_ORANGE.QM_APPLE"
    Const QUEUE_NAME = "Q1"
    Const MESSAGE = "Hello World."
    
    Sub Main()
        ' キューへの接続情報
        Dim properties As New Hashtable()
        properties.Add(MQC.HOST_NAME_PROPERTY, HOST_NAME)
        properties.Add(MQC.PORT_PROPERTY, PORT)
        properties.Add(MQC.CHANNEL_PROPERTY, CHANNEL_NAME)
        Try
            Dim qMan = New MQQueueManager(QUEUE_MANAGER_NAME)
            Dim openOptions As Integer = MQC.MQOO_INPUT_AS_Q_DEF + MQC.MQOO_OUTPUT
            Dim queue = qMan.AccessQueue(QUEUE_NAME, openOptions)
            ' 送信処理
            Dim sendMessage = Encoding.UTF8.GetBytes(MESSAGE & Date.Now.ToString())
            Dim sendMQMessage As MQMessage = New MQMessage()
            sendMQMessage.Write(sendMessage)
            queue.Put(sendMQMessage)
            ' 受信処理
            Dim receiveMQMessage As MQMessage = New MQMessage()
            queue.Get(receiveMQMessage)
            Dim receiveMessage = Encoding.UTF8.GetString(receiveMQMessage.ReadBytes(receiveMQMessage.MessageLength))
            Console.WriteLine(receiveMessage)
        Catch e As Exception
            ' Do something
        End Try
    End Sub
End Module

' マクロの中断処理ができないため、サブルーチン化で対処
main()

sub main()
    set shell = CreateObject("WScript.Shell")
    
    ' メニュー情報
    const REPLACE_SYMBOL = "REPLACE_SYMBOL"
    dim menu(7, 2)
    menu(1, 1) = "指定文字列を含む行"
    menu(1, 2) = ".*" & REPLACE_SYMBOL & ".*(\r\n|\n|.*)"
    
    menu(2, 1) = "指定文字列を含まない行"
    menu(2, 2) = "^(?!.*" & REPLACE_SYMBOL & ").*(\r\n|\n|.*)"
    
    menu(3, 1) = "指定文字列で始まる行"
    menu(3, 2) = "^" & REPLACE_SYMBOL & ".*(\r\n|\n|.*)"
    
    menu(4, 1) = "指定文字列で始まらない行"
    menu(4, 2) = "^(?!" & REPLACE_SYMBOL & ").*(\r\n|\n|.*)"
    
    menu(5, 1) = "指定文字列で終わる行"
    menu(5, 2) = ".*" & REPLACE_SYMBOL & "$(\r\n|\n|.*)"
    
    menu(6, 1) = "指定文字列で終わらない行"
    menu(6, 2) = "^(?!.*" & REPLACE_SYMBOL & "$).*(\r\n|\n|.*)"
    
    menu(7, 1) = "空行"
    menu(7, 2) = "^(\r\n|\n)"
    
    ' メッセージ生成
    message = ""
    menuSize = UBound(menu)
    for i = 1 to menuSize
        message = message & i & "：" & menu(i, 1) & vbCrLf
    next
    
    ' 処理番号の入力プロンプト
    str = inputbox(message, "指定条件の行削除")
    
    ' 入力がない場合、終了
    if str = "" then
        exit sub
    end if
    
    ' 数値でない入力の場合、ダイアログを表示し終了
    if not isNumeric(str) then
        MsgBox "数値を入力してください。"
        exit sub
    end if
    
    ' 無効な番号入力の場合、ダイアログを表示し終了
    inputNumber = CInt(str)
    if inputNumber < 0 or menuSize < inputNumber then
        MsgBox "表示された番号から選択してください。"
        exit sub
    end if

    if inputNumber <> 7 then
        ' 条件文字列の入力プロンプト
        str = inputbox("条件文字列を正規表現形式で入力してください。", menu(inputNumber, 1))

        ' 入力がない場合、終了
        if str = "" then
            exit sub
        end if
    end if

    ' 正規表現を実行
    regex = menu(inputNumber, 2)
    regex = replace(regex, REPLACE_SYMBOL, str)
    Editor.ReplaceAll regex, "", 156
end sub

private void button1_Click(object sender, RoutedEventArgs e)
{
    int rowIndex = 0;
    int colIndex = 1;
    // 行、列の番号を指定してDataGridCellを取得する
    DataGridCell cell = GetDataGridCell(dataGrid1, rowIndex, colIndex);
    // データグリッドセルにフォーカスする
    FocusManager.SetFocusedElement(this, cell);
}

public DataGridCell GetDataGridCell(DataGrid dataGrid, int rowIndex, int columnIndex)
{
    if (dataGrid.Items == null || dataGrid.Items.IsEmpty)
    {
        return null;
    }
    DataGridRow row = GetDataGridRow(dataGrid, rowIndex);
    if (row != null)
    {
        DataGridCellsPresenter presenter = GetVisualChild<DataGridCellsPresenter>(row);
        DataGridCell cell = (DataGridCell)presenter.ItemContainerGenerator.ContainerFromIndex(columnIndex);
        if (cell == null)
        {
            // Visual Treeが構築されていない場合もあるため更新
            dataGrid.UpdateLayout();
            dataGrid.ScrollIntoView(row, dataGrid.Columns[columnIndex]);
            cell = (DataGridCell)presenter.ItemContainerGenerator.ContainerFromIndex(columnIndex);
        }
        return cell;
    }
    return null;
}

public DataGridRow GetDataGridRow(DataGrid dataGrid, int index)
{
    if (dataGrid.Items == null || dataGrid.Items.IsEmpty)
    {
        return null;
    }
    DataGridRow row = (DataGridRow)dataGrid.ItemContainerGenerator.ContainerFromIndex(index);
    if (row == null)
    {
        // Visual Treeが構築されていない場合もあるため更新
        dataGrid.UpdateLayout();
        dataGrid.ScrollIntoView(dataGrid.Items[index]);
        row = (DataGridRow)dataGrid.ItemContainerGenerator.ContainerFromIndex(index);
    }
    return row;
}

public static T GetVisualChild<T>(Visual parent) where T : Visual
{
    T result = default(T);
    int childrenCount = VisualTreeHelper.GetChildrenCount(parent);
    for (int i = 0; i < childrenCount; i++)
    {
        Visual child = (Visual)VisualTreeHelper.GetChild(parent, i);
        result = child as T;
        if (result == null)
        {
            result = GetVisualChild<T>(child);
        }
        if (result != null)
        {
            break;
        }
    }
    return result;
}

<Window x:Class="WpfDataGrid.BindingWithViewModel.TestWindow"
        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
        Title="TestWindow" Height="300" Width="300" Loaded="Window_Loaded">
    <Grid>
        <DataGrid AutoGenerateColumns="False" Height="200" HorizontalAlignment="Left"
                  Name="dataGrid1" VerticalAlignment="Top" ItemsSource="{Binding DataTable}">
            <DataGrid.Columns>
                <DataGridTextColumn x:Name="Column1" Binding="{Binding Path=col1}" Width="100" />
                <DataGridTextColumn x:Name="Column2" Binding="{Binding Path=col2}" Width="100" />
            </DataGrid.Columns>
        </DataGrid>
    </Grid>
</Window>

using System.Data;

namespace WpfDataGrid.BindingWithViewModel
{
    class ViewModel
    {
        public DataTable DataTable { get; set; }
    }
}

using System.Windows;
using System.Data;

namespace WpfDataGrid.BindingWithViewModel
{
    /// 

    /// TestWindow.xaml の相互作用ロジック
    /// 

    public partial class TestWindow : Window
    {
        public TestWindow()
        {
            InitializeComponent();
        }

        private void Window_Loaded(object sender, RoutedEventArgs e)
        {
            DataTable dt = new DataTable();
            dt.Columns.Add("col1");
            dt.Columns.Add("col2");
            dt.Rows.Add("1", "One");
            dt.Rows.Add("2", "Two");
            ViewModel vm = new ViewModel();
            vm.DataTable = dt;
            DataContext = vm;
        }
    }
}

Dim key As Key = Key.Insert
Dim target As UIElement = Keyboard.FocusedElement
Dim routedEvent As RoutedEvent = Keyboard.KeyDownEvent
Dim e As KeyEventArgs = New KeyEventArgs(
                            Keyboard.PrimaryDevice,
                            PresentationSource.FromVisual(target),
                            0,
                            key)
e.RoutedEvent = routedEvent
Grid1.RaiseEvent(e)

Dim params As HwndSourceParameters = New HwndSourceParameters()
Dim source As HwndSource = New HwndSource(params)
Dim k As Key = Key.A
Dim e As KeyEventArgs = New KeyEventArgs(Keyboard.PrimaryDevice, source, 0, k)
e.RoutedEvent = routedEvent
Grid1.RaiseEvent(e)