我怎样才能更好地进行跨页发布?

Question

该项目使用"跨页发布"(p.s. 1(。 但这从单向网页更改为双向传输价值。每次都必须转换为上一页上的程序类型。 编程会变得太长，维护人员也会看到痛苦(维护也是我(; 我想问一下如何更好地编写程序？谢谢。

If TypeOf Me.PreviousPage Is PP001 Then
ID = DirectCast(Me.PreviousPage, PP001).ID
ElseIf TypeOf Me.PreviousPage Is PM002 Then
ID = DirectCast(Me.PreviousPage, PP002).ID
ElseIf TypeOf Me.PreviousPage Is PM003 Then
ID = DirectCast(Me.PreviousPage, PP003).ID
ElseIf TypeOf Me.PreviousPage Is PP004 Then
ID = DirectCast(Me.PreviousPage, PP004).ID
ElseIf TypeOf Me.PreviousPage Is PP005 Then
ID = DirectCast(Me.PreviousPage, PP005).ID
ElseIf TypeOf Me.PreviousPage Is PP006 Then
ID = DirectCast(Me.PreviousPage, PP006).ID
ElseIf TypeOf Me.PreviousPage Is PP007 Then
ID = DirectCast(Me.PreviousPage, PP007).ID
ElseIf TypeOf Me.PreviousPage Is PP008 Then
ID = DirectCast(Me.PreviousPage, PP008).ID
ElseIf TypeOf Me.PreviousPage Is PP009 Then
ID = DirectCast(Me.PreviousPage, PP009).ID
End If

p.s.1：https：//learn.microsoft.com/en-us/previous-versions/aspnet/ms178139(v=vs.100(？redirectedfrom=MSDN

p.s.2："ID"是财产，而不是网络控制。

Answer 1

您可以尝试使用反射获取ID值。请在下面尝试。

ID = Me.PreviousPage.GetType().GetProperty("ID").GetValue(Me.PreviousPage, null)