vb.net - 在 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)