Private ctlVideoWindow As Control

    Private bolSizePropotionally As Boolean = True

    Public Property SizeProportionally() As Boolean
        Get
            Return bolSizePropotionally
        End Get
        Set(ByVal value As Boolean)
            bolSizePropotionally = value
            SizeVideo()
        End Set
    End Property

    Private Sub SizeVideo()
        Dim myVideoSize As Size = VideoSize
        If myVideoSize.Height > 0 Then
            Dim strTemp As String = ""
            Dim iTop, iLeft, iWidth, iHeight As Integer
            If bolSizePropotionally Then
                Dim myRation As Double = Convert.ToDouble( _
                  VideoWindow.ClientSize.Width) / _
                    myVideoSize.Width
                If myVideoSize.Height * myRation > _
                  VideoWindow.ClientSize.Height Then
                    myRation = VideoWindow.ClientSize.Height / _
                    myVideoSize.Height
                End If
                iWidth = Convert.ToInt32(myVideoSize.Width * myRation)
                If iWidth = _
                  System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width Then
                    iWidth -= 1
                End If
                iHeight = Convert.ToInt32(myVideoSize.Height * myRation)
                iLeft = Convert.ToInt32((VideoWindow.ClientSize.Width - iWidth) _
                  / 2)
                iTop = Convert.ToInt32((VideoWindow.ClientSize.Height - _
                iHeight) / 2)
            Else
                iTop = 0
                iLeft = 0
                iWidth = VideoWindow.ClientSize.Width
                iHeight = VideoWindow.ClientSize.Height
            End If
            MCIExec("put " + AliasForFile + " window at " + iLeft.ToString() + _
                " " + iTop.ToString() + " " + iWidth.ToString() + " " + _
                iHeight.ToString(), strTemp)
        End If
    End Sub

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.