Window Media播放器使用VB.net在播放视频时添加网格

时间:2017-07-04 06:27:34

标签: vb.net winforms

我已经在vb.net中开发了插入媒体播放器的编码,并且我能够像媒体播放器那样添加所有功能,寻找条形图但是对于我的项目,必须在播放视频上显示灵活的网格,这需要高级编程。我学会了在表格上添加线网格,但是在播放视频时形成网格并以图形方式改变图形很难,如果你帮助我,我会很高兴...提前谢谢你

以下代码有助于形成网格,但无法转换,也无法放置在媒体播放器上

Option Strict On
Option Explicit On
Option Infer Off
Public Class Form1
    Sub DrawGrid(g As Graphics, origin As Point, rows As Integer, columns As Integer, cellSize As Size)
        Dim gridWidth As Integer = columns * cellSize.Width
        Dim gridHeight As Integer = rows * cellSize.Height
        Dim left As Integer = origin.X - (gridWidth \ 2)
        Dim right As Integer = origin.X + (gridWidth \ 2)
        Dim top As Integer = origin.Y - (gridHeight \ 2)
        Dim bottom As Integer = origin.Y + (gridHeight \ 2)

        For y As Integer = top To bottom + 1 Step cellSize.Height
            Dim pt1 As New Point(left, y)
            Dim pt2 As New Point(right, y)
            g.DrawLine(Pens.Black, pt1, pt2)
        Next
        For x As Integer = left To right + 1 Step cellSize.Width
            Dim pt1 As New Point(x, top)
            Dim pt2 As New Point(x, bottom)
            g.DrawLine(Pens.Black, pt1, pt2)
        Next
        g.DrawEllipse(Pens.Red, New Rectangle(origin.X - 5, origin.Y - 5, 10, 10))
    End Sub
    Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
        Dim origin As New Point(Me.ClientRectangle.Width \ 2, Me.ClientRectangle.Height \ 2)
        Dim cellSize As New Size(10, 10)
        Dim rowCount As Integer = 10
        Dim columnCount As Integer = 10
        DrawGrid(e.Graphics, origin, rowCount, columnCount, cellSize)
    End Sub
End Class

0 个答案:

没有答案