正在 VB 中向投影仪发送文本。网

Question

我需要将 richtextbox 中的文本发送到投影仪屏幕。我试图创建一个新表格并使其全屏显示，但我还不知道如何像在 EasyWorship 或 PowerPoint 中那样传达文本投影仪。我将不胜感激任何建议。谢谢

Answer 1

我认为您不必与投影仪本身通信。您可以列出可用的屏幕，以便将该表单发送到正确的屏幕（辅助屏幕）。我的意思是，像这样：

Dim oYourScreen As Screen = nothing
If Screen.AllScreens.Length > 1 Then
   For iAux As Integer = 0 To Screen.AllScreens.Length - 1
   If Not Screen.AllScreens(iAux).Primary Then
      oYourScreen = Screen.AllScreens(iAux)
      Exit For
    End If
  Next
End If

If oYourScreen Is Nothing Then
  oYourScreen = Screen.AllScreens(0)
End If

Me.StartPosition = FormStartPosition.Manual
Dim x, y As Integer
x = oYourScreen.Bounds.Location.X + 100 ' adjust as you want
y = oYourScreen.Bounds.Location.X + 30
Me.Location = oYourScreen.Bounds.Location ' or New Point(x, y)

正在 VB 中向投影仪发送文本。网

Sending text to projector in VB. NET

vb.net

projector