Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Zwracanie wartości przez Formatkę
anonim




Typ: Nie zarejestrowany
Zwracanie wartości przez Formatkę

Chciałbym zrobić coś takiego:
Z poziomu programu wywołuję funkcję, która wyświetla modalną formatkę. W formatce tej zmieniam jakieś ustawienia (np. język), po czym zmiana ta zostaje przekazana funkcji wywołującej (np. wartość typu Integer = 1). I oczywiście funkcja zwraca mi tą wartość do programu.
Kiedyś w Delphi udało mi się to bez problemu... a jakoś w VB nie mogę dać rady.

Proszę o jakieś wskazówki
Scoody

25-10-2002 22:51
  
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

05-11-2004 13:50
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
Knight Lore''FC




Typ: neutral
Postów: 240
Zarejestrowany: Jan 2003

Nie za bardzo rozumiem... u mnie to nie dziala...
Prosciej jest chyba ustawic w module GLOBAL... a moze nie

06-11-2004 00:45
Pokaż profil Knight Lore  Wyślij email do Knight Lore        1065423
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

A co DOKŁADNIE nie działa i czym się różni Global od Public, jeśli kod jest w module?


_____________________________________________
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

06-11-2004 12:39
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1