|
发表于 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
挑了不少刺...爽乎? |
|