AmicForVB插件(1.1.5) 09年1月14日更新

amicy

经常用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, 下载次数: 4218)

2010-4-16 17:24 上传

点击文件名下载附件
[ 本帖最后由 sgdjr2003 于 2009-2-14 19:04 编辑 ]

ben1222

怎么做到成为vb插件的?
不过做的真的很好

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

[ 本帖最后由 ben1222 于 2006-3-21 18:32 编辑 ]

amicy

谢谢你提出的 错误!
以前我发现这错误,本来改 后来忘记了

amicy

这是修改if ……then 后面+注释的BUG  大家要下载就下载这个

[ 本帖最后由 sgdjr2003 于 2006-4-1 17:54 编辑 ]

ben1222

教教我 怎么把程序做成像这样的插件

还有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

挑了不少刺...爽乎?

amicy

连字换行 我是故意没有去搞   在是在声明或者 函数头会出现 着情况   我不想就为了这给写一些判断代码  ，VB本来就是占很少的内存的IDE环境
挑了的刺越多也好
不过  这个我就不想去修改了。
还有其他的就提出来吧

amicy

open...close那就肯定不能 做缩进 ， 一些人习惯一开始打开文件  到了程序结束才Close   这怎么缩进 。。

VBGood007

VB完全版有这样的模版，并且有接口，可以实现这样插件

amicy

2楼的 你提出 来的错误全部改好  
还有错误尽管提出！

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

[ 本帖最后由 sgdjr2003 于 2006-4-1 17:55 编辑 ]

amicy

AmicForVB插件(1.1.5)_最后一次更新.
实例:Sample\

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