vs2013应用窗体程序怎么设计一个父窗体

vs2013应用窗体程序设计一个父窗体按照以下 *** 作。

1、选中vs2013，点击菜单栏，选择打开方式，选择新建应用程序，点击新建窗体，添加父窗体按钮，点击确定按钮。

2、在注册表中，找到preview，右键属性，选择好父窗体模板。

3、就会出现父窗体，单击确定即可。

一：.NET中窗体应用程序就是一种GUI程序

窗体创建的两种方式：

（1）自动生成的是：

[csharp] view plain copy print?

Application.Run(new Form1())

相当于：

[csharp] view plain copy print?

Form1 f = new Form1()

Application.Run(f)

（2）显示新的窗体

[csharp] view plain copy print?

Form2 f = new Form2( )

f.Show()

二；事件

Windows 系统中处处是事件：

鼠标按下

鼠标释放

键盘键按下……

Windows 通过随时响应用户触发的事件做出相应的响应——事件驱动机制

WinForms 应用程序也是事件驱动的

开发人员针对感兴趣的事件，编写相应的事件处理程序

编写事件处理程序：：：：

1、选中控件

2、在“属性”窗口中单击“闪电”图标

3、找到要处理的事件

4、生成事件处理方法

5、编写处理代码

例：随鼠标移动，显示鼠标当前坐标

点击选中窗体

属性窗体中找到MouseMove事件

双击事件生成事件处理程序框架

编写代码

[csharp] view plain copy print?

private void Form1_MouseMove(object sender, MouseEventArgs e)

{

this.Text = string.Format("鼠标位置（{0}，{1}）", e.X, e.Y)

}

运行图；

常用窗体事件

Load ：窗体加载事件（即将显示尚未显示），常用作初始化功能

Click事件：鼠标单击事件

DoubleClick事件：鼠标双击事件

MouseMove ：鼠标移动事件

KeyDown ：键盘按下事件

KeyUp ：键盘释放事件

小例子：单击窗体计1分，双击窗体计10分，编写程序，随时显示得分总数。

定义变量n存储分数，初值为0

单击事件click中n+1，并刷新

双击事件DoubleClick中n+10，并刷新

在窗体上设置单击

[csharp] view plain copy print?

private void Form1_MouseClick(object sender, MouseEventArgs e)

{

n += 1

string s = string.Format("得分{0}", n)

this.Text = s

}

运行如下：

双击如下；

[csharp] view plain copy print?

private void Form1_MouseDoubleClick(object sender, MouseEventArgs e)

{

n += 10

string s = string.Format("得分{0}", n)

this.Text = s

}

运行图；

这个还有点缺陷，双击本该是23，但却成啦24，双击时记上的单击的那下

（2）菜单控件

创建菜单的步骤：

1、切换设计器

2、工具箱→所有 Windows 窗体

3、向窗体添加 MenuStrip 控件

4、设置菜单的属性和事件

设计学生管理菜单,注意菜单分隔条的设计

实现“退出”功能

关闭窗体，调用窗体类的Close方法

关闭当前窗体 this.Close( )

[csharp] view plain copy print?

private void 退出ToolStripMenuItem_Click(object sender, EventArgs e)

{

this.Close()

}

首先添加一个窗体，在这个窗体上加一个文本框的控件，在这个文本框的单击事件中写如下的程序：

Dim num, sum, it(1), n, t, h

Private Sub Form_Click()

File1.Refresh

sum = 0

List1.Clear

For i = 0 To File1.ListCount - 1

t = Split(File1.List(i), ".")(UBound(Split(File1.List(i), ".")))

If LCase(t) = LCase("jpg") Or LCase(t) = LCase("bmp") Or LCase(t) = LCase("gif") Then List1.AddItem File1.List(i): sum = sum + 1

Next

h = Rnds(sum)

Print h

Image1.Picture = LoadPicture(List1.List(h))

End Sub

Private Sub Form_Load()

File1.Visible = 0

List1.Visible = 0

num = -1

End Sub

Function Rnds(ByVal Value)

re:

DoEvents

Randomize

n = Fix(Rnd * Value)

If num = 1 Then num = -1

num = num + 1

it(num) = n

If it(0) = it(1) Then GoTo re

Rnds = n

End Function

'添加image1、file1、list1控件各一个

---