''''

        Me.P.Location = New System.Drawing.Point(40, 48)

        Me.P.Name = "P"

        Me.P.Size = New System.Drawing.Size(640, 480)

        Me.P.TabIndex = 0

        Me.P.TabStop = False

        ''''

        ''''Label1

        ''''

        Me.Label1.Location = New System.Drawing.Point(16, 16)

        Me.Label1.Name = "Label1"

        Me.Label1.Size = New System.Drawing.Size(72, 24)

        Me.Label1.TabIndex = 1

        Me.Label1.Text = "init"

        ''''

        ''''Label2

        ''''

        Me.Label2.Location = New System.Drawing.Point(112, 16)

        Me.Label2.Name = "Label2"

        Me.Label2.Size = New System.Drawing.Size(80, 16)

        Me.Label2.TabIndex = 2

        Me.Label2.Text = "draw"

        ''''

        ''''Form1

        ''''

        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)

        Me.ClientSize = New System.Drawing.Size(728, 541)

        Me.Controls.Add(Me.Label2)

        Me.Controls.Add(Me.Label1)

        Me.Controls.Add(Me.P)

        Me.Name = "Form1"

        Me.Text = "Form1"

        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

        initDD()

    End Sub

    Sub initDD()

        Dev = New Device(CreateFlags.Default)

        Dev.SetCooperativeLevel(Me, CooperativeLevelFlags.Normal)

        Dim caps As New SurfaceCaps

        Dim caps2 As New SurfaceCaps

        caps.PrimarySurface = True

        caps.VideoMemory = True

        caps2.OffScreenPlain = True

        desc = New SurfaceDescription(caps)

        desc2 = New SurfaceDescription(caps2)

        desc2.EmptyFaceColor = RGB(0, 0, 255)

        Clip = New Clipper(Dev)

    &nbs

上一页  [1] [2] [3] [4] [5]  下一页