返加值?

[nplgy]

有一个查询用户的WinForm窗体fmUser,现有多个WinForm窗体如fmA、fmB都需要调用fmUser用得到User_id的值，请问大虾,怎么办？

[chenc82]

窗体1:fmuser
Public User_id As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim f2 As Form2 = New Form2(Me) '直接把Form对象传递到Form2
f2.Show()
Me.Hide()
End Sub



窗体2:FmA

Private User_id as Integer
Private frm1 as fmUser
Public Sub New(fm as fmUser)
User_id = frm.User_id '从窗体1向窗体2传值
fm1=fm
End Sub

Private Button_OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
fm1.User_id = User_id '从窗体2向窗体1返回值
fm1.Show()
Me.Close()
End Sub

[huguohong]

我对nplgy (老李) 提出的问题的意思不是非常清楚，
我仅根据我的理解发表一些看法：

有多个窗体（类）（如 frmA, frmB, frmC......等）需要获得某个类(如 frmUser)的一些信息

我建议为 frmUser类 定义一个委托，当UserId 发生变化时，广播到已经登记的外部对象。
这样做的好处是，不论有多少客户窗体（或类，如 frmA,frmB,frmC....），均不用更改程序结构。

样例：



public class C_User
public delegate UserChangeEventHandler(byval sender as object, byval strUserId as string)




end Class

[huguohong]

'上面样例有误，续--------


Public Class C_User

'定义委托

Public Delegate Sub UserChangeEventHandler(ByVal sender As Object, ByVal strUserId As String)

'定义事件

Public Event UserChange As UserChangeEventHandler

'广播事件

Protected Sub OnUserChange(ByVal strUserId As String)
RaiseEvent UserChange(Me, strUserId)
End Sub


End Class

Public Class C_A 'C_B,C_C,C_D一样处理
Public Sub New(ByVal clsUser As C_User)

AddHandler clsUser.UserChange, New C_User.UserChangeEventHandler(AddressOf OnUserChange)
End Sub

Private Sub OnUserChange(ByVal sender As Object, ByVal strUserId As String)

End Sub

End Class

[mqmmx]

我是这样做的，在主窗体里加一个状态条(StatusBar)用来保存登入时的信息(用户名等)，这样的方法是不是可行。

[nplgy]

我也想到这个办法，就是在主窗口设一个变量来保存是fmA还是fmB调用。但是若fmA和fmB都打开且调用fmUser,就不行了

[阿云ivan]

建一个module，然后定义个全局变量，把你需要保存的信息写进去，需要时进行调用就可！

[BlueLevin]

不太清楚你的程序的结构。但是把一个需要大量引用的数据放在窗体中是不方便的。在一个应用程序中可能会有很多数据需要大量地被重复使用。你可以建一个类来管理它们。

比如：当fmUser得到User_id时，你将User_id保存到某个类中。然后保存到什时间，可以被哪些对像调用，用什么方式销毁，都将是非常方便的。

[捏造的信仰]

不推荐楼主这样的方式。我觉得你应该构造一个UserManager类，相关窗体持有对它的引用。