将代码放入单独的文件中
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
我正在处理的一个应用程序变得非常大(代码方面),我很想找到一种方法来整理它。我到处搜索,但找不到有用的解决方案。
在下面的例子中,我有一个按钮点击事件。
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