打开记事本,在Silverlight中粘贴文本

时间:2013-01-09 17:16:45

标签: silverlight shell copy-paste

我想从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

1 个答案:

答案 0 :(得分:0)