[vb.net]怎樣pass value from form to form？

我要的是windows application的。
上網查詢了很久，都找不到最正確的solution。
唯有來這邊求救，請大大指教。

titanhrk

这个问题我也有想过，我是把variable换成shared，例如A form里的shared variable，B form是直接可以用的。

A form
Public Shared temp(8) As String

B form

Afrm.temp(0) = tbMonth.Text
Afrm.temp(1) = tbAmountE.Text
Afrm.temp(2) = tbBillE.Text
Afrm.temp(3) = tbAmountW.Text
Afrm.temp(4) = tbBillW.Text
Afrm.temp(5) = tbAmountG.Text
Afrm.temp(6) = tbBillG.Text
Afrm.temp(7) = cb_divide.Text

这是我乱七八糟的状况下想出来的解决方法，因为那时没时间了。。。不知道能不能帮到你。

原帖由 titanhrk 于 31-10-2006 06:24 PM 发表
这个问题我也有想过，我是把variable换成shared，例如A form里的shared variable，B form是直接可以用的。

A form
Public Shared temp(8) As String

B form

Afrm.temp(0) = tbMonth.Text
Afrm.temp(1) ...

問一個白癡問題><
怎樣在multiline text box print new line？
vb.net不可以用/n咩？

tensaix2j

原帖由 Angel琪琪 于 31-10-2006 05:46 PM 发表
我要的是windows application的。
上網查詢了很久，都找不到最正確的solution。
唯有來這邊求救，請大大指教。

不明白楼主的问题。。
每个form是个class,form的variable就是它的attribute。。

如果你
dim a as new form2
dim b as new form2

这里有两个form2 的object
那你要拿object a 的variable就
a.variable..但Variable要declare as public 啦。。

public Variable As Integer

不然就写个get function来拿咯。。

Public Function getAVariable() As Integer
       Return Variable
End Function

也就是一般oo getset 的get

[ 本帖最后由 tensaix2j 于 31-10-2006 07:39 PM 编辑 ]

tensaix2j

原帖由 Angel琪琪 于 31-10-2006 07:08 PM 发表

問一個白癡問題><
怎樣在multiline text box print new line？
vb.net不可以用/n咩？

vbNewLine

原帖由 titanhrk 于 31-10-2006 06:24 PM 发表
这个问题我也有想过，我是把variable换成shared，例如A form里的shared variable，B form是直接可以用的。

A form
Public Shared temp(8) As String

B form

Afrm.temp(0) = tbMonth.Text
Afrm.temp(1) ...

原帖由 tensaix2j 于 31-10-2006 07:38 PM 发表



vbNewLine

感謝兩位大大，成功了。

Dim response As MsgBoxResult
        MsgBox("Are you sure you want to cancel this order?", MsgBoxStyle.OKCancel, "Order cancellation")
        If response = MsgBoxResult.Cancel Then
            Exit Sub
        ElseIf response = MsgBoxResult.OK Then
            MsgBox("You have cancelled this order", MsgBoxStyle.Information, "Order cancelled")
        End If

再問一個，msgbox的result不是這樣拿的嗎？
我run了，它不理我。
cancel了還是繼續走，沒有exit sub。
ok了，也沒有別的box出來。
我code錯了嗎？

waiting_hoh

Dim response As MsgBoxResult
        MsgBox("Are you sure you want to cancel this order?", MsgBoxStyle.OKCancel, "Order cancellation")
        If response = MsgBoxResult.Cancel Then
            Exit Sub
        ElseIf response = MsgBoxResult.OK Then
            MsgBox("You have cancelled this order", MsgBoxStyle.Information, "Order cancelled")
        End If


想知道下。。。。=.=a

response 那里来的？

tensaix2j

原帖由 Angel琪琪 于 2-11-2006 03:50 PM 发表
Dim response As MsgBoxResult
        MsgBox("Are you sure you want to cancel this order?", MsgBoxStyle.OKCancel, "Order cancellation")
        If response = MsgBoxResult.Cance ...

加这个好不？

response =  msgbox ("Are you su....

[ 本帖最后由 tensaix2j 于 3-11-2006 08:25 AM 编辑 ]