创建窗体方法与步骤

① VS2010怎么创建windows窗体应用程序

方法/步骤 1、使用VS2010创建windows窗体应用程序。在右侧的已安装模板中，选择Visual C#，右边会显示出各种项目类型。这里第一项就是Windows窗体应用程序。 2、默认状态下，会自动生成一个窗体文件。这个窗体是主启动窗体，当程序运行的时候会

② 在Access中怎样建立子窗体

在Access中，有时需要在一个窗体中显示另一个窗体中的数据。窗体中的窗体称为子窗体，包含子窗体的窗体称为主窗体。使用主-子窗体的作用是：以主窗体的某个字段为依据，在子窗体中显示与此字段相关的记录，而在主窗体中切换记录时，子窗体的内容也会随着切换。因此，当要显示具有一对多关系的表或查询时，主-子窗体特别有效。但是，并不意味着，主窗体和子窗体必须相关。 下面，用两种方法创建主-子窗体：一是同时创建主窗体和子窗体，二是先建立子窗体，再建立主窗体，并将子窗体插入到主窗体中。 1．同时创建主窗体和子窗体 创建主-子窗体，要求主窗体显示“教师”表的“教师姓名”、“所属系”、“文化程度”和“职称”四个基本信息，子窗体中显示“教师任课表”的“课程编号”和“课程名称”。操作步骤如下： (1)在“成绩管理”数据库窗口下，双击“使用向导创建窗体”，弹出确定数据源窗口。 (2)在“表/查询”下拉列表框中选择“表：教师”，并将“教师姓名”、“所属系”、“文化程度”和“职称”四个字段添加到“选定的字段”框中。 (3)再次在“表/查询”下拉列表框中选择“表：课程”，并将“课程编号”和“课程名称”二个字段添加到“选定的字段”框中。 (4)单击“下一步”按钮。如果两个表之间没有建立关系，则会出现一个提示对话框，要求建立两表之间的关系，确认后，可打开关系视图，同时退出窗体向导。 如果两表之间已经正确设置了关系，则会进入窗体向导的下一个对话框，确定查看数据的方式。这里保留默认设置。 (5)单击“下一步”按钮，选择子窗体的布局，默认为“数据表”。 (6)单击“下一步”按钮，选择窗体的样式，选择 “标准”样式。 (7)单击“下一步”按钮，为窗体指定标题，分别为主窗体和子窗体添加标题：“教师任课主窗体”和“教师任课子窗体”。 (8)单击“完成”按钮，结束窗体向导。 这时，在“成绩管理”数据库窗口下，会看到新增的两个窗体。如果双击“教师任课子窗体”，则只打开单个子窗体。如果双击“教师任课主窗体”，会打开主-子窗体，当主窗体中查看不同教师的记录时，子窗体中会随之出现该教师的任课课程。 2．创建子窗体并插入到主窗体中 窗体“学生选课主窗体”仅有学生“学号”和“姓名”字段，窗体“学生选课子窗体”有学生选课的“课程编号”、“平时成绩”和“考试成绩”字段。要求将“学生选课子窗体”插入到“学生选课主窗体”中，以便查看每个学生的选课成绩。具体步骤如下： （1）在设计视图中，以“学生选课”表为数据源，拖动“课程编号”、“平时成绩”和“考试成绩”字段到设计视图中，以纵向方式排列，命名为“学生选课子窗体”，保存退出。 （2）再打开一个新的设计视图，以“学生”表为数据源，拖动“学号”和“姓名”字段到设计视图中，以横向方式排列，适当调整控件大小和位置。 （3）在工具箱中确保按下了“工具向导”按钮，再选择“子窗体/子报表”控件按钮 ，在窗体的主体节的合适位置单击鼠标，启动子窗体向导。在“使用现有的窗体”列表框中选择“学生选课子窗体”。 （4）单击“下一步”按钮，确定主窗体和子窗体链接的字段。这里选取默认设置，以学生表的“学号”为依据，在子窗体显示与此字段相关的记录。 （5）单击“下一步”按钮，指定子窗体的名称，取默认值“学生选课子窗体”。 （6）单击“完成”按钮，“学生选课子窗体”插入到当前窗体中。 （7）在当前窗体（主窗体）中适当调整子窗体对象的大小至满意为止，保存窗体，命名为“学生选课主窗体”。

③ ACCESS自动创建窗体的方式有几种

Access中自动创建窗体的方式有6种。

