helpers.vb

一个好用的正则表达式验证程序源码,可以参考

Imports System.Collections.Generic

Module Helpers
   Sub SetTooltipsAndHelpMessages(ByVal frm As Form, ByVal tooltip As ToolTip, ByVal helpProv As HelpProvider)
      For Each ctrl As Control In GetChildControls(frm)
         ' Retrieve the tooltip
         Dim text As String = tooltip.GetToolTip(ctrl)
         ' Convert