VB2010.docVIP

（1） 1. 打开VB2010，新建项目》库类，写好代码后 生成 2. 新建另外一个工程，如窗体工程，在工程的项目》项目属性里选“引用”，并点“引用路径（R), 找到你刚做好的.dll，引用之，并在属性窗口里将“拷贝到本地”设为True 3. 在调试窗口程序时，同事调试.dll （2） 5.类Thread可以在System.Threading名字空间里得到，它定义了处理线程的属性和方法。 　　6.在类Thread的构造器中，我们使用了类ThreadStart，类ThreadStart是一个代表，标志着当一个线程开始时就开始执行定义的方法。 　　7.为了执行定义的方法，我们实际调用的是线程的Start()方法。 　　8.用VBC来编译上面的程序：vbc /out:threadtest.exe threadtest.vb 　　9.运行编译后的程序，我们将会看到我们定义的两个方法和main()方法的混合输出，这就说明每一个方法都在自己的线程下运行。 　　10.除了上面的方法，线程还有下面常用的方法： Stop():停止线程的运行。 Suspend()：暂停线程的运行。 Resume()：继续线程的运行。 Sleep()：停止线程一段时间（单位为毫秒）。 dim mouse_x as integer = 0, mouse_y as integer = 0 private sub picturebox1_mousedown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown if e.button = mousebuttons.left then if mouse_x = 0 and mouse_y = 0 then mouse_x = e.X 记录坐标x和y mouse_y = e.Y else 画线 picturebox1.creategraphics().drawline(pens.black, mouse_x, mouse_y, e.x, e.y) 向右下角画矩形 picturebox1.creategraphics().drawrectangle(pens.black, mouse_x, mouse_y, e.x - mouse_x, e.y - mouse_y) 画圆 picturebox1.creategraphics().drawellipse(pens.black, mouse_x, mouse_y, e.x - mouse_x, e.y - mouse_y) mouse_x = 0 恢复空坐标 mouse_y = 0 end if else mouse_x = 0 当用户使用右键时，撤销之前的记录 mouse_y = 0 end if end sub 向右下角画实心矩形 pictureBox1.creategraphics().fillrectangle(brushes.lime, mouse_x, mouse_y, e.x - mouse_x, e.y - mouse_y) 轮廓 picturebox1.creategraphics().drawrectangle(pens.black, mouse_x, mouse_y, e.x - mouse_x, e.y - mouse_y) 教你如何动态添加控件？ 首先我们来定义一个全新的控件，比如BUTTON Dim OneButton As New Button 定义按钮的标题 OneButton.Text = OneButton ‘定义按钮的大小 OneButton.Width = 100 OneButton.Height = 24 ’定义按钮的位置 OneButton.Location = New Point(12, 12) ’当然这里还可以定义按钮的别的属性，不做举例了 ‘这一步很重要，在窗体上添加按钮，如果不添加是看不到这个按钮的 Me.Controls.Add(OneButton) ‘按钮已经添加到了窗体上，但是点击它，没有反应对吗？是的，你还没有给他功能当然没反应 ’继续楼上的代码 首先我们来定义一个全新的控件，比如BUTTON Dim OneButton As New Button 定义按钮的标题 OneButton.Text = OneButton 定义按钮的大小 OneButton.Width = 100 OneButton.Height = 24 定义按钮的位置，当然这里还可以定义按钮的别的属性，不做举例了 OneButton.Location = New Point(1