说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

对VB的IDE环境的扩展

HTML文档下载 WORD文档下载 PDF文档下载
对VB的IDE环境的扩展
作者:董科科
VB、Delphi 作 为Windows 下 的 可 视 化 编 程 环 境, 已 被 大 家 广 为 采 用。 笔 者 在 编 程 中, 通 过 对 二 者 的IDE 开 发 环 境 的 比 较, 利 用VB 的Add In 接 口, 完 全 模 拟 了Delphi 对 一 组 控 件 的 位 置、 大 小 的 快 速 操 作 和 模 板 功 能, 对VB 的 开 发 环 境 作 了 一 个 有 益 的 扩 展, 大 大 的 提 高 了VB 的 速 度 和 方 便 性。

一、 控 件
1、 控 件 对 齐(Alignment)
在VB 的 编 程 中,From 上 的 单 个 控 件 的 位 置、 大 小 虽 可 方 便 的 调 整, 但 对 一 组 控 件 的 位 置 关 系、 尺 寸 关 系 却 难 以 自 如 的 操 作, 而Delphi 中 有Align、Size 提 供 了 此 功 能, 对 用 户 来 说 非 常 方 便, 笔 者 再 编 程 过 程 中 就 常 常 遇 到 这 样 的 问 题, 笔 者 通 过 编 程 成 功 的 模 拟 了Delphi 这 一 功 能。

a、 完 成 功 能
b、编 程 思 想
初 始 化 系 统 和 变 量

Set TheseControls=
VBInstance.ActiveProject.ActiveForm.SelectedControlTemplates
选择对齐方式
For Each Control In TheseControls
iCount=iCount+1
Set MinHorControl=MinHou(Control)
Set MaxHorControl=MaxHor(Control)
Set MinVerControl=MinVer(Control)
Set MaxVerControl=MaxVer(Control)
Set HorControls(iCount 1)=SortHorControl(Control)
Set VerControls(iCount 1)=SortVerControl(Control)
Next Control
计算控件位移
For I=0 To iCount 1
HorControl(I).Properties(“Left”)= 新 值
HorControl(I).Properties(“Width”)= 新值

VerControl(I).Properties(“Top”)= 新值
VerControl(I).Properties(“Height”)= 新值
Next I
Exit Sub
2、控件尺寸(Size)
a、完成功能
b、编程思想
初始化系统和变量
Set TheseControls=
VBInstance.ActiveProject.ActiveForm.SelectedControlTemplates
选择尺寸变换方式
For Each Control In TheseControls
iCount=iCount+1
MinWidth=MinWidth(Control)
MaxWidth=MaxWidth(Control)
MinHeight=MinHeight(Control)
MaxHeight=MaxHeight(Control)

Set Controls(iCoun 1)=Control
Next Control

For I=0 To iCount 1
Countrol(I).Properties(“Width”)=MinWidth OR MaxWidth
Countrol(I).Properties(“Height”)=MinHeight OR MaxHeight
Next I
Exit Sub
二、 模 板
各 种 字 处 理 软 件 现 在 均 提 供 了 模 板 功 能,Delphi 也 提 供 了Gallery 功 能 提 供 了 一 些 模 板 来 降 低 用 户 编 程 的 重 复 性, 笔 者 也 对VB 提 供 了 这 个 功 能。
初 始 化 系 统 和 变 量

Set frmNewForm=IDEApp.ActiveProject.AddFormTemplate()
On Error Resume Next
For I=0 To frmNewForm.Properties.Count 1
PropName=frmNewForm.Properties(I).Name
If(InStr(“Name Left Top”,PropName) 0)Then
frmNewForm.Properties(I).Value=fnGetProperty(tuForm.ropName)
End If
Next I

For Each Control In tuForm.Controls
ControlTypeName=fnGetControlTypeName(Control)
With frmNewForm.ControlTemplates.Add(ControlTypeName)
For I=0 To.Properties.Count 1
PropName=.Properties(I).Name
.Properties(I).Value=fnGetProperty(Control,PropName)
Next I
End With
Next Control

