【VB开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。
网学会员整理了VB开源代码-在VB中用椭圆显示窗体 - 期刊论文的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
在
VB 中用椭圆显示窗体 李同柱 (徐州机
电工程高等职业学校,江苏 徐州 221001) 摘 要 窗体是 Visual Basic6.0 中最
常用到的对象,是程序设计界面的基础。
我们日常所见 C/S
系统的登陆窗体一般采用默认的矩形显示,如何改变窗体的显示风格,接下来将阐述如何用 API 函数实现以椭圆的样式显示
登陆窗体。
关键词 Visual Basic 6.0;窗体;API 函数1 Visual Basic 6.0 Visual Basic 6.0 是微软公司推出的可视化编程工具,它提供了非常简单、快捷的开发方法,它诞生于 20世纪 60 年代初期,因其简单易学、使用方便,受到广大编程人员的青睐。
(1)版本:学习版、专业版和企业版。
(2)集成开发环境组成:菜单栏、工具栏、工具箱、工程资源管理器、属性窗口、窗体布局窗口、
代码编辑窗口和窗体设计器。
(3)创建 Visual Basic 程序的步骤:
设计界面、编写
代码、调试运行、保存工程和编译程序。
2 窗体 窗体由属性定义外观,由方法控制行为,由事件定义与用户的交互。
窗体除了具有自己的属性、方法和事件外,还可以作为其它控件的容器,可以将其它控件放置在窗体上,例如标签控件、文本控件、和图片控件等。
实现椭圆显示窗体用到的属性和事件是:ScaleMode 属性和 Load 事件。
2.1 窗体 ScaleMode 属性 常数 值 描述 vbUser 0 用户定义:指示 object 的宽度和高度设置为自定义值 vbTwips 1 缇(每逻辑英寸 1440 缇;每逻辑厘米 567 缇) vbPoints 2 磅(每逻辑英寸 72 点) vbPixels 3 像素 (显示器或打印机分辨率的最小单位) vbCharacters 4 4 字符(水平 每单位 120 缇,垂直 每单位 240 缇) vbInches 5 英寸 vbMillimeters 6 毫米 vbCentimeters 7 厘米 vbHimetric 8 HiMetric。
如果省略 fromscale,则 HiMetric 为缺省值 vbHimetric 9 决定控件位置 vbContainerSize 10 决定控件大小2.2 窗体的 Load 事件 Load 语句用于将一个窗体装入内存。
执行 Load 语句后,可以引用窗体中控件及其各种属性。
3 API 函数 (1)概述:API 是 Application Programming Interface 的缩写,译为“应用程序编制接口”。
使用 API 函数,可以编写出功能丰富、界面美观的应用程序。
(2)API 文本浏览器:API 文本浏览器可以浏览含有 API 函数的声明、常量和类型。
启动 API 浏览器:启动
VB、执行“外接
程序”菜单中的“外接程序管理器”、加载
VB 6 API Viewer、执行“外接程序”菜单中 API 浏览器。
执行 API 浏览器“文件”中“加载文本文件”,打开 WIN32API 文件,添加实现椭圆显示窗体的 API 函数。
Private Declare Function CreateEllipticRgn Lib gdi32 Alias CreateEllipticRgn (ByVal X1 As Long,ByValY1 As Long,ByVal X2 As Long,ByVal Y2 As Long) As Long Private Declare Function SetWindowRgn Lib user32 Alias SetWindowRgn (ByVal hWnd As Long,ByValhRgn As Long,ByVal bRedraw As Boolean) As Long (3)API 函数的声明。
PublicPrivate Declare Function API 函数名 Lib “该函数所在的文件名”Alias“该函数的笔名”(变量名及变量类型说明) As API 函数类型说明。
其调用方法与在
VB 中调用其他函数的方法相同。
4 结果 实现椭圆显示窗体如下: Private Declare Function SetWindowRgn Lib user32 (ByVal hWnd As Long,ByVal hRgn As Long,ByValbRedraw As Boolean) As Long Private Declare Function CreateEllipticRgn Lib gdi32 (ByVal X1 As Long,ByVal Y1 As Long,ByVal X2As Long,ByVal Y2 As Long) As Long Private Sub Form_Load Me.ScaleMode vbPixels lng CreateEllipticRgn(0,0,Me.ScaleWidth,Me.ScaleHeight) SetWindowRgn Me.hWnd,lng,True End Sub 运行结果如图 1 所示。
图1 椭圆显示窗体效果图参考文献 1 刘彬彬. Visual Basic 程序设计 北京:人民邮电出版社 2008 2 王栋. Visual Basic 程序设计实用教程 北京: 清华大学出版社 2007 收稿日期:3 月 12 日 修改日期:5 月 4 日 作者简介:李同柱(1981-),汉,江苏省淮安,助理工程师,工学学士,研究方向:
计算机软件。