主题：[求助]当前单元格的值

窗口都是以并列窗口形式打开，所有者表都是Main。
窗口中WebBrowser控件解析html文件，将html中的多个div控件绑定foxtable数据表。
另有一个朗读窗口，打开时，窗口中的文本框获取当前单元格的值：
e.Form.controls("TextBox1").text = CurrentTable.value

现在的问题是：
朗读窗口获取的值始终是Main第一个单元格的值，并不是窗口div控件绑定的表的值。
经测试，点击不同窗口div，其绑定表的选定单元格是跟随相应变化的。
怎样获取这个变化的单元格值呢？

具体问题做个例子说明。

你可以判断窗口名等条件判断是哪个表哪个值。

请看实例。谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:2018-2-28当前值.rar

直接记录值，不就行了？或者把坐标、表名等信息用变量记录起来。

Dim str1 As String = args(0)
Dim arr() As String = str1.Split("-")
Dim t As Table = Tables(arr(1))
t.Select(t.RowSel,t.Cols(arr(0)).Index)
vars("val") = t.value
msgbox(vars("val"))

按照楼上蓝老师答复内容修改后，仍存在下列问题：

1、点击校对按钮后，再点击不同的div，校对没有反应；
2、打开“语音朗读”窗口，双击当前div，希望朗读当前div内容。
请老师指教，谢谢！ 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:2018-2-28当前值 (2).rar

1、不明白你校对要执行什么代码。做什么功能。

2、

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:2018-2-28当前值 (2).rar

谢谢田老师！

1、就是点击“校对”按钮以后，直接朗读当前的div内容。

不用打开朗读窗口。

2、另外，老师加的这段函数代码，如果有很多个不同的"编辑窗口"，加黑代码怎样修改？ 

If Forms("语音朗读").opened Then
    Dim web = forms("编辑窗口").controls("webbrowser1").basecontrol
    Forms("语音朗读").controls("TextBox1").text = vars("val")
    Forms("语音朗读").controls("朗读").performclick
    Forms("语音朗读").controls("暂停").checked = True
    web.Document.InvokeScript("eval", new String() {"document.getElementById('" & arr(0) & "').setAttribute('class', '');" })
   
End If

1、你不是可以把朗读窗口隐藏起来？

2、用一个变量，记录当前的webbrowser控件，即可。