包含vb.net挖空窗体的词条

vb.net 历遍项目的窗体

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：域名与空间、网站空间、营销软件、网站建设、海东网站维护、网站推广。

Dim myAssembly As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()

Dim TheTypes As Type() = myAssembly.GetTypes()

Dim myType As Type

For Each myType In TheTypes

If myType.BaseType.ToString = "System.Windows.Forms.Form" Then

ListBox1.Items.Add(myType.Name)

End If

End Sub

软件bug。vb.net创建是会有窗体进行应用的，没有应用就是软件bug原因，需要用户将软件关闭，点击系统修复下载，再打开软件即可。

绘制和数据分离，就是说，Paint 事件永远是用来绘制的，具体绘制什么东西（也就是绘制的数据，如半径为4的圆），有数据决定，MouseClick 可以更改一些参数，然后由Paint 绘制：

MouseClick 事件里，重绘窗体，即：

int r = 0, x = 0, y = 0;

private void Form1_MouseClick(object sender, MouseEventArgs e)

{

r = 10;

x = e.X;

y = e.Y;

this.Invalidate();

}

private void Form1_Paint(object sender, PaintEventArgs e)

{

// 绘制一个r半径圆

e.Graphics.DrawEllipse(new Pen(Color.Red), x, y, r, r);

}

补充：

在 MouseClick 事件中去调用Form 的 Paint 事件，那么参数要如何传递？

参数是个全局变量，类似上面的r、x、y等，不是由e传过去的，

上述代码是c＃的，vb.net和c＃一样，都是用的fcl类库，你改一下就可以了，

文章名称：包含vb.net挖空窗体的词条
浏览路径：http://myzitong.com/article/doopgde.html