2015-10-05 3 views
-1

У меня есть такой код:.net изменить Process шрифт для Windows

Dim psi As New ProcessStartInfo("ABC.EXE") 
psi.RedirectStandardError = True 
psi.RedirectStandardOutput = True 
psi.CreateNoWindow = False 
psi.WindowStyle = ProcessWindowStyle.Normal 
psi.UseShellExecute = False 
psi.WorkingDirectory = "n:\invdat" 
Dim p As Process = Process.Start(psi) 

Эта программа запуска Character базового приложения. Я хочу изменить шрифт этого приложения базы символов.

Я хочу воспроизвести изменения через верхний левый клик по иконке приложения и выберите Свойства

+0

На рабочем столе Visual Studio у вас есть три общих варианта; Консольное приложение и формы: WinForms или WPF. Если вы хотите иметь меню, в котором ваша программа может использовать WinForms/WPF, это путь. «Форма» может содержать только одно текстовое поле, прикрепленное к краям формы. Если вы думаете о мобильных приложениях, я не уверен, что это лучший выбор. Какую среду разработки вы используете? Какова целевая платформа. – rheitzman

+0

Мой процесс - это старое приложение TextBase. Я не хочу переписывать - он запускает мое приложение (приложение WinForm) внутри моего текущего приложения. Когда я запускаю свое приложение (через Process.Start), это приложение открывается в очень маленьких окнах. Я хочу изменить шрифт этих окон. – Jam

ответ

0

Если наследство программа использует стандартную вывод это может работать, чтобы захватить выход.

 Dim start_info As New ProcessStartInfo("RoboCopy", sParams) 
     start_info.UseShellExecute = False 
     start_info.CreateNoWindow = True 
     start_info.RedirectStandardOutput = True 
     start_info.RedirectStandardError = True 

     ' Make the process and set its start information. 
     Dim proc As New Process() 
     proc.StartInfo = start_info 

     ' Start the process. 
     proc.Start() 

     ' Attach to stdout and stderr. 
     Dim std_out As StreamReader = proc.StandardOutput() 
     Dim std_err As StreamReader = proc.StandardError() 

     ' Get the results. 
     Dim sOut As String = std_out.ReadToEnd() 
     Dim sErr As String = std_err.ReadToEnd() 

Затем вы можете отображать результаты sOut в Winform.

+0

Моя программа представляет собой полное приложение TextBase с меню, раздел редактирования. это приложение Old Cobol. – Jam

+0

Вряд ли вы сможете изменить шрифт дисплея вне программы. Небольшая вероятность того, что вы сможете захватить текст с помощью SendKeys. Если в приложении есть меню для изменения шрифта, SendKeys может работать. Ищите записи в реестре, касающиеся отображаемых шрифтов для приложения Cobol. Есть ли теги для платформы Cobol, которые вы могли бы добавить в OP? – rheitzman

Смежные вопросы