将类Public Sub调用为表单

时间:2015-08-03 16:45:37

标签: vb.net algorithm

我在Forms中创建了一个Application。我想将逻辑分解为类。这应该很简单。下面是我的方法/公共子。我想把它称为我表格中的一个按钮。我不知道该怎么做。期待你的帮助。

Public Sub Test()
    Using conn = New OracleConnection(ODB)
        conn.Open()
        Me.ODB.Update(dt)
        Me.myDataSet.AcceptChanges()
        conn.Close()
    End Using
End Sub
Private Sub Update_Click(sender As System.Object, e As System.EventArgs) Handles Update.Click, Update.Click
     Test()
End Sub

2 个答案:

答案 0 :(得分:0)

你的问题对我来说不是那么清楚,但也许那是你的意图(?):

Public Class myOtherClass
Implements IDisposable ' optional
Public Sub Test()
    Using conn = New OracleConnection(ODB)
        conn.Open()
        Me.ODB.Update(dt)
        Me.myDataSet.AcceptChanges()
        conn.Close()
    End Using
End Sub
End Class

Public Class Form2
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim myClassInstance As New myOtherClass ' create an instace of other class
    myClassInstance.Test() 'call the requested sub
    myClassInstance.Dispose() ' optioanl - if you implmented IDisposable in 'myOtherClass' you can dispose it when you finished using it 
End Sub
End Class 

答案 1 :(得分:0)

把你的:

Public Sub Test()
    Using conn = New OracleConnection(ODB)
        conn.Open()
        Me.ODB.Update(dt)
        Me.myDataSet.AcceptChanges()
        conn.Close()
    End Using
End Sub

在一个模块中,而不是一个类可以完成这项工作。