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

对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

PayPal前CTO 在美国改变世界的乌克兰犹太人 放弃Bootstrap&Foundation,迎接Semantic UI? 一键分享:iOS版Google+发布SDK InMobi杨娟:中国移动游戏如何挑战全球? Adobe再遭APT攻击:数十G源代码及290万用户信息失窃 程序员,如何在工作中崭露头角? 国内外三个不同领域巨头分享的Redis实战经验及使用场景 这是一场潜在的战争:谷歌与Facebook、苹果在搜索上的博弈 设计新闻类网站需要注意的关键点:移动友好、宽带…… 直接开始用:5个免费的在线思维组织工具 招聘开发者常见的九大误区 开源影响销售,维护赞助商? 盘点黑客攻击途径:最常用的7个策略及简单的防护方法 专访AngularJS框架创始人Misko Hevery:让Web开发更便捷 果粉的又一个节日:新iPad或于10月22日发布 新车间李大维:到集装箱里来看创客嘉年华 亚马逊推“登录与支付”功能 直接冲击PayPal Google编程之夏新里程碑:5000万行源代码 8500名学生开发者 非常实用的15款开源PHP类库 Runnable:一站式代码片段服务平台,打造编程界的YouTube 谷歌向所有开发者开放Google App Engine PHP Runtime “沟通”电子表格和矢量图形的“桥梁”:在线可视化工具Raw Facebook北极圈数据中心,Open Compute Project的力作! 最后三天!4折抢购2013移动开发者大会门票 电子书追踪统计,App Annie for eBooks上线 先驱还是模仿者?细数海外移动应用推广平台 IDC:PC出货量下滑终于放缓 联想销量再次第一 为什么说,用一块屏幕玩游戏是远远不够的? 编写代码?先熟悉一下编程语言界限吧! Spanner vs. F1:谷歌两大数据管理利器的整体对比及关联 移动设计需摒弃的几大PC应用设计方法 有关datagrid 和webform 的问题 程序员的艳遇。。。。。。 验证字符串问题 IE问题!好烦人啊!那位高手能帮我解答! 怎么在建表时使用一个时间函数??就是指出加这条这条文件的时间?? 高手请进,多数据库链接的问题 如何成为一个程序员? 事务以及回滚的问题 有做完一个作业,放60分。 关于ASP调用VC编的DLL接收返回参数的问题 我提问,大家回答 有没有关于触发器的电子书籍? 怎么能够获得数据库的连接字串呀?? 大讨论:目前用什么工具、做什么开发最能赚钱?散分啦!感兴趣的程序员们快来!! 在IE中,打开某个页面,会连接到www.lop.com页面 关于islower(ch),isdigit(ch) 疑问 BQQ的服务器端有没有保存用户的聊天记录的? 如何获得程序方向键输入?多谢! 求助有关IFS-HOOK 高手请入!!急救!求msflexgrid 的打印源码????? 如何在list中显示文件夹 哪里可以看到Obejct类clone的实现方法? 系统的FOUND.00*文件夹里放的FILE000*是什么文件?可以删除吗?刚装系统时没有这些文件的阿 给分啊 今日郁闷之至……散分! 来来来,大伙们一起来衷心祝愿xxmm (晓箫)的老爸老妈顺利赴美参加晓箫的毕业典礼!! Dev-Cpp 使用 NetAPI32.lib 的问题 急寻严蔚敏,吴伟民版《数据结构习题集》c语言版的答案,请问哪有啊 高手们给我一个超级简单的HOOK API的例子好吗?求你们了。 错在哪里 好郁闷啊~ 谁有站内关键字模糊查询的代码?紧急求救、在线等待!!!! 字符串转化为数组的问题 讨论<<标准C++库大全>> 上次是哪位兄弟要的《新编API参考大全》CHM版呀?我找到了一个,还行。 欢迎大家访问我公司的网站! 请学c++builder 有份量的人推荐一本经典的教材(适合初学者) 欢迎大家访问我们公司的网址! 关于分页的问题 请帮我看看这个小程序 欢迎大家访问我公司的网站! 已知一个文件夹的路径,如何得到该文件夹中的文件的名字? 关于StreamReader的问题 欢迎大家访问我公司的网站! 有关编辑框的问题 各位大侠一个很菜的问题,来帮帮忙! 关于集合的一个小问题 最菜的问题,100分白送!!! what has been done with the old books?这个句子那个是主语、.怎么理解这句话啊?我觉得the old books应该在has和been 的中间,我的想法对吗? korean red ginseng and honey tea 什么是free candy What ____ with the clothes?A.has been done B.has done C.have done D.have been done We have some toma toes and dessert for dinner.翻译 上海哪里有CANDY SUGAR的包要皮的那种,日本学生用的那种手提包 《昆虫记》之《孔雀蛾》读后感,急不要一整部《昆虫记》的读后感!只要《孔雀蛾》的读后感不是一整部《昆虫记》的读后感只针对《孔雀蛾》!明天交 Are you puttingon your bag,desk,egg,apple,C,evening,Amy,Ben,D,B,name.Aa哪些是开音节 那些是闭音节不会的别来捣乱 昆虫记的孔雀蛾一文的读后感600字!急!谢了! You are still holding your coat 对your coat 提问 祖国六十华诞阅兵式作文具体,600字以内,要有阅兵的过程, I didn't know which T-shirt was 什么,so I took themboth选择A nicer B well C worse D good ()are you putting on your coay?because i am cold we.egg,bed,he.pen,she,desk,me,这几个单词怎么分类? 口语交际诚信的好处 my sister often helps me怎样改成一般疑问句 e.g.pen—name—egg—good —desk问:arm— — — —tall— — — — cow— — — — duck— — — — 口语交际 婉转拒绝的好处 My sister often carries her ____(钱包) in her handbag.对 写祖国60华诞的阅兵式的作文 i didn't know white t-shirt was(),so i took them bothA.nicer B.well C.worse D.good问下为什么还有这句话的意思 my classmates often ____ ____ __my classmates often ____ ____ _____ _____ Simon 我的同学经常捉弄西蒙 He likes flying a kite的同义句 the,let,new,try,me,hat,my,on,son怎么连词成句 英语翻译其中 either own 和 use of 北京小学课间操几点开始 you,the,for,thank,new,shorts.怎么连词成句 昆虫记的主要内容400字 笃坪小学的课间操叫什么名字 一个物体的质量3000KG.分析下列情况下起重机钢丝绳对物体的拉力有多大.【G取10N/KG】1.物体以2M/S的速度匀速上升2.起重机悬吊着物体静止不动 34.Will you _____ it that this letter gets mailed today?A、see off B、see to C、look after D、look into选哪个为什么? 兵马俑能看几个坑?没去过兵马俑,听说里面有好几个坑,里面还有什么能看的么? ( )exercising,and you'll be healthier A.Keep B.To keep C.Keeping 希望可以说一下为什么 这次口语交际,请谈谈应该怎样上网才对我们小学生有好处,并把你想说的话写下来.快. 我们要开一趟辩论课、哲学没用和哲学有用,我想问一下、哲学没用的论据是什么啊?、 _____exercising,and you will be healthier A.keep B.To keep C.keeping D.kept为什么可以直接用keep,而不是to keep,或是keeping? 在口语交际教学中,为什么要遵循口语交际的特点和针对学生的实际选择教学内容? 一食或尽粟一石的或什么意思 英语:请用12个词填空.HURRY UP Word:an apple,an egg,a tomate,apples,tomatoes,eggs,sugar,milk,tea,chicken,cake,cheese.write:‘You must lose weight,'my doctor said to me,‘You mustn't eat( ).They're bad for the heart.'‘Can't I have( )for brea put to在这里的意思上下文如下:The authorities demand answers to questions that one would hesitate to put to one's intimate friends. 有没有忧郁连连这个词? what had been done had been done. time to go to the store意思 有没有预警性这个词? Hurry up.Don't be什么 I'm a store to work. 千篇一律,有没有这个词 America has never been about what can be done for 有"您的"这个词语吗准确一点的哦那有“您们”这个词语吗? ride on 和ride in区别如题 “stupid”音标是怎么写的呀 昆虫记里描写独角仙、凤蝶的片段, ride与 ride on有什么不一样Rather than ( )a crowded bus ,he prefers ( )a bicycle to go to work.A ride on ;to ride B ride on ;to ride on C ride ; to ride 帮我说说为什么 他们搭配有什么规律?即通常ride on 后跟什么?ride后 One never notices what has been done; one can only see what remains to be done.中文意思是什么? 甲、乙两人匀速按相反方向绕圆形跑道跑步,出发点在直径的两个端点.如果他们同时出发,并在乙跑完100米时第一次相遇,甲还差60米跑完一圈时第二次相遇.那么跑到长多少米? get on motorbike和ride motorbike有什么区别 下列句子各属于什么句式.1.别人送我一直小松鼠.( )2.这么远,见哪能射到呢?( )3.蘑菇都到哪儿去了呢?( )4.原来松鼠是我们家的小偷啊!( ) red ginseng the water is boiling.为什么是主谓结构而不是主系表结构? 中国古代绘画展在伦敦举行各部门各地迅速行动 浙江多管齐下帮扶外侨办牵线搭桥舟山与香港小学开展校交浙江为宗馥莉等73名浙商冠冕 宗庆后第十四个全国“男性健康日”浙江多名医国航增加三条国际航线伊朗边境发生武装冲突 14名边防人员哥伦比亚妇女售卖12个女儿“初夜权”漏洞百出的“全球奴役指数”美媒曝谷歌或正秘密建造海上数据中心哥伦比亚妇女售卖12个女儿初夜权牟利白俄总统错坐普京座位 发现后起身让座伊朗边境发生武装冲突 14名边防人员朝鲜纪念中国志愿军赴朝参战63周年 世界浙商大会开幕 夏宝龙赞浙商是最倚人感染H7N9禽流感病毒疫苗株在杭州马尼拉巿长据报拟下月赴香港就人质事件俞正声谈中共十八届三中全会毒性很强的废水直接排放 瓯海一老板被从X光片CT片中提炼白银 丽水男子因杭州西湖特聘十大“刺客” 常年为西湖山东省政府召开常务会议 研究编制省级第八届中国肿瘤学术大会:科学防癌 防夏耕会见阿联酋客人山东省领导参加指导基层党组织专题组织山东省人大常委会将执法检查《山东省行山东:8月份大气质量明显下滑 将出重山东建成农家书屋7.2万家 提前实现济南高档车“杀手”一晚盗窃30多辆 山东畜牧兽医职业学院科技支援西部活动首届山东省科技创新成果展开展齐鲁工业大学女孩失联最后动态:曾向学全国首次预备役高炮队伍竞赛性考核在青济南:男子买特价商品房 公积金贷款遭齐鲁工业大学女孩失联新线索:好友现身山东新疆联手举办红枣产业博览会山东将编制省级行政审批事项目录中国首档节约挑战真人秀《节俭中国人》美军两架战机在西太平洋坠毁一名飞行员五大金融管理部门做客华龙网:重庆金融意媒:意大利超级杯或移师卡塔尔举行范加尔亲承菲尔 琼斯因拉伤或缺阵一个
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