vb程序设计:VB程序设计1000问( 3)来源: 发布时间:星期四, 2009年1月15日 浏览:150次 评论:0
11、如何让用户自行输入方程式并计算其结果?
假设我们要让使用者在“方程式”栏位中自由输入方程式然后利用方程式进行计算则引用ScriptControlControl控件可以很方便地做到 ( ScriptControl Control控件附属于VB 6.0如果安装后没有看到此Control控件可在光盘 \Common\Tools\VB\Script 目录底下找此Control控件 其.文件名为Msscript.ocx) 假设放在窗体上ScriptControlControl控件名称为ScriptControl1则在“计算”按钮Click事件中编写如下代码: Dim Statement As String Statement = "X=" + Text1.Text + vbCrLf + _ "Y=" + Text2.Text + vbCrLf + _ "MsgBox ""计算结果="" & Y " ScriptControl1.ExecuteStatement( Statement ) 12、如何解决VB中GridControl控件打印问题 ---- Grid Control控件是Visual Basic最常见Control控件的 从VB3.0 到VB5.0 都有该Control控件 也是VB爱好者最喜爱工具的用它可以以表格形式 显示、浏览数据特别是数据库应用直接绑定即可显示浏览数据库信息然而美中不足是Grid 没有编辑和打印功能列和列位置不能相互交换笔者曾尝试着给Grid 增添了这些功能使的锦上添花功能更强大下面给出改进思路方法及源读者只需按步骤写下源即可使你Grid 具有打印功能该笔者在HP5/100Window95环境下用VB5.0 调试通过 ---- 给Grid Control控件增加打印思路方法有 3种:1 是直接打印Control控件思路方法2 是通过 prer 来实现打印功能3 是通过MS-WORD 及MS-EXCEl 来 实 现 打 印 ---- 首先打开个应用在FORM1中增加DATA Control控件DATA1,把DATA1CONNECT 属性设为dBASE III再把DATABASENAME属性设为D:\PJXM.DBF然后再在FORM1中增加MSFLEXGRID空间GRID1并把GRID1DATASOURCE 属性设为DATA1这样数据库PJXM.DBF 信息就会在GRID1中显示出来 ---- 思路方法:直接打印窗体法在FORM1中增加命令按钮(command)CAPTION属性设为直接打印再写入下列编码: Sub command_click ---- 这样即可通过打印窗体FORM1思路方法把GRID1数据打印出来遗憾是只能打印GRID1中显示数据部分显示不出来则无法打印 而且这种打印思路方法很象屏幕硬拷贝把其他Control控件也打印出来也不能灵活控制字体等 ---- 思路方法 2:通过PRINTER实现打印这种思路方法 ---- 1、加入打印命令按钮(command1)、(pr1)即可实现打印功能写入下面代码读者稍加改动可写成标准或过程 Function prnt1 (x As Integer, y As Integer, ---- 这种思路方法通过灵活编程可以方便地调整字体、字型、线形、页面、纸张大小等可打印出比较满意效果如果你计算机上装有MICROSOFT WORD 和MICRO EXCEL最精彩使用方法还是把GRID 表格通过VB发送到MICROSOFT WORD 及MICRO EXCEL生成MICROSOFT WORD 和MICRO EXCEL 表格这样就可以充分利用MICROSOFT WORD 和MICRO EXCEL打印、编辑功能打印出更理想效果下面逐介绍 ---- 思路方法 3:通过生成MICROSOFT WORD表格打印 ---- 1、在declaration 中写入: Dim msword As Object ---- 2、 加入打印命令按钮(command2)CAPTION 设为"生成WORD 表格"写入下面代码 Private Sub command2_Click ---- 思路方法 4:通过发送到MICROSOFT EXCEL实现表格打印 ---- 1、加入打印命令按钮(command3)CAPTION 设为"生成EXCEL 表格"写入下面代码 Private Sub command3_Click 13、如何在VB中实现绘图区大十字光标 有时我们需要用VB快速开发个试验数据绘图处理将绘图Control控件内鼠标光标改变成和AutoCAD软件Software中使用大十字光标形式将可以比普通箭头光标达到更好效果那么我们如何实现这样大十字光标呢? ---- 首先我们明确下要达到效果假若我们在个PictureControl控件中绘图那么鼠标移动到这个Control控件上时鼠标光标立即改变为大十字形状光标中横线从Control控件左边界到右边界竖线从Control控件上边界到下边界即大十字光标将绘图Control控件分割为 4个象限当鼠标移动到Control控件外时光标则又恢复成原来形式 ---- 要实现这样光标得我们自己通过画线方式实现如鼠标在绘图Control控件内先在鼠标当前位置画上光标横线和竖线;当鼠标位置移动先擦除原先光标横线和竖线然后再在新位置画光标横线和竖线那么我们就要响应绘图Control控件MouseMove事件当然绘图Control控件内无论有什么内容我们擦除光标线和重画光标线时都不能破坏原先内容因此我们要将绘图Control控件DrawMode设置为vbXorPen(异或方式)绘制光标横线和竖线时用异或方式将横线和竖线象素点颜色设为光标颜色和原先象素点色彩异或值再用异或方式在同样位置绘制遍竖线和横线横线和竖线上象素点再次和光标颜色进行异或操作就擦除了光标横线和竖线且又恢复了绘图Control控件内原先内容 ---- 我们还得保证鼠标移动到绘图Control控件内时普通鼠标光标消失只有绘制大十字光标出现因此还应该设置绘图Control控件MousePoer属性为vbCuntom即用户自定义绘图Control控件MousePoer属性设置为vbCustom后其MouseIcon属性中应装入相应用户自定义图形我们希望绘图Control控件内只有我们绘制光标而没有其它光标故应该装入个空(透明)光标图形可以任找个光标文件通过任意个资源编辑器对其进行编辑用透明方式填充整个光标图形保存成我们所需NoIcon.cur即可 ---- 通过以上关键设置和操作我们就可以实现大十字光标了利用异或方式进行绘图我们还可以实现般绘图软件Software中常有“橡皮筋”效果即用鼠标定义个点后动态拖动鼠标来定义另外个点动态拖动鼠标过程中所要绘图形也动态相应变化 ---- 以下我们通过个举例来完整实现绘图Control控件中大十字光标还演示如何实现用“橡皮筋”效果来画矩形: ---- 在VB中新建个标准EXE工程在Form1中加入个PictureControl控件其Name设为PicDraw可以装入个图象文件PicDraw大小和其中图象大小基本上覆盖大部分Form1即可实现代码如下所示此在VB5.0中运行通过 Option Explicit 14、如何充分扩充VB功能 Visual Basic是目前开发WINDOWS应用软件Software最有效工具的它综合运用了BAIC语言和新可视化设计工具不仅功能强大而且简单易学其次VB具有事件驱动编程机制它充分利用WINDOWS图形环境特点能让开发人员快速地构造强大应用 那么在开发VB应用软件Software时如何充分地扩充VB功能呢?这就要求在区别层次上要很好地利用VB最具威力和特色部分: ●在层动态链接库 ●在Control控件层使用VBX●在应用层执行其他应用 、在层功能态链接库(DLL) WINDOWS操作系统实际上是由许多功能强大动态链接库(DLL)组合而成VB考虑到有些工作超过自身语言所及能力范围所以提供了直接操作系统中这些DLL子能力例如:在正常情况下窗口控制菜单提供了 7种功能:还原、移动、大小、最小化、最大化、关闭和切换而在实际应用中我们希望窗口按设计时大小显示不允许用户随意改变窗口大小也不允许切换到其他窗口这就要求在设计时必须删除控制菜单中除“移动”和“关闭”选项以外所有控制菜单项要完成这任务我们首先可把窗体MaxButton属性和MinButton属性设置为False不允许窗体最小化和最大化窗体也就不能还原然后再把窗体BorderSstyle属性设置为1-Fixed Single或3-Fixed Double不允许窗体改变大小但VB本身却无法删除“切换”选项和两条分隔线幸运是通过WINDOWS DLL就很容易做到 通常要使用WINDOWS DLL首先必须介绍说明要使用DLL子我们可在两个地方介绍说明所使用DLL子即在全局模块中介绍说明或者在窗体层介绍说明部分中介绍说明其格式是: Declare Sub子名Lib“库名”[Alias“别名”][([参数])] Declare Function子名Lib“库名”[Aliass“别名”][([参数])][AS数据类型] 第种格式表示过程没有返回值第 2种格式表示过程返回个值该值可用于表达式中库名如果用是WINDOWS操作环境(在目录下)中库如“USER.EXE”“KERNEL.EXE”或者“GDI.EXE”等就用此名作为库名如果用是其他来源DLL则用包括路径文件名称(如:“C:\WINDOWS\BRUSH.DLL”)别名(Alias)是允许另外使用别名称来称呼子尤其是当外来子名和VB保留字相同时它就显得特别有用参数指要被传递到子参数值数据类型指是返回值数据类型它可能是IntegerLongSingleDoubleCurrency或String下面就是所要使用DLL子介绍说明: Declare Function GetMenu% Lib"User"(ByValhWnd%ByValbRevert%) Declare \function \RemoveMenu% Lib"User"(ByValhMenu%ByValnPosition%ByValwFlags%) 当介绍说明完DLL子后执行DLL子思路方法就象在VB中执行通用过程()样下面我们编写个名为Remove-Items-From-过程来完成上面例子中提到功能过程中了上述介绍说明过两个DLL子: Sub remove-Items-From-Sysmenu(A-Form As Form) 有了这个过程在任窗体Form-Load事件中加入下面行代码就可以删除该窗体除“移动”和“关闭”选项以外所有控制菜单项: Remove-Items-From-Sysmenu Me 2、在Control控件层使用VBX VB功能强大第 2个部分是VBX使用即其开放及无限扩增特性虽然VB工具箱(ToolBox)已经尽量将设计应用软件Software所需工具包括在内但是为了不断扩充VB功能VB提供了套开发工具(Custom Control Development Kit)供第 3方开发者来设计所需要Control控件当设计完Control控件文件后(其文件扩展名为“.VBX”)可以从菜单“file”项下选“Add File...”命令结果画面上出现个"Add File"对话框双击所需VBX文件名即可将该VBX加入到VB中这些Control控件装入VB后VB会将这些外来Control控件加到原有工具箱中和其他Control控件起合并使用正是有了这技术VB才能够不断发展使用VB编程也更为方便、迅速和有效这是VB区别于其他开发环境主要特色的自从VB推出以来第 3方软件Software公司设计了大量新Control控件下面是开发WINDOWS应用时几个非常有用VBX: ● 3维Control控件Threed.vbx 它提供了包括命令按钮、复选框、单选钮 、框架、下推按钮和面板在内 6种 3维Control控件使用这些Control控件可使窗体更具有立体感 ●图形Control控件Graph.vbx 向图形Control控件发送数据后图形Control控件可绘制 2维或 3维饼图、直方图、趋势图并且可以打印或拷贝到剪贴板上 ●通讯Control控件Mscomm.vbx 它提供了串行通讯能力可用于串行端口的间传送和接收数据 ●数据网格Control控件Truegrid.vbx 它既可以作为般数据显示表格也可把个数据库和个网格联系起来它是制作数据库浏览器或数据显示理想工具 2、在应用层执行其他应用 在编制复杂大型软件Software时我们经常会需要有些功能相对独立和完善专用如编辑而这些通常是通用和流行并经实战检验如果由开发者重新编制这些不仅大大增加了工作量以及调试过程而且功能上很难比得上这些通用显然如果我们能直接这些是最为理想令人欣喜是VB提供了个可用来其他应用Shell使VB某些功能可直接由其他应用来完成从而大大地减少了编程任务 格式是Shell(命令串[窗口类型]) 其中命令串是欲执行应用名可执行文件扩展名只限于“.COM”“.EXE”“.BAT”“.PIF”缺省扩展名为.EXE文件窗口类型是整数值它对应于执行时显示窗口风格是可选 共有下列5种选择: 窗口类型 值 正常窗口 具有指针 2 最小窗口 具有指针(缺省) 3 最大窗口 具有指针 48 正常窗口 不具指针 67 最小窗口 不具指针 当Shell成功地某个应用时返回个任务标识(Task ID)该ID表示正在执行唯标识 [例] X=Shell("C:\WINDOWS\NOTEPAD.EXE",1) 该语句WINDOWS附件中记事本NOTEPAD.EXE作为编辑来使用并返回1个ID值到X 15、成组更新Control控件属性 Sub EnableAll(Enabled As Boolean, ParamArray objs As Variant) 0
相关文章读者评论发表评论 |