這樣啊好像沒這樣寫軟件的哦,實在要就先unload在load 吧.不過你最好看下下面的代碼.Dim Lint_I As Integer
For Lint_I = 0 To Lobj_frm.Controls.Count - 1 If Lobj_frm.Controls(Lint_I).Tag <> "-1" Then If TypeName(Lobj_frm.Controls(Lint_I)) = "TextBox" Then Lobj_frm.Controls(Lint_I).Text = Empty End If If TypeName(Lobj_frm.Controls(Lint_I)) = "ComboBox" Then Lobj_frm.Controls(Lint_I).Clear End If End If DoEvents Next
For Lint_I = 0 To Lobj_frm.Controls.Count - 1
If Lobj_frm.Controls(Lint_I).Tag <> "-1" Then
If TypeName(Lobj_frm.Controls(Lint_I)) = "TextBox" Then
Lobj_frm.Controls(Lint_I).Text = Empty
End If
If TypeName(Lobj_frm.Controls(Lint_I)) = "ComboBox" Then
Lobj_frm.Controls(Lint_I).Clear
End If
End If
DoEvents
Next
怎么在WORD中找到所需要的书签?
如何在VB中控制数据输出到WORD中的书签内?
请高手指点,谢谢先~~