将代码放入单独的文件中

Placing Code Into Separate Files


我正在处理的一个应用程序变得非常大(代码方面),我很想找到一种方法来整理它。我到处搜索,但找不到有用的解决方案。

在下面的例子中,我有一个按钮点击事件。

        If newestversion.Contains(currentversion) Then
        Label4.Text = "You have the latest version"
        Label4.ForeColor = Color.Green
        BtnUpdate.Visible = False
        PictureBox2.Image = My.Resources.happy_face
    Else
        Label4.Text = "New Version Available!"
        Label4.ForeColor = Color.Red
        BtnUpdate.Visible = True
        PictureBox2.Image = My.Resources.sad_face
    End If

我喜欢做的事情是这样的:

    Private Sub btnDefAdd_Click(sender As Object, e As EventArgs) Handles btnDefAdd.Click
'Link code from external file

        End If End Sub

问题显然是试图找出如何做到这一点,如果有的话。 任何人有任何想法或能够指出我正确的方向吗?
谢谢

根据对您问题的评论,一种选择是使用 VB.Net 的 partial class 支持将代码拆分为文件。

首先制作你的表格 class 部分:

Partial Public Class Form1

接下来创建一个新的 class 文件,名为 Form1Impl,将您要分离的代码放入:

Partial Public Class Form1

    Sub HandleDefAdd()
        If newestversion.Contains(currentversion) Then
            Label4.Text = "You have the latest version"
            Label4.ForeColor = Color.Green
            BtnUpdate.Visible = False
            PictureBox2.Image = My.Resources.happy_face
        Else
            Label4.Text = "New Version Available!"
            Label4.ForeColor = Color.Red
            BtnUpdate.Visible = True
            PictureBox2.Image = My.Resources.sad_face
        End If
    End Sub

End Class

现在您可以从事件处理程序中调用处理程序实现,就好像它在同一文件中一样:

Private Sub BtnDefAdd_Click(sender As Object, e As EventArgs) Handles BtnDefAdd.Click
    HandleDefAdd()
End Sub