Private Sub ActiveBar21_ToolClick(ByVal Tool As ActiveBar2LibraryCtl.Tool)
Select Case Trim(Tool.Name)
Case "mnuDataInputJiHua"
ActiveBar21.Tools(Tool.ID) = True
End Select
End Sub
我的就可以啊,我的系统是NT4.0+VS6+SP5。没问题。
Select Case Trim(Tool.Name)
Case "mnuDataInputJiHua"
ActiveBar21.Tools(Tool.ID) = True
End Select
End Sub
我的就可以啊,我的系统是NT4.0+VS6+SP5。没问题。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货