VB 怎么设置 点击一个按钮后，文本框先显示“正在启动，请稍后” 然后·······

需要用到计时器，逻辑关系是这样的：
点击按钮，文本框.Text="正在启动，请稍后"
运行代码中加入，文本框.Text="已运行"，同时启动计时器
计时器开始计时，5秒后时间到，文本框.Text=""追问

还要判断宽带是否已经连接呢？

追答

判断是否能上网应该分两步处理，先判断本地连接或本地无线网是否畅通，然后判断是否能上网。
这是因为判断外网是否通畅速度慢，如果局域网都不通直接判断外网会造成不必要的时间浪费。

追问

老大，你直接给我一个代码还不中嘛~~~ 让我这么一遍遍的追问不好玩吧

追答

你也没说要代码啊，再说我怎么知道你要干什么？这么简要的需求，写代码肯定驴唇不对马嘴。你也没说用VB的那个版本？直接要代码？咋给你？

追问

好吧，之前是我错了~~~
我用VB6.0 然后就是跟我说的差不多了 点击按钮后，宽带开始自动连接 然后文本框2 显示“正在连接·请稍后” 我的要求：就是检测到宽带联通后，文本框2抹去“正在连接”显示为“已连接”过几秒后抹去“已连接”这几个字

追答

哈，有人帮你写了。赶紧看看。
真不明白，怎么突然钻出来这么多用VB6的。为什么呢？奇怪。VB.Net不好用吗？
我已经从VB6改用.Net，VB6已经被抛弃了。
只能给你.Net的代码了：
''' 检查系统内是否有可用网络，如果有则获取其MAC信息
''' 发现可用连接，则返回其MAC地址，否则返回空值""
''' 只对应有线和无线两种
Friend Function GetUpLinkMAC() As String
Dim computerProperties As IPGlobalProperties = IPGlobalProperties.GetIPGlobalProperties()
Dim nics As NetworkInterface() = NetworkInterface.GetAllNetworkInterfaces()
'Console.WriteLine("Interface information for {0}.{1} ", computerProperties.HostName, computerProperties.DomainName)
Dim adapter As NetworkInterface
For Each adapter In nics
If (adapter.NetworkInterfaceType = NetworkInterfaceType.Ethernet OrElse
adapter.NetworkInterfaceType = NetworkInterfaceType.Wireless80211) AndAlso
adapter.OperationalStatus = OperationalStatus.Up Then '有线或无线连接可用时
Dim properties As IPInterfaceProperties = adapter.GetIPProperties()
Return adapter.GetPhysicalAddress().ToString()
End If
Next adapter
Return ""

'If My.Computer.Network.IsAvailable = True Then
' MsgBox("网络已连接。")
'Else
' MsgBox("网络未连接。")
'End If

End Function

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/ryxrvexfy.html