Picturebox im Hintergrund laden

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Karabonga.

    Picturebox im Hintergrund laden

    Hallo an alle, die das hier lesen :)

    Ich programmiere grade mit hilfe von ein par Verweisen einen Webcam Chat in VB.NET und möchte, dass man nur den Partner in einer Picturebox sieht und nicht sich selbst.
    Das Priblem ist, dass die Verweise, die ich benutzen darauf bestehen, dass das zu übertragende Bild in einer Picturebox stehen muss....
    jetzt könnte ich die Picturebox zwar außerhalb der Form platzieren, aber dann wird nur ein Blackscreen gesendet, da genau das was gerade in der Picturebox zu sehen ist übertragen wird.

    Das ganze sieht dann so aus: Client = New TCPCam.Client(captureImageBox)

    Also ist meine Frage jetzt: Wie kann ich eine Picturebox, obwohl sie nicht zu sehen ist trotzdem nutzen und Bilder zu übertragen?

    Ich hoffe man kann mir helfen und warte jetzt auf antworten :)
    Lg
    xkap50x

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „xKap50x“ ()

    Setze ihre ​Visible-Eigenschaft auf ​False, dann sieht der Client sie nicht.
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Das scheint daran aber wohl nicht zu liegen, denn die Eigenschaft verdeckt ja nur das Control...
    Geht das sonst, wenn Du es nicht versteckst?
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Ja sonst gehts natürlich... das Problem ist glaube ich, dass das Programm nicht den inhalt der Picturebox, sondern die Picturebox an sich ausliest...

    Der ganze code sieht so aus:

    Quellcode

    1. ​Imports System.IO
    2. Imports Emgu.CV
    3. Imports Emgu.CV.UI
    4. Imports Emgu.Util
    5. Imports System.Drawing.Imaging
    6. Public Class Form1
    7. Dim WithEvents Client As TCPCam.Client
    8. Private _capture As Emgu.CV.Capture
    9. Private _captureInProgress As Boolean
    11. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    12. If (_capture Is Nothing) Then
    13. Try
    14. _capture = New Emgu.CV.Capture
    15. AddHandler Application.Idle, New EventHandler(AddressOf Me.ProcessFrame)
    16. _captureInProgress = Not _captureInProgress
    17. Client = New TCPCam.Client(captureImageBox)
    18. Catch excpt As NullReferenceException
    19. MessageBox.Show(excpt.Message)
    20. End Try
    21. End If
    23. End Sub
    25. Private Sub ProcessFrame(ByVal sender As Object, ByVal arg As EventArgs)
    27. Dim frame As Emgu.CV.Image(Of Emgu.CV.Structure.Bgr, Byte) = Me._capture.QueryFrame
    28. Dim grayFrame As Emgu.CV.Image(Of Emgu.CV.Structure.Gray, Byte) = frame.Convert(Of Emgu.CV.Structure.Gray, Byte)()
    29. Dim smoothedGrayFrame As Emgu.CV.Image(Of Emgu.CV.Structure.Gray, Byte) = grayFrame.PyrDown.PyrUp
    31. captureImageBox.Image = frame.Bitmap
    33. End Sub
    35. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    36. If Not Client.isConnected Then
    37. Client.Connect(txt_ip.text, 8086)
    38. Else
    40. End If
    41. End Sub
    42. End Class

Facebook
Telefonspende