helpers.vb

来自「一个好用的正则表达式验证程序源码,可以参考」· VB 代码 · 共 8 行

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