第十一章    应用程序窗体设计
This presentation is the property of its rightful owner.
Sponsored Links
1 / 20

第十一章 应用程序窗体设计 PowerPoint PPT Presentation


  • 110 Views
  • Uploaded on
  • Presentation posted in: General

第十一章 应用程序窗体设计. 多窗体程序设计 多文档界面的程序设计. 多窗体程序设计. 1.添加窗体 “ 工程|添加窗体 ” 新建 现存. 添加 “ 现存 ” 窗体时要注意: 防止多个窗体的 Name 相同而不能添加; 添加的窗体实际是将其它工程中已有的窗体加入,多个工程共享窗体; 通过 “ 另存为 ” 命令以不同的窗体文件名保存,断开共享。. 2.保存窗体 一个工程中有多个窗体,应分别取不同文件名保存在磁盘上, VBP 工程文件中记录了该工程的所有窗体文件名。. 3.设置启动窗体.

Download Presentation

第十一章 应用程序窗体设计

An Image/Link below is provided (as is) to download presentation

Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author.While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server.


- - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - -

Presentation Transcript


5642170

第十一章 应用程序窗体设计

多窗体程序设计

多文档界面的程序设计


5642170

多窗体程序设计

1.添加窗体

“工程|添加窗体” 新建

现存

  • 添加“现存”窗体时要注意:

  • 防止多个窗体的Name相同而不能添加;

  • 添加的窗体实际是将其它工程中已有的窗体加入,多个工程共享窗体;

  • 通过“另存为”命令以不同的窗体文件名保存,断开共享。


5642170

2.保存窗体

一个工程中有多个窗体,应分别取不同文件名保存在磁盘上,VBP工程文件中记录了该工程的所有窗体文件名。

3.设置启动窗体

设置启动对象


5642170

4.窗体语句

  • Load语句:装入窗体到内存但没有显示窗体

    形式: Load 窗体名称

  • Unload语句:从内存删除窗体

    形式: Unload 窗体名称


5642170

5.窗体方法

  • Show方法:显示一个窗体(当窗体没有Load,自动Load)

    形式:

    [窗体名称].Show [模式]

    其中:模式可以取以下两种值

    0 - Modeless,可以对其它窗体进行操作。

    1 - Modal:关闭才能对其它窗体进行操作。

  • Hide方法:隐藏窗体,没有Unload删除

    [窗体名称.] Hide


5642170

6.不同窗体间数据的存取

  • 存取控件的属性

    另一窗体名.控件名.属性

    例如:

    Text1=Val(Form2.Text1)+Val(Form2.Text2)

  • 存取变量的值

    另一窗体名.全局变量名


5642170

例:输入学生成绩,计算总分、平均分并显示。


5642170

Form1代码:

Private Sub Command1_Click()

Form1.Hide

Form2.Show

End Sub

Private Sub Command2_Click()

Form1.Hide

Form3.Show

End Sub

Private Sub Command3_Click()

End

End Sub


5642170

Form2代码:

Private Sub Command1_Click()

math = Val(Text1)

english = Val(Text2)

chinese = Val(Text3)

computer = Val(Text4)

Form2.Hide

Form1.Show

End Sub


5642170

Form3代码:

每当一个窗体变成活动窗体时,就触发该事件。

Private Sub Command1_Click()

Form3.Hide

Form1.Show

End Sub

Private Sub Form_Activate()

Text1 = Str(math + chinese + english + computer)

Text2 = Str(Text1 / 4)

End Sub

在标准模块中声明:

Public math!, chinese!, english!, computer!


5642170

多文档界面的程序设计

MDI窗体的特点:

1. MDI窗体是子窗体的容器;

2. MDI窗体可以有自己的菜单,子窗体的菜单被迁移到父窗体;

3. 在MDI窗体添加带有Align属性的控件;

4. 最大化MDI子窗体时,子窗体的标题显示在MDI窗体的标题。

5. 一个工程中只允许有一个MDI窗体。

6. 当关闭MDI窗体时将自动关闭所有打开的子窗体。


5642170

  • MDI窗体的属性、方法:

  • MdiChild属性:为True表示子窗体,为False表示非子窗体;该属性只能在属性窗口设置。

  • Arrange方法:窗口的排列方式。

    MDI窗体. Arrange 方式


5642170

创建和设计MDI窗体

创建: “工程/添加MDI窗体”命令

设计:一般有菜单栏、工具栏、状态栏


5642170

创建和设计MDI子窗体

创建:MDI子窗体是一个MDIChild属性为True的普通窗体。

设计:可有菜单栏,但必须有文本框。

要创建多个子窗体,可以通过窗体类来实现:

Public Sub FileNewProc()

Dim NewForm As New form1

No = No + 1

NewForm.Caption = "no" & No

NewForm.Show

End Sub


5642170

MDI窗体与子窗体的交互

MDI窗体的两个属性:ActiveForm 和ActiveControl分别表示活动子窗体和活动控件。

例将子窗体的文本框中所选文本复制到剪贴板上:

ClipBoard.SetText frmMDI.ActiveForm.ActiveControl.SelText


Mdi show mdi autoshowchildren

显示MDI窗体及其子窗体显示任何窗体的方法为show,还有有关规则:加载子窗体时,其父窗体会自动加载并显示;反之则无。MDI窗体有AutoShowChildren属性,决定是否自动显示子窗体


5642170

多文档界面应用程序中的“窗口”菜单

要在某个菜单上显示所有打开的子窗体标题,只需利用菜单编辑器将该菜单的WindowList属性设置为True。


5642170

例如:多文档应用程序举例。


5642170

Dim no%

Private Sub pp_Click()

MDIForm1.Arrange 1

End Sub

Private Sub arrangicon_Click()

MDIForm1.Arrange 3

End Sub

Private Sub cd_Click()

MDIForm1.Arrange 0

End Sub


5642170

Private Sub new_Click()

Dim Newform As New Form1

no = no + 1

Newform.Caption = "no" & no

Newform.Show

End Sub

Private Sub exit_Click()

End

End Sub


  • Login