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

对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

微软、谷歌及苹果从哪赚钱? 高大上!5.5寸屏幕的iPhone 6概念机来袭 苹果CEO Tim Cook:我们是一家快速发展的公司 2014年美国大学生数学建模竞赛翻译及建模思路 围观龙虎斗:谷歌GCE vs. 亚马逊AWS,要做9件事 未来编程趋势的12个猜想 命令行永存... IBM发布SmartCloud数据虚拟化服务 嚓嚓嚓嚓:虐心的Flappy Bird今日终于下架 Flappy Bird不再“飞翔”后,还剩下什么? 索尼抛售PC业务:内忧外患导致全面退出 慧正通软技术副总裁:工作流引擎厂商的生存之道 TIOBE 2014年2月编程语言排行榜:VB.NET首次进入TOP 10 斯诺登仅用“网络爬虫”软件获取机密文件 全球开发者:iOS、Android、WP哪个最赚钱? 推荐15款响应式Web设计测试工具 开源世界应该致谢的五家公司 Square、LinkedIn、Google... 高薪利器:四大热门云计算认证推荐 陌生的编程任务,该拿你怎么办? 辟谣:网传Flappy Bird开发者已经自杀 Apple可穿戴倾向健康类,又一个即将被颠覆的行业 传诺基亚月底推Android手机 去除一切谷歌服务 响应式网站与原生移动应用,哪个更适合你的企业? HBuilder:最快的Web开发IDE 成功开发系统集成项目的六大建议 OS X平台上出现窃取比特币的木马 《近匠》第11期:Arrownock——移动社交构建师 面向企业:Google发布iOS版Google Admin应用 Github推出Education平台 师生免费享有微账号 平板的市场依然巨大:应用更丰富,Phablet设备存局限 免费的PCB数据3D转换工具 OBD++ XVL Converter Hadoop Namenode以regular方式启动代码流程分析 关于得到文件的名字? 用5行代码就让系统重起的帖子怎么找不着了?谁告诉我?加分了!! 素女经 如何修改SQL数据库表中的数据 在对话框里输出文字?不要控件!!不要static 控件 一个关于打印的怪问题! 如何将数据库通过JDBC接收并将字段关键字连成一棵树(每一分支最多64节点) 救急!!!!!!!小妹我遇到一点问题! 今年就业形势“大好”! ******* 马上就给分,所以给的少了点,大家别介意 ******** 大家给点意见 请关注一个初学者的问题?我学sql但是不知未来的发展趋势!? 图形数据窗口(line 星)点太大,如何缩小 救急!!!!小妹我遇到一点问题! 用bcb制作动态网页 数据窗口 Graph 类型 line 样式 如何学c语言? Delphi中如何获的其它应用程序中的内容? 显示颜色变成只有16色和2色? DWORD 参数传递的问题。 那里有播放AVI文件的程序?谢谢! 参数传递问题!!大侠帮帮我 请帮我修改一下源代码(delphi)请帮忙改一下,让它打印了不往里(数据库)存。 BIOS设置,用电脑是不是可以当闹钟呢? 五笔输入法忽然不能用了 救就我,为什么Frame的客户区变小了?关于切分窗口 怎样查找某一个目录下一个表是否存在? 请问有用过李阳疯狂英语的朋友吗?请说说到底怎么样? 我想向各位大侠请教一个问题? 如何屏蔽TEXTBOX的回车响应? 关于《各位学习编程的目的是什么》的总结 m_pusrrcdset->m_pDatabase->ExecuteSQL("")为什么不行?老是ASSERT错误 请问我刚入bcb的大门,有什么好的参考书可以看看吗? 有没有人知道计算机等级考试四级怎么查分啊? 如何将几个数组的信息写成一个.txt文本文件 笔试题请教? 请教一个小问题! 好难呀好难呀!!!!! 今天狠了狠心买了一本<>,花了我十分之一的工资!心疼啊!散点分! 请问有谁知道如何在C#中使用DirectX? 我在Picturebox中用Picture1.print打了200行数据,可我只能看到前20行 pb数据窗口中的列名在win2000 server里为什么显示不了中文? God save me,help...... tcl手机所使用的是那种操作系统,能否告知小弟,重分相谢! 异常中的问题 刷新对话框的背景图片(基于对话框的程序,而且刷新不只一次)! 请问? 急急急!!上网后的图标不见了!!! 为什么我写了个JSP写入数据库中的中文在数据库中查看是乱码? 用vb制作动态网页 在平面直角坐标系xOy中,反比例函数y=k/x的图像与y=3/x的图像关于x轴对称,又与直线y=ax=2交于点A(M,3)试确定a的值 大气中起吸收紫外线,保护地球生命作用的是哪种成份? 一块小麦试验田,今年比去年的产量增产2成,增产了540千克.去年共收小麦多少千克虽然我没有钱悬赏 但是我希望大家都能有一颗真诚的心来帮助我! 在平面直角坐标系xoy中,反比例函数Y=K/X的图象与Y=3/X的图象关于X轴对称,又与直线Y=AX+2交于点A(M,3)A值 被成为 地球生命保护伞 的是大气中的 (什么) 成分 空气滤清器叶片环起什么作用 已知直线y=(1-3k)x+2k-1.(1)k为何值时,直线在y轴上的截距为-2? 大气对地球生命的保护侧重于“大气在地球环境 中扮演的角色和对生命体的作用” 已知二次函数y=(k-2)x^2+2kx+3k,根据给出的条件求出相应的K的值,(抛物线的顶点在x轴上) 已知直线y=(1-3k)x+2k-1.(1)k为何值时,直线在y轴上的截距为2?(2)k为何值时,直线与x轴交于(¾,0)(3)k为何值时,y随x的增大而增大 过量的紫外线会诱发皮肤癌,大气层依靠什么来阻挡部分紫外线,保护地球上的生物?大气层的这种功能现在有没有受到影响? 已知二次函数y=(k2-1)x2-(3k-1)x+2.(1)二次函数的顶点在x轴上,求k的值; 已知直线y=(1-3k)x+2k-1 (1) k为何值时y是一条与x轴平行的直线 幸福村共有6块水稻试验田,每块试验田2006年的收成与去年相比情况如下:幸福村共有6块水稻试验田,每块试验田2006年的收成与去年相比情况如下(增产为正,减产为负):48千克,—35千克,40千 已知二次函数y=(k方-1)-(3k-1)x+2(1)二次函数的顶点在x轴上已知二次函数y=(k方-1)-(3k-1)x+2(1)二次函数的顶点在x轴上,求k值2 若二次函数与x轴的两个焦点a b 均为整数点(坐标为整数的点),当k为整 已知a^x=1/2,b^k=-1/3,求a^2k-3k的值 y=(2k-1)x+(3-2k)k的范围 已知二次函数y=(k²-1)x²-(3k-1)x+2 (1)二次函数的顶点在X轴上求K (2)若二次函数与X轴的两点交A.B均为整数点,则当K为整数时求AB两点坐标 急 大气对地球有哪些重要作用 A={X|-3大于等于X小于等于2} B={X|2K-1大于等于X小于等于2K+1} B小于等于A.求k的取值范围 空气滤清器起到什么作用,如何保养维修? 空气层对地球有什么好处 地球的外衣——大气层. 刚收割的500克小麦烘干后,轻了63.2克,求这种小麦的含水量? 地球表面的空气层叫大气层,由于它也受到( )作用,且具有( ). 初二上学期第二章地球的“外衣”____大气答案初二科学上学期第二章地球的“外衣”____大气答案 怎样保养空气滤清器 为什么地球的大气具有保温作用 地球的衣裳阅读答案 小麦为什么要烘干?关于小麦烘干的问题有哪位达人知道一二,南方的小麦为什么使用烘干设备烘干,北方好像不用,这是为什么? 在平面直角坐标系中,已知点p(1-3m,m-4)在第三象限,且m为整数,求m的值. 六年级第一学期语文课本第一课中的芒针是什么意思 设集合A={xIx=2k,k∈N},B={xIx=3k,k∈N},则A∩B等于 已知m,n为整数,且满足2m^2+n^2+3m+n-1=0,求m,n的值 地球的大气层有什么作用?如果没有大气层,地球将会怎样? 若3k(2k-5)+2k(1-3k)=52,则K等于多少? 已知点P(2M-1,-3M-1)在第三象限内,若M为整数,求点P的坐标 大气层的存在,使地球变得较适宜生命的出现和繁衍.大气层的作用中较重要的作用是保护作用,请列举大气层对地球的好处. (3k-2)(2+k)-(2k+1)(3-2k)=0算的麻烦, 已知点【2M-13,16 -3M】在第三象限,整数M的值是? 大气层中起到吸收紫外线,保护地球生命作用的是哪种成分? 空气滤清器的作用是什么? 微生物对环境的正面影响和负面影响 请问大气层对地球生物的好处或人类如何保护大气层? 改装冬菇头空气滤清器有什么好处 人类对环境造成的正和负面影响? 祖父把我叫过去,慢慢讲给我听,说谷子是有芒针的,狗尾草却没有,只是毛嘟嘟的,很像狗尾巴.改引述句例:拉骆驼的说,他们从门头沟来,他们和骆驼,是一步一步走来的.拉骆驼的说:''我们从门 已知二次函数y=x²+(2k+1)x+k²-1的最小值是0,求k值.(请详细这题) 生物都生活在有空气的环境中.这句话对吗? 狂犬疫苗注射方法 0 7 21天 第一天注射两针 为什么打四针患者信息:男 30岁 河南 周口4月4号注射两针 然后11号 25号 为什么只有四针 不是5针吗 已知关于x的二次函数y=kx2+(k-1)x+k-1最小值为0,求k的值 在平面直角坐标系中,已知点A(-3,N)和点B(1-M,M-3),若点A与点B关于Y轴对称,则M= N= 地球上空气的作用有什么样? 已知二次函数y=x²+(2k+1)x+k²-1的最小值是0,求k的值需要一些大致的过程 影响生物生活的环境因素分为两大类:一类是〔 〕,如阳光、空气等;另一类是〔 〕,是指影响生物生存的其他 地球上的生命有哪些作用 二次函数y=x方+(2k+1)x+k方-1的最小值是0,求实数K的值.我30号要交考卷啊 在平面直角坐标系中,点A(-3,m)与点B(n,1)关于x轴对称,则m+n= 某村共有六块小麦试验田,每块试验田今年的收成与去年相比情况如下(增产为正,减产为负,单位:kg)55,-40,10,-16,27,-5 一块小麦实验田今年产量4600千克,比去年增产600千克,今年比去年增产几成?快
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn