打開記事本，在Silverlight中粘貼文本

Question

我想從Silverlight中打開記事本，然後在其中粘貼一些文本。我能夠使用剪貼板方法將我想要的文本移動到剪貼板。然後我用shell打開記事本。最後一步是將剪貼板的內容粘貼到記事本中。這可以通過用戶按Ctrl-V或編輯 - 粘貼來完成。

但是，這是一個令人不滿意的解決方案。我想自動化最後一步，將剪貼板粘貼到記事本中。

這裏是我的代碼：

System.Windows.Clipboard.SetText(l_StringBuilder.ToString) 


       ' next open notepad 
    OpenShell("notepad.exe") 


    System.Windows.Clipboard.GetText() ‘ this does not work 


    Private Sub OpenShell(p_Program As String) 
     Try 
      If (AutomationFactory.IsAvailable) Then 
       Dim shell = AutomationFactory.CreateObject("Shell.Application") 


       shell.ShellExecute(p_Program) 'Open notepad 

      End If 

     Catch ex As Exception 
      MessageBox.Show(ex.ToString) 

     End Try 
    End Sub 

Answer 1

我在另一個論壇的答案。這裏是它的鏈接：

http://social.msdn.microsoft.com/Forums/en-US/silverlightnet/thread/b787244d-a0a9-4aea-8858-e94644742ff0/#05ca684e-1d22-4bca-a207-9c422a7cf5d6