然后等程序运行后文本框显示“已运行” 几秒钟后自动将文字清除?????
先上20分,如果解决再给30分
追问不起了 ,
我刚接触就是用的VB6,不是不喜欢VB NET哦 嘿嘿
下面的那个不太接近我的 哦
他的给了一个时间控件。还缺一个检测宽带的呀
点击按钮,文本框.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
Private Sub Command1_Click()
Text1 = "正在启动,请稍后"
'你的程序
Text1 = "已运行"
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Text1 = ""
End Sub
先将timer1的enabel属性设为false哈