Question

所以我有一个ping设备的工具，全部编码和工作。但是，我想做出改变，并想看看是否有一种简单/聪明/更好的方法来做到这一点。

当前代码：

resolvers += "elasticsearch-releases" at "https://maven.elasticsearch.org/releases"
libraryDependencies += "org.elasticsearch.plugin" %% "shield" % "2.0.1"

现在，我想添加一个RightClick选项，并且只有我知道的方法是对代码进行完全覆盖，这基本上是重新编码所有内容。这就是我工作的方式，但是想改变以便更容易改变一切。

 Private Sub BKUPingIcon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BKUPingIcon.Click
    Shell("ping " & BKUBox.Text & " -t", AppWinStyle.NormalFocus)
    Try
        If My.Computer.Network.Ping(BKUBox.Text) Then
            'Online
            If GetPingMs(BKUBox.Text) < 125 Then
                'Good ping
                BKUPingIcon.Image = My.Resources.PingUP
            Else
                'Bad ping
                BKUPingIcon.Image = My.Resources.PingHIGH
            End If
        Else
            BKUPingIcon.Image = My.Resources.PingDOWN
            'Offline
        End If
    Catch
    End Try
End Sub

有更好的方法吗？

提前致谢

Answer 1

看起来代码是相同的，除了Shell（）调用，所以：

更好的完成Click事件的方法？

1 个答案: