浅谈 Visual Basic 5. 0的 FORM窗体

陈新民

（广西第四地质队）

摘 要 简介Visual Basic5.0的FORM窗体的概念、事件、方法、属性等，详列窗体的事件、方法、属性，供读者进行工程开发作参考。

关键词 Visual Basic Form控件；对象；事件；方法；属性

Visual Basic是在Windows平台上广泛使用的程序开发工具。随着Microsoft公司推出的 Visual Basic5.0（下简称"VB5")中文版,跨越了语言的鸿沟,在我国已广为人们所认识。VB5中文版适用于Windows 95和Windows NT平台,简易便捷，适用面厂，通讯、数据库、多媒体以及普 通的Windows应用程序都可以使用Visual Basic进行开发。

VB5以窗体为中心，可以建立具复杂的Windows程序全部特性的应用程序。复杂的菜单及其他一些用户友好的界面（如列表框、对话框、信息框及命令按钮的控件等）可被添加到窗体中，完成良好的人机交互。本文简单介绍 Visual Basic 5.0的 FORM窗体的概念及其有关的方 法、事件、属性等。

1 了解窗体及FORM对象

启动 Visual Basic 5.0建立标准的 EXE文件即产生一个FORM窗体。

窗体的大小调整：可采取Windows常用的万法，将鼠标移到窗体的热点的位置（位于窗体 的角或边上）当鼠标位于热点位置时会变成一个双向箭头，这时你就可调整它的大小。 窗体的位置的调整：需要对Form Layout窗体（屏幕的右下角）进行处理，首先将鼠标移到 From layout窗体，此时光标变成四向箭头；将窗体移到你喜欢的位置上。 Form对象是窗口或者对话框,它组成应用程序用户界面的一部分。

Forms集合是一个集合，它的元累代表每一个在应用程序中加载的窗体。集合包括应用程 序的MDI窗体，MDI子窗体和非MDI窗体。Forms集合只有一个属性Count,指定集合中元素 的数目。

程序语法为：

Form

Forms（index）

index所在处是一个整数，变化范围从0到Froms.Count－1。

在应用程序中可以使用Forms集合在所有装载的窗体之间迭代。它标识一个命名为Forms

的内在全局变量。可以把Forms（index）传给函数，指定其参数为Fotms类。

窗体有一些属性确定了它们的外观,例如位置、穴小、颜色；这些属性还确定了它们的行为，例如是否可调整大小。

窗体还可以对用户初始化或系统触发的事件作出反应。例如，可以在窗体的Click事件过程中编写代码，从而通过单击窗体改变窗体的颜色。

除了属性和事件外，还可以通过代码，使用方法来操作窗体。例如，可以使用Move方法改 变窗体的位置和大小。

一种称作MDI窗体的特殊窗体还包含MDI子窗体。 MDI窗体由“插入”菜单的“添加MDI窗体”命令产生；在“文件”菜单中选择新建窗体”然后将MDIChild属性设置成True，这样就创建了MDI子窗体。

在代码中使用Dim、Set和Static语句里的New关键词可以创建多个窗体实例。 在设计窗体时，设置BordcrStyle属性定义窗体的边框，设置Caption属性把文本放入标题栏。可以在代码中使用Hide和Show方法窗体在运行时可见或隐蔽。

将BorderStyle设置为0就会删除过框。如果希望窗体有边框而没有标题栏、控制菜单框。 最大化按钮和最小化按钮，则应从窗体Caption属性中删除任何文本，同时将窗体的ContrlBox、 MaxButton 和MinButton属性设置为False。

Form是Object数据类型。在将变量设置成一种窗体的实例之前，可以先声明变量的类型为 Form,并在设计时声明这种窗体的实例。与此相似，可以把参数以Form类型传给过程。 窗体还可以作为DDE对话中的资源，通过Label、PictureBox或者TexBox控件提供数据。 可以使用Controls集合访问Form中的控件集合。例如,可以使用如下代码隐藏Form中的控件：

For Each Control in Forml. Controls

Control . Visible＝False

NeXt Control

2 窗体的属性

３ 窗体的事件

４ 窗体的有关方法

5 再论FORM窗体

除窗体设计原理以外，还需考虑应用程序的开始与结束。有一些技巧用于决定应用程序启 动时的外观。熟悉应用程序卸载时进行的一些处理也很重要。

5.1 设置启动窗体

在缺省情况下，应用程序中的第一个窗体被指定为启动窗体。应用程序开始运行时，此窗体就被显示出来（因而最先执行的代码是该窗作的Form-Inirializc事件中的代码)。如果想在应用程序启动时显示别的窗体，那么就得改变启动窗体。

改变启动窗体

1.从“工程”菜单中，选取“工程属性”。

2.选取“通用”。

3.在“启动对象”ListBox中，选取要作为新启动窗体的窗体。

4.选取“确定”。

5.2 没有启动窗体时的启动

有时候也许要应用程序启动时不加载任何窗体。例如：可能想先运行装入数据文件的代码， 然后再根据数据文件的内容决定显示几个不同窗体中的哪一个。要做到这一点，可在标准模块 中创建一个名为Main的子过程，如下面的例子所示。

Sub Main（）

Dim intStatus As Integer

’调用一个函数过程来检验用户状态。

intStatus=GetUscrStarus

’根据状态显示某个启动窗体。

If intstatus=1 Then

frmMain.Show

Else

frmpassword.Show

End If

这个过程必须是一个子过程,且不能在窗体模块内。欲将Sub Main过程设为启动对象,可从“工程”菜单中，选取“工程属性”，再选“通用”，然后从“启动对象”框中选定“Sub Main”。

5.4 启动时的快速显示

当从数据库中装入大量数据或者一些大型位图等，而启动需有一个较长的执行过程时，可启 动Visual Basic给出一个快速显示。快速显示是一种窗体，通常显示的是诸如应用程

序名，版权 信息和一个简单的位图等内容。

要显示快速显示，需用Sub Main过程作为启动对象,并用 Show方法显示该窗体； Private Sub Main（）

’显示快速显示。

frmSplash.Show

’在此处添加启动过程。

...

’显示主窗体并卸载快速显示。

frmMain.Show

Unload frmSplash

End Sub

当一些启动例程正在执行时，快速显示能吸引用户的注意，造成应用程序装载很快的错觉。 当这些启动例程完成以后，可以装入第一个窗体并使快速显示卸载。

对于快速显示的设计以尽量简单为好。如果使用大量位图或者大量控件，则快速显示本身 装入将会变慢。

5.5 结束应用程序

当所有窗体都已关闭且没有代码在执行时，事件驱动的应用程序就停止运行。如果最后一个可见窗体关闭时仍有隐窗体存在，则程序结束只是表象，实际上应用程序仍在继续运行，直至所有隐窗体都关闭为止。之所以出现这种情况，是因为对已卸载窗体的属性或控件的任何访问都将导致隐含地加载那个窗体。为避免出现这类问题可以使用Forms集合和Unload语句。使窗体卸载。例如，在主窗体上可以用一个名为CmdQuit的命令按钮用于退出程序。如果应用程序只有一个窗体，则Click事件过程可简单为：

Private Sub CmdQuit-Click（）

Unload Me

End Sub

如果应用程序使用多窗体，通过把代码放入本窗体的Unload事件过程可以卸载这些窗体。 可以使用Forms集合确保找到并关闭所有窗体。下列代码就是使用窗体集合卸载所有窗体的：

Private Sub Form－Unload

Dim i as integer

’在窗体集合中循环并卸载每个窗体。

For i=0 to Forms.Count-1

Unload Forms(i)

Next

End Sub

有些情况需要不顾现存窗体或对象的状态而结束应用程序。为此,Visual Basic提供了

End语句。

End语句使应用程序立即结束:在End语句之后的代码不会执行，也不会再有事件发生。 特别是，Visual Basic将不执行任何窗体的QueryUnload、Unload或Terminate事件过程。对象的各个引用将被释放,们如果定义有自己的类，Visual Basic将不执行由这些类所创建对象的Ter- minatc事件。

除End语句以外,Stop 语句可以暂停一个应用程序。但Stop语句只能在调试时使用。 参考文献

［１］Visual Basic５.０中文版程序设计 清华大学出版社

［２］Visual Basic５.０从入门到精通 科学出版社

第二篇：安全管理在骨科护理中的应用体会

安全管理在骨科护理中的应用体会

【摘要】目的：探讨安全管理在骨科护理中的应用体会。方法：选取本院20xx年12月至20xx年12月收治的骨折患者100例，平均分为观察组和对照组，每组50例。对照组患者使用常规护理，观察组患者在常规护理基础上进行护理安全管理，对比两组患者的护理效果。结果：观察组患者的平均住院时间明显少于对照组，护理满意程度评分上观察组分数明显高于对照组，两组数据差异具有统计学意义，P＜0.05。观察组患者的不安全事件发生率、医疗纠纷率、投诉率明显低于对照，两组数据差异具有统计学意义，P＜0.05。结论：通过使用安全管理在骨科护理中的临床应用，明显提高了患者的护理满意度，缩短了患者的平均住院时间，避免了骨科护理中的不安全因素的影响，值得在临床上推广使用。

【关键词】安全管理；骨科护理；应用体会

由于骨折的患者需要长时间卧床疗养，且患者在卧床过程中容易出现功能障碍和并发

[1]症，所以护理安全管理在骨科护理中是十分重要的。医疗护理工作中，必须把安全管理

[2]落实到实际护理工作中去，提高患者对临床护理的满意度。护理安全管理有利于增强护

理行为的规范性，营造良好的医疗环境，构建护患的和谐关系，避免各种问题会造成医疗纠纷事件的产生，从而从根本上提高护理的质量。本文选择了20xx年12月至20xx年12月医院收治的100例骨折患者，对比使用常规护理和常规护理基础上进行护理安全管理，比较两组患者的护理应用效果，现将报告总结如下。

1.资料

1.1一般资料

选取20xx年12月至20xx年12月本院收治的100例骨折患者，随机分为对照组和观察组。其中对照组50例，男性患者28例，女性患者22例，年龄分布为25到75岁，平均年龄（50.5±2.5）岁。观察组50例，男性患者26例，女性患者24例，年龄分布为24到72岁，平均年龄（48.5±3.5）岁。两组患者在数量、年龄、患病程度等一般资料上没有显著性差异，具有可比性，P＞0.05。

1.2方法

对照组患者使用常规护理方法,如心理护理、健康教育、早期功能训练等。观察组患者在常规护理的基础上进行护理安全管理，对观察组患者进行不安全因素评估，根据患者的不安全因素进行安全护理措施的制定，并进行有针对性的护理。具体内容有：第一，护理人员在护理过程中严格执行安全管理相关制度，规范自身的职业行为，保证骨科护理过程中患者的安全，并加强事故的预防工作，减少人为事故的产生，保证患者的生命安全。第二，健全骨科护理工作的各项制度，严格执行规章制度，只有完善各项管理制度，明确每

[3]个护理人员的工作职责，才能让医院人员在护理工作中更有章可循。第三，护理人员应

树立以人为本的护理服务理念，提高骨科护理的质量。护理人员在护理过程中应加强构建和谐的护患关系，为患者提供个体化的护理治疗方案，合理评估并预防危险因素，避免护理过程中出现安全事故。第四，护理人员在护理中要不断重视安全问题，确立安全和质量第一的护理观念。通过有计划地对患者病情进行有针对性的危险预防，护理人员运用相关专业的知识以及技能，科学合理的进行临床护理工作。第五，护理人员需要不断提高自身的沟通技巧和骨科急救技能等学习，不断提高安全管理意识，组织资深的护理人员讲解护理过程中容易出现的问题和相关的注意事项，同时开展技能考核和操作示范等活动，既提高了护理人员的工作能力和对护理人员的积极性，又提高了护理工作的工作质量，从而给患者提供更好的护理服务。第六，创建安全的医院环境，增强护理工作的规范性。患者入院后，护理人员全面为患者介绍住院环境，并设立醒目的标志，引起患者的注意，避免患者在护理事故中出现安全事故。同时进一步加强医院硬件设施的完善和建设，例如卫生间、消毒池、病床护栏、走廊楼梯的扶手等等。

1.3观察指标

医院自制护理满意度调查表格，分值设定为0到100分，最低0分，最高100分，得分越高患者的满意程度越高。统计两组患者的平均住院时间、护理不安全事件的发生率、医患纠纷率和投诉率。

1.4统计学分析

资料采用SPSS18.0统计学软件分析处理，技术资料取X检验，计数资料取t检验，当P＜0.05时表示数据差异具有统计学意义。

2.结果

2.1对比两组患者的平均住院时间、护理满意程度

对照组中，患者数50例，平均住院时间(34.26±6.35)天，患者满意程度评分(75.68±6.14)分，P＜0.05；观察组中，患者数50例，平均住院时间(21.45±5.41)天，患者满意程度评分(90.74±5.68)分，P＜0.05。观察组患者的平均住院时间明显少于对照组，护理满意程度评分上观察组分数明显高于对照组，两组数据差异具有统计学意义，P＜0.05。

2.2对比两组患者护理不安全事件发生率、医疗纠纷率、投诉率

对照组中，患者数50例，不安全事件发生率20.52%，医疗纠纷率10.45%，投诉率

14.69%，P＜0.05；观察组中，患者数50例，不安全事件发生率7.47%，医疗纠纷率2.36%，投诉率2.45%，P＜0.05。观察组患者的不安全事件发生率、医疗纠纷率、投诉率明显低于对照组，两组数据差异具有统计学意义，P＜0.05。

3.讨论

骨科护理中安全管理是一个重要的管理系统，特别是对于骨科这一安全事故发生率较

[4]高的科室具有重要的意义。所以护理工作中护理人员一定要把护理安全管理工作放在首

要位置，在常规护理的基础上，有意识地加强对安全因素的的评估，树立护理安全的责任

[5]感。由于骨科患者住院过程中需要长时间卧床，在住院期间容易发生安全事故和医患纠纷，因此护理人员平时有意识地加强对安全意识和应急护理能力的学习，善于发现护理工作中的安全隐患，及时对隐患采取相应的防范措施，保证护理工作的安全稳定和顺利进行

[6]。在本次研究中,结果显示观察组患者的平均住院时间明显少于对照组，护理满意程度评分上观察组分数明显高于对照组，同时观察组患者的不安全事件发生率、医疗纠纷率、投诉率明显低于对照组，这一结果表明将安全管理应用于骨科护理中有利于缩短患者的住院时间，提高患者对护理工作的满意程度，同时降低护理过程中的不安全事故发生率、医疗纠纷率和投诉率。综上所述，通过安全管理在骨科护理中的临床应用，明显的提高了患者的满意程度，缩短了患者的平均住院时间，避免了骨科护理中不安全因素的产生，值得在临床上推广使用。

【参考文献】

[1]宋春利.骨科护理中的护理安全管理[J].医学信息，2014,24（12）：485-486.

[2]贺云，王亚.护理安全管理在骨科护理管理中的应用[J].内蒙古中医药，

2013,24(17):143-144.

[3]杨方明.护理安全管理在老年骨科患者中的应用[J].吉林医学,2014,32(22):2715-2716.

[4]孙彩娟.细节管理在骨科病人护理安全管理中的应用[J].全科护理,2014,09(34):3177-3178.

[5]周咏梅,蔡晓霞,朱玉霞.情景模拟在骨科护理安全管理中的应用[J].齐鲁护理杂志，2013.，06（19）：194-195.

[6]沈克秀.护理安全管理在骨科护理管理的应用[J].中国社区医师（医学专业），2012,12

（19）：198-200. 2