VB Ping 遇到点问题

mountainking1986 2007-12-24 02:34:29
Option Explicit
Dim X1 As Long, Y1 As Long

'开始Ping
Private Sub Command1_Click()
'如果值都是合理的,开始ping
If ValuesFaild = True Then
Command2_Click
Command1.Enabled = False
Command3.Enabled = True
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Graphic.ScaleHeight = Val(Text3)
'设置IP
SetIp Text1
Label1(0).Caption = Text3
Timer1.Interval = Text2
Timer1.Enabled = True
End If
End Sub

'清除结果
Private Sub Command2_Click()
Label4(0).Caption = 0
Label4(1).Caption = Text3
List1.Clear
Graphic.Cls
Graphic.Width = GrapHolder.ScaleWidth
Scroll.Value = 0
Scroll.Max = 0
X1 = 0
Y1 = Graphic.ScaleHeight
End Sub

'停止ping
Private Sub Command3_Click()
Command1.Enabled = True
Command3.Enabled = False
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Timer1.Enabled = False
End Sub

'初始化时清除结果
Private Sub Form_Load()
Command2_Click
End Sub

'Graphic要支持滚动
Private Sub Scroll_Change()
Graphic.Left = -Scroll.Value
End Sub

'Ping返回时间
'写入Log
Private Sub Timer1_Timer()
Dim Ret As PingReturn
Dim X2 As Long, Y2 As Long
Ret = Pinger(20, Val(Text3))
List1.AddItem Ret.Discriptionn
List1.ListIndex = List1.ListCount - 1
X2 = X1 + 2
Y2 = Graphic.ScaleHeight - Ret.Ping
If Ret.Errors = True And Check1.Value = 1 Then Exit Sub
If Label4(0).Caption < Ret.Ping Then Label4(0).Caption = Ret.Ping
If Label4(1).Caption > Ret.Ping Then Label4(1).Caption = Ret.Ping
Graphic.Line (X1, Y1)-(X2, Y2), vbRed
X1 = X2
Y1 = Y2
CalcFieldandScroll X1 + 4
End Sub

'看值是否有效(这里只看一下是否为空)
Function ValuesFaild() As Boolean
If Len(Text1) = 0 Then MsgBox "Can't start with out an ip adress!", vbInformation + vbOKOnly, "Error": Text1.SetFocus: Exit Function
If Len(Text2) = 0 Then MsgBox "Can't start with out an interval (Defuald : 1000)", vbInformation + vbOKOnly, "Error": Text2.SetFocus: Exit Function
If IsNumeric(Text2) = False Then MsgBox "Can't start with out an falid interval (Defuald : 1000)", vbInformation + vbOKOnly, "Error": Text2.SetFocus: Exit Function
If Len(Text3) = 0 Then MsgBox "Can't start with out an max ping value (Defuald : 1000)", vbInformation + vbOKOnly, "Error": Text2.SetFocus: Exit Function
If IsNumeric(Text3) = False Then MsgBox "Can't start with out an falid max ping value (Defuald : 1000)", vbInformation + vbOKOnly, "Error": Text2.SetFocus: Exit Function
ValuesFaild = True
End Function

'计算
Function CalcFieldandScroll(WidthNeed As Long)
Dim Ret As Boolean
If Scroll.Value + 20 > Scroll.Max Then Ret = True
If WidthNeed > Graphic.ScaleWidth Then
Graphic.Width = WidthNeed
Scroll.Max = Graphic.Width - GrapHolder.ScaleWidth
DoEvents
Scroll.Refresh
If Ret = True Then Scroll.Value = Scroll.Max
End If
End Function


这个是我网上找的代码

在运行的时候出了点问题


SetIp Text1

这个有问题

但是我改成
Set Ip= Text1.text

也不行

是怎么错了

还是没有引用什么东西哦??
...全文
78 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
mountainking1986 2007-12-24
  • 打赏
  • 举报
回复
没有人回???

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