怎样向VBIDE中添加工具窗体?

王朝c#·作者佚名  2006-12-17
窄屏简体版  字體: |||超大  

怎样向VBIDE中添加工具窗体?

怎样向VBIDE中添加工具窗体? 怎样向VBIDE中添加工具窗体?

首先请创建一个用户文档.设置属性ContinuousScroll 为假 ,ScrollBars为0 在窗体中添加你所需要的控件以及在代码中添加你所需要的代码.

Option Explicit

Private Sub lstTag_DblClick()

On Error Resume Next

Dim cm As CodeModule

Set cm = MVBI.SelectedVBComponent.CodeModule

Dim n As Long, n1 As Long, n2 As Long, n3 As Long

If lstTag.ListCount = 0 Then

Me.reftag MVBI.ActiveCodePane.CodeModule

Exit Sub

End If

If cm.Find(''>' + lstTag.Text + '<', n, n1, n2, n3) Then

cm.CodePane.Window.SetFocus

cm.CodePane.SetSelection n, n1, n2, n3

cm.CodePane.TopLine = n

cm.CodePane.Window.SetFocus

DoEvents

Else

WriteLine '无法查找标签[' + lstTag.Text + '],请确保格式为: '>标签名称< ', vbRed

End If

End Sub

Private Sub lstTag_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 And Shift = 1 Then

Me.reftag MVBI.SelectedVBComponent.CodeModule

End If

End Sub

Private Sub UserDocument_Resize()

On Error Resume Next

lstTag.Top = 0

lstTag.Left = 0

lstTag.Width = UserDocument.Width

lstTag.Height = UserDocument.Height

End Sub

Public Sub show()

gwinTag.Visible = True

End Sub

Public Sub hide()

gwinTag.Visible = False

End Sub

Public Sub reftag(cm As CodeModule)

Dim Tmp, ary() As String, tx As String

On Error Resume Next

tx = cm.Lines(1, cm.CountOfLines)

ary = Split(tx, ''>')

Dim lc1 As Long, lc2 As Long

lstTag.Clear

For Each Tmp In ary

If Left(Tmp, 1) <> ''' Then

lc1 = InStr(Tmp, '<')

lc2 = InStr(Tmp, ' ')

If lc1 < lc2 And lc1 > 0 Then

lstTag.AddItem Mid(Tmp, 1, InStr(Tmp, '<') - 1)

End If

End If

Next

Dim tbx As String

If lstTag.ListCount = 0 Then

tbx = '该代码模块中没有添加标签,要添加请按此格式:' + vbNewLine + ''>标签名称< '

Else

tbx = '标签管理器-目前[' + cm.Parent.Name + ']拥有有效标签' & lstTag.ListCount & '个, 更新时间:' & Time

End If

lstTag.ToolTipText = tbx

WriteLine tbx, vbBlue

End Sub

Public gwinTag As VBIDE.Window '承载gTag的窗体.

Set gwinTag = VBI.Windows.CreateToolWindow(aitmp, App.ProductName + '.ucTag', '标签管理器', 'T_a_g_M_a_n_a_g_e_r', gTag)

Set TAg = AddToMenu('刷新/显示标签', MyFunName, 459)'把事件吸取到工具条MyFunName中.图标的资源位置为 459号图片!

aitmp是本插件的名称.

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航