fnHandle=FreeFile
Open App.Path &“ \DesiTemp.MOD”For Output As fnHandle
tuForm.prWriteFormCode fnHandle
Close fnHandle
frmNewForm.InsertFile App.Path &“ \DesiTemp.MOD”
Kill App.Path &“ \DesiTemp.MOD”
On Error Go To 0
Exit Sub

非响应式手机网站页面的优化 高薪必备:Hadoop求职者的6大攻略 微软或将于四月发布“返璞归真”的Windows 8.1 Update 1 《近匠》第14期:LiveCode——全民开发工具 美团梁堰波:用SQL-on-Hadoop构建互联网数据仓库与商务智能系统 程序员游戏Style:亚特兰大极客使用机器学习玩转Flappy Bird Gleasy CTO薛珂:成立3年,企业用户2万+,移动办公蕴藏较大发展机遇 Unity Awards展区“点亮”Unity亚洲开发者大会 DevBox:最实用的移动开发辅助工具包 【技术博客推荐】创客程序员设计实现最小物联网系统 MySQL还是NoSQL:开源盛世下的数据库该如何选择 利用Hadoop Streaming处理二进制格式文件 如果没有强大的API,那么还是与OpenStack兼容吧 企业社交工具为何走向衰退? 封闭还是开放?雅虎禁止用户使用Facebook、谷歌ID登录和使用其服务 【OSTC讲师专访】罗聪翼:付出和回报在开源世界成正比 近匠:“词Ci”——全栈“女神”如何诠释倾城之美 国内首届引擎黑客松Cocos2d-x Hackathon即将开赛! 抛弃CloudStack,GoDaddy加入OpenStack PaaS平台之争:Cloud Foundry是赢家吗? 投资超140亿美元,涨幅达30%,数据密集型应用将占领第三平台 汽车开放平台:看看通用汽车是怎么做API的 Gamebase将推全新跨平台3D游戏引擎Reach3dx 借助API Telegram能否成为第二个WhatsApp 机器学习也感性:90后软妹纸的编程之路 为安防与视频监控而生 西数紫盘首发 秘闻:鲍尔默离职,或与坚持收购诺基亚有关 【OSTC讲师专访】Thomas Yao:开源社区最缺有能力的领导者 对比MySQL,你究竟在什么时候更需要MongoDB 不以“大小”论英雄,对比IBM、AWS,谁才是Hadoop界的MVP? 参加“我们都用JIRA”视频征集大赛 赢取乐视TV超级电视 一个关于udp重发的问题 如何在delphi程序里调用vc写的exe执行文件。 如何将query中的内容输出到文本文件,然后还能将该文本文件再导入进来?急急急!!!!!!!!!!! 急急急!!我的计算机找不到硬盘了45分 如何求任意多边形的重心 紧急求助:请问java有没有比较丰富的多媒体控件?比如录音的控件??? 急急急!!!我的计算机找不到硬盘了,45分 如何把一个字段的内容求和,然后把结果存入另一表! 请教,怎样把一个记录数组用VB读入ACCESS 2000数据库中? 关于货币类型的问题? the script too large ????????我快疯了。 什么地方有Sybase与Oracle的比较资料? 急急急!!!我的计算机找不到硬盘了,40分 问一下大家 复活节彩蛋 win2000 professional下如何配置weblogic6.0 jsp和javasript如何通讯? 急!!!如何把'¥100'字串转化为浮点型100.00 用OleContainer1将一个WORD文档存进数据库后如何将它从数据库中取出??? 关于SNMP的问题(请高手回答,送40分) 谁想过要戒水?戒成了吗?又渴了吗? 我用在各种机器上使用Win2000,从来没有down过, 真是太奇怪了??? 请问如何确定操作系统系统是中文的还是英文的? 向外国用户发注册码时候应该说些什么,才能让别人觉得你比较专业? 如何捕获ADO的异常信息 struct结构的数据存储是用的什么顺序方式呀? 能介绍几本关于BCB的适合初学者阅读的书吗? 高手进来,struct结构的数据存储是用的什么方式呀 高分!高手请进!!! Newton 有关StoredProc的 各位大虾进来看看,Debug时的错误~~~~~~~ First-chance exception 和 User breakpoint ,帮帮我啊!!! 虽然我也回复没有分,但有意思的帖子,但我对分数高的帖子更有热情,我是不是很势利?? 我的服务器是unix 哪位提供最简单的图片存入库中的代码 谁能得到拨号上网所使用的电话的号码? 关于视中图形(非图像)的缩放问题! 想不通啊~~ 谁来帮帮我~~~?? 哪里可以宕到:Robohelp Office(亚洲版),急!! 谁能告诉我PWS怎么用 小弟刚下载了j2sdkee1.2.1 ,但不知道如何配置,那位大哥愿意帮忙,详细讲一讲如何配置。 TOleContainer怎么没有滚动条呀 在哪里可以找到mschart5.cab? 明天在莫斯科将产生2008年奥运主办国,请猜是哪个城市主办!答对者有分!(可加到204) 请问有没有做电力系统方面开发的? IIS是什么 如何用VB向串行口发送一个数据? 如何隐藏CScrollView中的Scrollbar? Image控件放大后其ClipRect不跟着放大,问题之二: 请教VC高手:如何存取SQL Server中的Image类型数据? 想见你 —— 大勇,你在哪里? 请帮我把“一切因你而存在、一切因你而精彩”用英语翻译一下!急、简洁点就行、 英语翻译我梦想中的房子是要建在山水环绕的地方,那里山清水秀.采用中西,故现代结合的建筑风格.房子的主体部分用的材料以玻璃木材为主.房子外形与大自然融为一体,给人以赏心悦目的感 英语翻译做为一名自愿者,应当待人礼貌、友好,避免不得体的言行.要做到坚守岗位,热忱服务,不望履行自己的职责,热情的向旅游者介绍文化,历史和科学成就. 你永远是我最美好的曾经 英语翻译 英语翻译The housing area____ ____ ____ _____3,000 square metres. 英语翻译当2001年7月13号,国际奥委会主席萨马兰奇宣布2008年奥运会举办城市是北京的时候,全中国人民都特别兴奋和激动.这一天对中国人来说是永生难忘的日子!中国人盼望了100多年的奥运梦 太棒了!(英文翻译) 用英语翻译:1.最大的那个房间是他的. 英语翻译Pop is the short form of the word "popular".The pop revolution of the 1960s changed the pattern of English life .And pop has become part of British life .And pop has become part of British and American history .There has always been a clo 我认为我英语很棒.英语翻译 英语翻译前面还有一句:Here is my( )后面的中文就是"这是我理想的房间 英语翻译顾问设计策划工程经纪执行总监项目总监策划总监制作总监董事首席 英语翻译:我认为他们很棒. 英文作文《我理想的房间》 名片英文翻译以下职务: 国内部副经理 英语翻译(你们的孩子永远是最棒的) 我们的理想房间(用英语怎么说?) 名片上面英文翻译的职务怎么排序啊,高的在前面还是低的在前面;另外不同的职务并列间用什么标点隔开? 英语翻译 你本来看上去很棒 英语翻译请帮他们列一智囊长购物计划.Plase help( ) ( ) ( ) ( ) ( ). 名片上的职务用英语怎么写?团队主管客户经理 英语翻译This movie __is __ .He is __ it,__. 求英文翻译:感谢李明制作了这张手抄报 名片上公司名称英文翻译:浙江永东电器制造有限公司 中国的北京故宫真的很棒!用英语翻译 "制作一张电子贺卡"用英语翻译一下(跪求) 名片厂名的英文我想制作名片,不知道怎么把厂名改为英文的,例子:东莞市石排正大橡塑制品厂,在下面英文是这样的:DONGGUANSHIPAIZHENGDARUBBERPLASTICMANUFACTUREFACTORY我现在想做的名片是:东莞市厚 英语翻译1.to show how much we're going to miss her,let's have a surprise party for her next Friday the 28th.2.bring Ms.Steen to the party without telling her so that she can be surprised.3.I look forward to hearing from you all. 英语翻译急需翻译以下内容:设计说明,本设计从所给用地周边情况出发,合理安排了出入口位置,并结合水域设计,设计了主要交通路线.在水与主要道路的交汇处设置了中心境观.此外,我们将其 英语翻译北京市海淀区花园东路32号花园公寓A座1302 我将要离开你,希望你要过的很好用英语翻译怎么讲 英语翻译“因为它是某一个公司制作的” 名片地址英文翻译西安市南关正街大南门 3号楼18-A2室 我不是寄生虫,离开你我也会活的很好的英语翻译 英语翻译过得愉快乘游览车到山顶打字和接电话报时相当多负责掌管 英语翻译北京市大兴区滨河东里19栋1单元502室 有真厉害 用英语翻译 英语翻译1.现在我们将为你介绍一些关于我们身边的插画,而这些插画都是我们现代80后以及90后的人普遍比较接受和认识的插画.2.现在为你们介绍的是在中国插花界以及在国外颇有影响力的著 英语翻译北京市朝阳区南磨房路37号华腾大厦2018Add:20F HuaTeng Building,No37 NanMoFang Road,CaoYang Section BeiJing 100022.P.R China业务经理:Operations Manager上面翻译得对吗?还有真皮拖鞋,厂家直销,量大从优.英 也许单身很好 怎么用英语翻译 英语翻译building scale 和 element scale有什么不同 能不能举个例子 在element scale里面的the public face,the approach又是指什么plan of the building - a diagrammatic plan showing the main funtions 屋子的主要功能?section o 英语翻译需翻译内容:江苏中丹精化公司、总部厂区、厂长、厂长助理、开发区厂区、总经理办公室、主任、总经理秘书 我想要一个插着蜡烛的生日蛋糕英文翻译 希望你过得好点用英语翻译 英语翻译要是大家之作的! 英语翻译they _____ the birthday of their motherland _____ _____ songs 英语翻译The teacher tries many ways to ____ ____ not difficult for us ____ ____ ____. 建筑学062班 英语翻译怎么写呀 (急!) 英文翻译 "祝愿所有11月生日的朋友生日快乐" 这是学英语的好机会 英语翻译 英语翻译她身着粉色上衣,红色包裙,脚踏一双醒目的红色高跟鞋,远远看些就像一个圆圆的双层草莓蛋糕.乌黑的短发下有一张丰满的脸颊,鲜红的厚嘴唇格外突出,就像两根熟透的热狗.她的眼睛 英语翻译注意是将要. 英语翻译:“学英语是很好的,但得慢慢来,循序渐进” 谁能帮我用英语翻译一下面这篇文章.谢谢大家呢.我一直在等一个我深爱的人.不管是女子,还是男子,我从不寻找.因为我知道落空后的失望.我不怕相遇,不怕争吵.不怕离开,我只怕你站在我 翻译 最后,人们吃了她妈妈亲手做的生日蛋糕 英语翻译“你经常犯什么样的错误呢?”和“你认为学英语的最好建议是什么?” 英语翻译最后一周了,在这周里,我用三天时间把作业做完了,感觉真的很轻松.我参加了初中的同学举办的一次聚会,见回老同学,我真的很高兴,我们聚在一起烧烤,聊天,喝酒.可能因为太久不见面 其实大家都知道,我们都不是彼此的那杯茶 上句求英文翻译..麻烦了 有什么很好学英语的方法?对女孩子来说. 英语翻译不要用百度词典,错误太多┄我最喜欢的动物是松鼠,它们很可爱,也很聪明.它们喜欢吃松子,它们有一条大大的的尾巴和小小的身子.它们的颜色是棕色的,经常在树林里出没.我喜欢它
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn