以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]按钮  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=129697)

--  作者:江南小镇
--  发布时间:2019/1/4 8:50:00
--  [求助]按钮
老师,我想把下代码改成按钮代码从文本框中获取数据打开QQ交流界面。


If not e.Row.Isnull("qq") Then
Dim Proc As New Process
Proc.File = "tencent://message/?uin=" & e.Row("QQ")
Proc.Start()
e.cancel = True
End If

--  作者:有点甜
--  发布时间:2019/1/4 9:08:00
--  
Dim Proc As New Process
Proc.File = "tencent://message/?uin=" & forms("窗口1").controls("TextBox1").Text
Proc.Start()

--  作者:江南小镇
--  发布时间:2019/1/4 12:44:00
--  
谢谢老师