Components\Shared\ClientAPI.vb /**/''' ----------------------------------------------------------------------------- '''<summary> ''' Adds client side body.onload event handler '''</summary> '''<param name="objPage">Current page rendering content</param> '''<param name="strJSFunction">Javascript function name to execute</param> '''<remarks> '''</remarks> '''<history> ''' [Jon Henning] 8/3/2004 Created ''' [Jon Henning] 4/25/2005 registering dnn namespace when this function is utilized '''</history> ''' ----------------------------------------------------------------------------- ''' '''加载到客户端Body的事件处理中 PublicSharedSub AddBodyOnloadEventHandler()Sub AddBodyOnloadEventHandler(ByVal objPage As Page, ByVal strJSFunction AsString) /**/''' ----------------------------------------------------------------------------- '''<summary> ''' Allows any module to have drag and drop functionality enabled '''</summary> '''<param name="objTitle">Title element that responds to the click and dragged</param> '''<param name="objContainer"></param> '''<remarks> ''' This sub also will send down information to notify the client of the panes that have been defined in the current skin. '''</remarks> '''<history> ''' [Jon Henning] 8/9/2004 Created '''</history> ''' ----------------------------------------------------------------------------- '''允许容器拖拽 PublicSharedSub EnableContainerDragAndDrop()Sub EnableContainerDragAndDrop(ByVal objTitle As Control, ByVal objContainer As Control, ByVal ModuleID AsInteger) /**/'''设置图片属性 PrivateSharedSub SetImageProperties()Sub SetImageProperties(ByVal objControl As Control, ByVal strImage AsString, ByVal strToolTip AsString, ByVal strAltText AsString) /**/'''设置控件属性,支持web form 控件与 Html控件 PrivateSharedSub AddAttribute()Sub AddAttribute(ByVal objControl As Control, ByVal strName AsString, ByVal strValue AsString) /**/'''设置控件样式 PrivateSharedSub AddStyleAttribute()Sub AddStyleAttribute(ByVal objControl As Control, ByVal strName AsString, ByVal strValue AsString)