Access中自动创建窗体的方式介绍：

1、从现有表或查询创建窗体：从数据库中的表或查询创建窗体。

2、创建空白窗体：创建不带控件或预设格式的元素的窗体，即打开一个空白窗体。

3、创建分割窗体：分割窗体可以同时提供数据的两种视图：“窗体”视图和“数据表”视图。使用分割窗体可以在一个窗体中同时利用两种窗体类型的优势。

4、创建显示多个记录的窗体：多项目窗体也被称作连续窗体，当您想要窗体显示多个记录同时自定义性能比数据表更强时，您可以使用“多项目”工具。

5、创建包含子窗体的窗体：在处理存储在不同表中的相关数据时，通常需要在同一个窗体中查看来自多个表或查询的数据，此时子窗体是实现此目的的一种简便方法。

6、创建导航窗体：导航窗体是只包含导航控件的窗体。导航窗体是任何数据库的绝佳附加功能，但是，如果您计划将数据库发布到 Web，则创建导航窗体非常重要，因为 Access 导航窗格不会显示在浏览器中。

(3)创建窗体方法与步骤扩展阅读：

Access数据库中窗体的用途：

1.数据的查看与输入；

2.控制应用程序的流程；

3.自定义对话框：为用户提供系统的信息；

4.打印数据库信息；

5.可以通过“填写窗体”使文档受保护且不能复制；

参考资料来源：微软官网-在Access中创建窗体

④ VB中如何新建窗体

vb6建立主窗体的子窗体有两种方法：
第一种方法是建立一个MDI窗体，然后把普通的form窗体设置成它的子窗体。
第二种方法是使用Windows API设置一个普通form窗体为另外一普通窗体的子窗体。

一、先来看看如何建立MDI窗体的子窗体：
1、启动vb6,新建一个标准EXE工程。
2、在“工程”菜单里选择“添加MDI窗体”，
点击“打开”，添加了一个MDIForm1窗体，
这步也可以工程窗口的窗体图标上右键完成。
3、在“工程”菜单里选择“XXX 属性”，
在弹出的窗口里把启动对象设成MDIForm1。
4、在form1的属性窗口里，把MDIChild属性设置为True。
5、在Private Sub MDIForm_Load()过程里添加form1.show。
6、运行程序，看到设置已经成功。

二、使用Windows API建立子窗体：
1、1、启动vb6,新建一个标准EXE工程。
2、在“工程”菜单里选择“添加窗体”，
点击“打开”，添加了一个form2窗体，
这步也可以工程窗口的窗体图标上右键完成。
3、双击form1窗体，在通用里加入以下windows API:
Private Declare Function SetParent Lib "user32.dll" ( _
ByVal hWndChild As Long, _
ByVal hWndNewParent As Long) As Long

4、在form1的Private Sub Form_Load()过程里加入
Form2.Show
SetParent Form2.hWnd, Form1.hWnd
Form2.Move 0, 0
5、运行程序，可以看form2已经是form1的子窗体了。
6、完整程序代码如下：
Option Explicit
Private Declare Function SetParent Lib "user32.dll" ( _
ByVal hWndChild As Long, _
ByVal hWndNewParent As Long) As Long

Private Sub Form_Load()
Form2.Show
SetParent Form2.hWnd, Form1.hWnd
Form2.Move 0, 0

End Sub

⑤ 在Access中，如何创建子窗体

1、首先在打开窗体表的界面中在创建选项卡中单击窗体设计选项

⑥ 创建窗体的方法有几种

