有时使用form提交内容，需要可视化的一个div的html代码，
操作的技巧是在form的代码中放置一个input[text]元素，然后将这个元素隐藏 type="hidden" ，
form要放置一个提交前检查的执行命令 onsubmit="return CheckInput()"
在checkInput()将div的innerHtml赋值到隐藏的input元素的value属性中,
但前端div里如果有input元素，这些input元素如果改变过，在form的提交时 input元素的value是不会同步更新的，
解决方法如下：
在读取div的innerHtml前增加以下代码：
var elems = document.getElementsByTagName('input')
for (var i = 0; i < elems.length; i++) {
elems[i].setAttribute("value", elems[i].value);
}Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal...
VB 复制文件或文件夹到系统剪贴板'-----------------------------------------------------------模块内容Option ExplicitPrivate Type POINTAPI x As Long y As LongEnd Typ...
Private Function ZToFSAll(ByVal ZT As Long) As String'全存样式'从天,时,分,秒整合为秒Dim T, S, F, M As Integer '天,时,分,秒Dim T1, S1 As Integer '天,时,分,秒Dim M1 As Strin...
Private Sub SaveText_Click()Dim i As LongCommonDialog1.CancelError = TrueOn Error GoTo ErrHandlerCommonDialog1.Filter = "文档文件(*.txt)|*.txt|所有文件(*...
'模块 '模块名称UpdateModule Function UpdateCheck() '升级检查 Dim NUrl As String Dim NFile As String Dim ExeLen As String Dim ServerUrl as string ServerUr...
'窗体 Private WithEvents Cdf As Cls_DownLoad Private Sub Form_Load() Set Cdf = New Cls_DownLoad End Sub Private Sub Cdf_entDLFileDowning(sRemot...