- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [原创]地址选择器 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=84795)
-- 发布时间：2016/5/10 18:36:00
-- [原创]地址选择器
根据空格区别
一共七行
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:地址选择器.rar |
-- 发布时间：2016/5/10 18:38:00
--
BeforeConnectOuterDataSource事件代码：
Dim sr As String = ApplicationPath & "config.ini"
If FileSys.FileExists(sr) Then
Dim fl() As String = FileSys.ReadAllText(sr).Split(vbCrLf)
If e.Name = "数据源" Then
e.ConnectionString = fl(1).Replace("链接","").Replace(":","")
End If
UpdatePath = "http://" & fl(4) & ":" & fl(6)
End If
-- 发布时间：2016/5/10 18:38:00
--
谢谢
-- 发布时间：2016/5/10 18:39:00
--
BeforeOpenProject
Dim proc As new Process
Dim x As String = System.Environment.CurrentDirectory & "\\project\\地址选择器.exe"
If FileSys.FileExists(x) Then
proc.File = x
proc.Start
proc.WaitForExit
End If
-- 发布时间：2016/5/10 19:36:00
--
mark 调用exe