我想从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
答案 0 :(得分:0)