''''P
''''
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] 下一页 [学习帮助]已知直线Y=-x+1 交X,Y 轴于A,B [办公软件]如何在Excel表格单元格中输入比例(如4:1并让其正确… [常用软件]休息一下!网络资源搜罗 (1) [VB.NET程序]VB6升级到VB.NET(1) App的变化 [VB.NET程序]VB.NET实现DirectDraw9 (2) 动画 [VB.NET程序]学习笔记,VB.NET使用DirectSound9 (1) [VB.NET程序]Visual Basic 6 逆向工程与反逆向工程 (1) [VB.NET程序]几个 WMI 的例子(初级) - 1 [VB.NET程序]VBCOM TUTORIAL(1) [VB.NET程序]Common Control - The VB Way (1)
|