2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
run = Not run
If TT Is Nothing Then
TT = New Threading.Thread(AddressOf main2)
TT.Start()
End If
End Sub
ok,具体需要注意的就这么多,以下为全部源代码
======================================
Imports Microsoft.DirectX.DirectDraw
Imports Microsoft.DirectX
Imports System.Drawing
Public Class Form1
Inherits System.Windows.Forms.Form
Dim Dev As Device
Dim PS As Surface
Dim BS As Surface
Dim desc As SurfaceDescription
Dim desc2 As SurfaceDescription
Dim Clip As Clipper
Dim T As New Date
Dim run As Boolean
Dim TT As Threading.Thread
Const fn = "d:\nerv.bmp"
#Region " Windows 窗体设计器生成的代码 "
Public Sub New()
MyBase.New()
''''该调用是 Windows 窗体设计器所必需的。
InitializeComponent()
''''在 InitializeComponent() 调用之后添加任何初始化
End Sub
''''窗体重写 dispose 以清理组件列表。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
''''Windows 窗体设计器所必需的
Private components As System.ComponentModel.IContainer
''''注意: 以下过程是 Windows 窗体设计器所必需的
''''可以使用 Windows 窗体设计器修改此过程。
''''不要使用代码编辑器修改它。
Friend WithEvents P As System.Windows.Forms.PictureBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.P = New System.Windows.Forms.PictureBox
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.SuspendLayout()
''''
上一页 [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)
|