webbrower 中嵌入网页,在鼠标移动td时td 里面换成文本框,当改变文本框内容时,移开鼠标时文本框消失,激发一个事件(把改动的数据存入数据库中)这个事件由程序来完成不要用脚本
解决方案 »
- VB文本框限制问题
- 急!请问在VB中如何快速地将EXCEL中的数据赋值给一个数组,如果用循环去赋值太慢了!谢谢大家!
- vb写的com+在win2000下注册后运行正常,但是在win2003上注册以后,根本无法运行,请问是什么原因呢?
- DataGrid读取数据出问题了,大家帮忙看看
- 怎么样在普能打印机打印条形码报表
- 关于mshflexgrid的additem方法
- 谁有安装visual studio.net的经验?
- 用VB+ACCESS学着做了个合同系统,运行老出错,请高手帮忙测试下!谢谢!在线等.............
- !!!!!!!!!!!!附加题!!!!!!送分的,看你能拿多少??
- 在线等候----VB中怎么动态产生菜单???
- 一个listview控件有5列,我想删除其中的第2和第4列(包括lv的Head和Item),怎么实现啊?
- 此按钮调用彼按钮
'需要添加WebBrowser控件并引用Microsoft HTML Object LibraryDim WithEvents webDoc As HTMLDocument
Dim webTag As Object
Dim WithEvents objTD As HTMLTableCell, WithEvents objText As HTMLInputTextElement
Dim lengthTag As Integer
Dim countTag As Integer
Dim bMoved As BooleanPrivate Sub Form_Load()
web.Navigate "about:blank"
web.Document.write "<table width=100% border=1><tr><td id=test align=center>TD里原内容</td></tr></table>"
Set webDoc = web.Document
lengthTag = webDoc.All.length - 1
For countTag = 0 To lengthTag
Set webTag = webDoc.All.Item(countTag)
If LCase(webDoc.All.Item(countTag).tagName) = "td" Then
If webTag.Id = "test" Then
Set objTD = webTag
End If
End If
Next
End SubPrivate Sub objTD_onmousemove()
If Not bMoved Then
bMoved = True
web.Document.body.innerHTML = "<table width=100% border=1><tr><td id=test align=center><form id=form1 name=form1 method=post><input name=textfield type=text maxlength=10></form></td></tr></table>"
Set webDoc = web.Document
lengthTag = webDoc.All.length - 1
For countTag = 0 To lengthTag
Set webTag = webDoc.All.Item(countTag)
If LCase(webDoc.All.Item(countTag).tagName) = "input" Then
If webTag.Name = "textfield" Then
Set objText = webTag
End If
End If
Next
End If
End SubPrivate Sub objText_onmouseleave()
If objText.Value <> "" Then
Debug.Print objText.Value
'此处加入保存到数据库的代码即可
web.Document.body.innerHTML = "<table width=100% border=1><tr><td id=test align=center>输入完毕</td></tr></table>"
End If
End Sub