- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 全局代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187208)
-- 发布时间：2023/6/30 11:41:00
-- 全局代码
Dim IPAdress As System.Net.IPAddress= System.Net.Dns.GetHostByName(HostName).AddressList.GetValue(0) \'获得本机的IP
Dim HostName As String = System.Net.Dns.GetHostName \'获得本机的机器名
Dim s3 As String =IPAdress.Tostring
Dim s As String =s3.SubString(s3.Length -3,3)
Public fwq As String
Select Case s
Case "101"
fwq ="1"
Case "103"
fwq ="2"
Case "105"
fwq ="3"
Case "107"
fwq ="1备"
Case "109"
fwq ="2备"
Case "111"
fwq ="3备"
Case "115"
fwq ="库1"
Case "116"
fwq ="库2"
Case Else
fwq =""
End Select
此主题相关图片如下：d8e621b53065a843df0d4d60e98c33c.png
上述代码在全局代码中出现错误提示，应该怎么写？
-- 发布时间：2023/6/30 11:49:00
--
是不 是只需要在全局代码中声明
public fwq as string
其他代码写在项目事件中afteropenproject事件中就能获取到fwq的值？
我这样修改后能获取服务器的值了
-- 发布时间：2023/6/30 12:08:00
--
这种代码不能放到全局代码里，除了Public fwq As String，其它都放到AfterOpenProject事件
-- 发布时间：2023/6/30 12:26:00
--
嗯，我后来按照你说的这样做了