类CRgn创建一个新的"region"的简单方法有以下几个成员函数：
BOOL CRgn::CreateRectRgn( int x1, int y1, int x2, int y2 ); 创建矩形的“region”。
BOOL CRgn::CreateEllipticRgn( int x1, int y1, int x2, int y2 ); 创建圆形或椭圆形“region”。
BOOL CRgn::CreateRoundRectRgn( int x1, int y1, int x2, int y2, int x3, int y3 ); 创建圆角矩形“region”。
BOOL CRgn::CreatePolygonRgn( LPPOINT lpPoints, int nCount, int nMode ); 创建多边形“region”。
这里以创建椭圆窗体为例，介绍椭圆窗体创建的方法。在创建椭圆“region”的CreateEllipticRgn函数中，x1,y1指椭圆所在矩形的左上角坐标，x2,y2指该矩形的右下角坐标。
下面的代码加入到MFC对话框程序的OnInitDialog函数中，可将该对话框变成椭圆窗体：
BOOL CTestDlg::OnInitDialog()
{
CDialog::OnInitDialog();
...

⑦ 窗体的创建

打印窗体带有用于收集和组织信息的空白区域，打印后以书面形式填充。可以用【窗体】工具栏插入窗体域来实现这些空白区域，为窗体填写者限制位置、格式等。用户可以用Word 来创建打印窗体，方法如下：
（1）新建一篇文档。
（2）设计窗体版式。可以使用已有窗体作为基础，也可利用表格来设计窗体，使窗体更加规整。
（3）添加所需文字或图形并列出可使用的选项。如图8-10 中的 “姓名”、“性别”及“住址”等。
（4）如果要插入用户应答的文本框，可单击【窗体】工具栏上的【文字型窗体域】按钮。如果要插入列出选项（比如“是”和“否”）的复选框，请单击文档，然后单击【窗体】工具栏上的【复选框型窗体域】按钮。

⑧ excel如何创建用户窗体

下面，创建一个简单的用户窗体，用于输入“入职员工信息”数据。
设计用户窗体
下表是个简单的“入职员工信息”数据库，用户窗体用于收集信息并将数据信息保存到该数据库中。

打开VBE，插入用户窗体，默认名为UserForm1。按下表在用户窗体中添加控件并设置属性。

完成的用户窗体如下图所示。

编写代码
1 编写找到数据库工作表中下一个空白行的代码
在VBE中，插入一个类模块，并命名为cExcelUtils，输入下列代码：
Function FindEmptyRow(ws As Worksheet) As LongDim lngReturn As LonglngReturn = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).RowFindEmptyRow = lngReturnEnd Function
2 编写代码以包含每个员工信息的值，以及存储数据库工作表的位置，将数据保存到数据库
插入一个类模块，并命名为cEmployeeInfo，添加下面的代码在模块的声明部分：
Private m_lngID As LongPrivate m_strName As StringPrivate m_strSchool As StringPrivate m_blnAbility As BooleanPrivate m_blnObey As BooleanPrivate m_xlWksht As WorksheetPrivate m_oXL As cExcelUtils
前5个变量是我们在用户窗体中要输入的数据，以及从数据库工作表中产生的ID字段。变量m_xlWksht包含数据库工作表的位置。变量m_oXL决定在哪里放置新数据。
首先，添加数据属性。
Property Get ID() As LongID = m_lngIDEnd Property Property Get Name() As StringName = m_strNameEnd Property Property Let Name(newName As String)m_strName = newNameEnd Property Property Get School() As StringSchool = m_strSchoolEnd Property Property Let School(newSchool As String)m_strSchool = newSchoolEnd Property Property Get Ability() As BooleanAbility = m_blnAbilityEnd Property Property Let Ability(newAbility As Boolean)m_blnAbility = newAbilityEnd Property Property Get Obey() As BooleanObey = m_blnObeyEnd Property Property Let Obey(newObey As Boolean)m_blnObey = newObeyEnd Property Property Get DBWorkSheet() As WorksheetSet DBWorkSheet = m_xlWkshtEnd Property Property Set DBWorkSheet(newSheet As Worksheet)Set m_xlWksht = newSheetEnd Property
注意，ID属性没有Property Let方法，因此该属性是只读的。
下面，添加GetNextID方法找到最后一行，从第一列中获取值，然后增加1，以此来设置ID属性的值。
Public Function GetNextID() As LongDim lngReturn As LonglngReturn = m_xlWksht.Cells(Rows.Count, 1).End(xlUp).Value + 1m_lngID = lngReturn '设置ID属性 GetNextID = lngReturnEnd Function
接下来，添加初始化和清除代码：
Private Sub Class_Initialize()Set m_oXL = New cExcelUtilsEnd Sub Private Sub Class_Terminate()Set m_oXL = NothingEnd Sub
再继续完善该类的功能。先添加一些验证代码。如果Name属性和School属性没有数据的话，则不会保存记录。
Public Function ValidateData() As BooleanDim blnReturn As BooleanIf (Len(Me.Name & "") * Len(Me.School & "")) = 0 ThenblnReturn = FalseElseblnReturn = TrueEnd IfValidateData = blnReturnEnd Function
通过文本值的长度相乘，能够决定是否填充数据。
接下来，编写保存功能的代码。需要知道下一个可用行的行号为数据输入，需要知道该行所在的工作表，并且如果没有错误，返回True。
Public Function Save() As BooleanDim lngNewRowNum As LongDim blnReturn As Boolean If m_xlWksht Is Nothing ThenblnReturn = FalseGoTo Exit_FunctionEnd If lngNewRowNum = m_oXL.FindEmptyRow(m_xlWksht) With m_xlWksht.Cells(lngNewRowNum, 1).Value = Me.ID.Cells(lngNewRowNum, 2).Value = Me.Name.Cells(lngNewRowNum, 3).Value = Me.School.Cells(lngNewRowNum, 4).Value = Me.Ability.Cells(lngNewRowNum, 5).Value = Me.ObeyEnd With If Err.Number = 0 ThenblnReturn = TrueEnd If Exit_Function:Save = blnReturnExit FunctionEnd Function
代码首先检查以确保工作表对象存在，如果不存在则返回False并退出函数。接下来，从cExcelUtils对象中获取空行位置。然后，使用代表数据库工作表的m_xlWksht变量，使用从类属性中的数据填充每列。最后，检查没有发生错误，设置返回值为True，然后退出函数。
这就是cEmployeeInfo类，包含从用户窗体中的输入值，为任何新记录找到下一个ID值，保存数据到工作表中下一个空行。
编写用户窗体代码
在用户窗体代码模块中添加下列模块级变量：
Private m_oEmployeeInfo As cEmployeeInfoPrivate m_blnSaved As Boolean
变量m_blnSaved存储从m_oEmployeeInfo对象的Save方法中返回的值。下面，编写用户窗体初始化和中止事件代码：
Private Sub UserForm_Initialize()Set m_oEmployeeInfo = New cEmployeeInfoSet m_oEmployeeInfo.DBWorkSheet = Sheets("入职员工信息")m_oEmployeeInfo.GetNextIDlblID.Caption = m_oEmployeeInfo.IDm_blnSaved = FalseClearFormEnd Sub Private Sub UserForm_Terminate()Set m_oEmployeeInfo = NothingEnd Sub
在用户窗体初始化时，实例化oEmployeeInfo对象，然后设置DBWorksheet属性。然后，获取下一个可用的ID号并将其放置到标签中。也清除了窗体中的控件值。
Private Sub ClearForm()Me.txtName.Value = ""Me.txtSchool.Value = ""Me.chkAbility.Value = FalseMe.chkObey.Value = FalseEnd Sub
用户窗体中有三个命令按钮：一个用于保存输入的数据，一个用于清除用户窗体数据并添加新记录，一个用于取消数据输入操作并且不保存数据而关闭用户窗体。
“保存”按钮应该执行下列功能：
发送数据到cEmployeeInfo类
验收数据，如果数据无效则返回一条消息
如果数据有效则保存数据，并且如果保存成功则返回一条消息
保存后清除用户窗体数据，并重设保存标志
代码如下：
Private Sub cmdSave_Click()With m_oEmployeeInfo.Name = txtName.Text.School = txtSchool.Text.Ability = chkAbility.Value.Obey = chkObey.ValueEnd WithIf Not m_oEmployeeInfo.ValidateData ThenMsgBox "姓名和毕业院校必填", vbOKOnly, "不能保存"Exit SubElsem_blnSaved = m_oEmployeeInfo.SaveEnd IfDoAfterSave m_blnSavedEnd Sub
过程DoAfterSave用于执行清理。
Private Sub DoAfterSave(success As Boolean)If success ThenClearFormlblID.Caption = m_oEmployeeInfo.GetNextIDMsgBox "记录已保存"ElseMsgBox "没有保存记录"End Ifm_blnSaved = False '重设标志End Sub
“新建”按钮的代码如下，在新建之前，检查文本字段看用户窗体中是否有任何数据：
Private Sub cmdNew_Click()'为新记录设置窗体 Dim iAnswer As Integer'检查当前记录是否被保存 If Not m_blnSaved Then '是否有输入的文本没有被保存 If (Len(Me.txtName.Value & "") + Len(Me.txtSchool.Value & "")) <> 0 TheniAnswer = MsgBox("有没有保存的数据,想继续吗?", vbYesNo, "没有保存数据")If iAnswer = vbYes ThenClearFormEnd IfElseClearFormEnd IfEnd IfEnd Sub
“取消”按钮用来清除用户窗体并关闭该用户窗体：
Private Sub cmdCancel_Click()ClearFormUnload UserForm1End Sub
现在，运行用户窗体来看看效果。