Share via


方法 : アクティブな MDI 子フォームにデータを送信する

更新 : 2007 年 11 月

ユーザーがデータをクリップボードから MDI アプリケーションに貼り付ける場合など、マルチ ドキュメント インターフェイス (MDI) アプリケーションのコンテキストの中で、アクティブな子ウィンドウにデータを送信することは少なくありません。

y0hkh2c8.alert_note(ja-jp,VS.90).gifメモ :

フォーカスがある子ウィンドウを調べてその内容をクリップボードに送信する方法については、「方法 : アクティブな MDI 子フォームを特定する」を参照してください。

クリップボードからアクティブな MDI 子ウィンドウへデータを送信するには

  • アクティブな子フォームにあるアクティブなコントロールにクリップボードからテキストをコピーするコードをメソッドに記述します。

    y0hkh2c8.alert_note(ja-jp,VS.90).gifメモ :

    この例では、MDI 親フォーム (Form1) は RichTextBox コントロールのある MDI 子ウィンドウを少なくとも 1 つ持っていることを前提としています。詳細については、「方法 : MDI 親フォームを作成する」を参照してください。

    Public Sub mniPaste_Click(ByVal sender As Object, _
       ByVal e As System.EventArgs) Handles mniPaste.Click
    
       ' Determine the active child form.
       Dim activeChild As Form = Me.ParentForm.ActiveMDIChild
    
       ' If there is an active child form, find the active control, which
       ' in this example should be a RichTextBox.
       If (Not activeChild Is Nothing) Then
          Try
             Dim theBox As RichTextBox = Ctype(activeChild.ActiveControl, RichTextBox)
             If (Not theBox Is Nothing) Then
                ' Create a new instance of the DataObject interface.
                Dim data As IDataObject = Clipboard.GetDataObject()
                ' If the data is text, then set the text of the 
                ' RichTextBox to the text in the clipboard.
                If (data.GetDataPresent(DataFormats.Text)) Then
                   theBox.SelectedText = data.GetData(DataFormats.Text).ToString()
                End If
             End If
          Catch
             MessageBox.Show("You need to select a RichTextBox.")
          End Try
       End If
    End Sub
    
    protected void mniPaste_Click (object sender, System.EventArgs e)
    {
      // Determine the active child form.
       Form activeChild = this.ParentForm.ActiveMdiChild;
    
       // If there is an active child form, find the active control, which
       // in this example should be a RichTextBox.
       if (activeChild != null)
       {
          try 
          {
             RichTextBox theBox = (RichTextBox)activeChild.ActiveControl;
             if (theBox != null)
             {
                // Create a new instance of the DataObject interface.
                IDataObject data = Clipboard.GetDataObject();
                // If the data is text, then set the text of the 
                // RichTextBox to the text in the clipboard.
                if (data.GetDataPresent(DataFormats.Text))
                {
                   theBox.SelectedText = data.GetData(DataFormats.Text).ToString();               
                }
             }
          }
          catch 
          {
             MessageBox.Show("You need to select a RichTextBox.");
          }
       }
    }
    
    private void mniPaste_Click(System.Object sender, System.EventArgs e) 
    {
       // Determine the active child form.
       Form activeChild = this.get_ActiveMdiChild();
    
       // If there is an active child form, find the active control, which
       // in this example should be a RichTextBox.
       if ( activeChild  != null  ) 
       {
          try 
          {
             RichTextBox theBox = ((RichTextBox)(activeChild.get_ActiveControl()));
             if ( theBox  != null  ) 
             {
                // Put the selected text on the Clipboard.
                Clipboard.SetDataObject(theBox.get_SelectedText());
             }
          } 
          catch(System.Exception exp)
          {
             MessageBox.Show("You need to select a RichTextBox.");
          }
       }
    }
    

参照

処理手順

方法 : MDI 親フォームを作成する

方法 : MDI 子フォームを作成する

方法 : アクティブな MDI 子フォームを特定する

方法 : MDI 子フォームを配置する

その他の技術情報

マルチ ドキュメント インターフェイス (MDI) アプリケーション