VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 59406|回复: 131

[原创] AmicForVB插件(1.1.5) 09年1月14日更新

[复制链接]
 楼主| 发表于 2006-3-21 17:14:18 | 显示全部楼层 |阅读模式
经常用VB,发现VB真有不少缺点,因此写了这插件来弥补!
功能:

1.添加API双击就可
2.迅速整理代码
3.支持鼠标中键
4.可阵列添加控件
5.可输出API的动态DLL函数
6.扩展了VB控件全选不足
7.可生成在XP下的XP样式控件
8.记事本功能
9.可定义快捷文本插入,并能自定义脚本
下载地址: amicSetup1[1].1.5.rar (285.59 KB, 下载次数: 4219)

评分

参与人数 8威望 +33 金钱 +8 人气 +8 收起 理由
jackierobin + 4 + 1 经典东西,感谢了
阳光宝宝 + 1 我很赞同
524904179 + 1 精品文章
410023425 + 8 + 8 + 3 好东西
tonycasablanca + 5 + 1 好!
zhaidoudou123 + 1 我很赞同
zxyzxy12321 + 1 经典啊!
ben1222 + 15 不错

查看全部评分

本帖被以下淘专辑推荐:

发表于 2006-3-21 18:17:29 | 显示全部楼层
怎么做到成为vb插件的?
不过做的真的很好

一个bug:
if...then 后面加注释就整理错误

[ 本帖最后由 ben1222 于 2006-3-21 18:32 编辑 ]
回复 支持 反对

使用道具 举报

 楼主| 发表于 2006-3-21 20:11:05 | 显示全部楼层
谢谢你提出的 错误!
以前我发现这错误,本来改 后来忘记了
回复 支持 反对

使用道具 举报

 楼主| 发表于 2006-3-21 20:45:08 | 显示全部楼层
这是修改if ……then 后面+注释的BUG  大家要下载就下载这个

[ 本帖最后由 sgdjr2003 于 2006-4-1 17:54 编辑 ]
回复 支持 反对

使用道具 举报

发表于 2006-3-21 21:50:14 | 显示全部楼层
教教我 怎么把程序做成像这样的插件

还有bug
Private Declare语句下面2行内如果是Public/Private Function/Sub就会被缩进

不知你这是什么机制缩进的...怎么会把仅含
Public Declare Function InternetOpen Lib "wininet.dll" _
    Alias "InternetOpenA" (ByVal sAgent As String, _
    ByVal lAccessType As Long, ByVal sProxyName As String, _
    ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
的一个模块整理成
Public Declare Function InternetOpen Lib "wininet.dll" _
    Alias "InternetOpenA" (ByVal sAgent As String, _
ByVal lAccessType As Long, ByVal sProxyName As String, _ <-这里凸出来了...让人摸不着头脑
    ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
    ByVal sProxyBypass As String, ByVal lFlags As Long) As Long <-这里还变多了一行

还有open...close为什么不做缩进呢

Private Sub Form_Unload(Cancel As Integer)
    Dim i As Integer
    i = MsgBox("你确定退出吗?", vbYesNo, "退出")
    If i = vbNo Then
        Cancel = 1
    Else
    End <-出现end就缩进不准确了
End If
End Sub

    Global a As Integer <-声明处的这个怎么凹进去了...莫非你只是在dim/private/public/end的时候才前面空0格吗

还有...在if...then之间如果有换行符 _的话就会判断不出来

Public Type FileInform
    fName As String
    fHotStart As Byte
fHotEnd As Byte <-这里怎么凸出来了...莫非你用的是instr(1,lcase(str),"end")
End Type

挑了不少刺...爽乎?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2006-3-21 22:07:22 | 显示全部楼层
连字换行 我是故意没有去搞   在是在声明或者 函数头会出现 着情况   我不想就为了这给写一些判断代码  ,VB本来就是占很少的内存的IDE环境
挑了的刺越多也好
不过  这个我就不想去修改了。
还有其他的就提出来吧
回复 支持 反对

使用道具 举报

 楼主| 发表于 2006-3-21 22:10:32 | 显示全部楼层
open...close那就肯定不能 做缩进 , 一些人习惯一开始打开文件  到了程序结束才Close   这怎么缩进 。。
回复 支持 反对

使用道具 举报

发表于 2006-3-21 23:16:01 | 显示全部楼层
VB完全版有这样的模版,并且有接口,可以实现这样插件
回复 支持 反对

使用道具 举报

 楼主| 发表于 2006-3-21 23:53:26 | 显示全部楼层
2楼的 你提出 来的错误全部改好  
还有错误尽管提出!

来这群还不知道怎么把以前那些文件删掉!

[ 本帖最后由 sgdjr2003 于 2006-4-1 17:55 编辑 ]
回复 支持 反对

使用道具 举报

 楼主| 发表于 2006-3-24 00:06:50 | 显示全部楼层
AmicForVB插件(1.1.5)_最后一次更新.
实例:Sample\

[ 本帖最后由 amicy 于 2009-1-14 23:51 编辑 ]

以前版本的工程属性改到这面板上

以前版本的工程属性改到这面板上

加入个VB模板

加入个VB模板

amicSetup1.1.5.rar

285.59 KB, 下载次数: 3012

AmicForVB插件(1.1.5)_安装程序

评分

参与人数 2威望 +12 收起 理由
sgdjr2003 + 10 我很赞同
ABCDEFA + 2 精品文章

查看全部评分

回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2020-7-11 07:11

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表