タイトル : Re^2: NOTEPAD に、テキストBOXの内容を書き出したい 投稿日 : 2005/11/11(Fri) 11:30 投稿者 : VB勉強中
早速のアドバイスありがとうございます! 即実行してみました。 結果ですが、ノートパッドへのテキストボックスへの出力はできたのですが、下記に2点の新たな問題 が 発生しました。 1.テキストボックは、マルチライン=TRUEになっており改行 Chr(13) & Chr(10)が入っている その為か、ノートパッド上では空白行が挿入されてしまう 2.半角カタガナが化ける? 解決方法がありましたら、よろしくお願いいたします。 改善したソースを記述しておきます。 ※processでNOTEPAD起動直後にアクティブになるようでappactiveは不要でした。 Private Sub ExecuteNOTEPAD() Dim proInfo As New ProcessStartInfo Dim proc As New Process proInfo.FileName = "NOTEPAD.EXE" proInfo.UseShellExecute = False Try proc = Process.Start(proInfo) Catch e As System.Exception MessageBox.Show("NOTEPAD.EXE" & "を起動できません。") End Try proc.WaitForInputIdle() SendKeys.Send(Me.SQL.Text) End Sub |