marcin_an
Forumowicz
Typ:
neutral
Postów: 1265
Zarejestrowany: Mar 2004
|
|
W module, w którym będziemy mieli nszą funkcję piszemy coś takiego: Public sRetV As String
Function FormInput() As String Dim frmA As New Form1 frmA.Show 1 FormInput = sRetV End Function
Natomiast w kodzie formy coś takiego:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) RetV = Text1.Text End Sub
Oczywiscie rpzy założeniu, ze mamy Form1, a Text1 to textbox na niej .
_____________________________________________ Jedzonko dla Google'a: Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery Moja strona o wszystkim
|