Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Cos dla zawodowców...
anonim




Typ: Nie zarejestrowany
Cos dla zawodowców...

Kto mi powie jak ma wyglądac kod programu, w którym po naciśnięciu czarnego krzyżyka na przycisku zamknij w rohu okna oprócz "unload " formy głownej Basic doonał "Unload" wszystkich innych okiemn dialogowych wchodzących w sklad programu.
Za odpowiedź z góry uprzejmie dziękuję

06-12-2002 21:25
  
anonim




Typ: Nie zarejestrowany
Nie do końca zrozumiałęś o co mi chodzi...

...Ale wiem już co trzeba było zrobic - naprowadziłęś mnie na jedna rzecz. Dziękuję.

07-12-2002 17:53
  
NetMazy
..:: NetMazy ::..



Typ: neutral
Postów: 14
Zarejestrowany: Nov 2002

to jak już wpadłeś na rozwiązanie to może byś się podzielił co ?

09-12-2002 14:02
Pokaż profil NetMazy  Wyślij email do NetMazy        2277449
anonim




Typ: Nie zarejestrowany
No skoro tak piszesz

Dla Obiektu Form domyślną procedurą jest "load", ale oprócz tego istnieje jeszcze unload. Teraz wystarczy dla tej proceduru napisac kod, który w zależności od tego co poczyni użytkownik, albo zamknie program, albo otworzy inne okienko programu. Oczywiście wymaga to dopracowania, bowiem można uzyskac efekt zupełnie przeciwny od zamierzonego. W każdym razie jeśli admin / twórca strony wyrazi zgode to z miłą chęcia opublikuje kod programu . Zresztą nie jest to żadna rewelacja, tylko skromny program do sprawdzania statusu uzytkownika GG, bo sam uzywam WPKontaktu, więc czasem mi sie przydaje . A swoja drogą to sie musze tu zarejestrować, bo i gościnni i pomocni wszyscy tu jesteście. Pozdrawiam.

09-12-2002 21:27
  
NetMazy
..:: NetMazy ::..



Typ: neutral
Postów: 14
Zarejestrowany: Nov 2002

niom wszyscy dziekują po to jest forum żeby się dzielić rozwiazaniami

09-12-2002 21:49
Pokaż profil NetMazy  Wyślij email do NetMazy        2277449
err404



Typ: neutral
Postów: 14
Zarejestrowany: Nov 2002
A to działa tak

'zakładamy że user może zamknąć program
'posłużymy się jakąś zmienną....
PermitForUnload=True
Private Sub Form1_Unload()
  if PermitForUnload then
      end
  else
      Cancel=-1
  end if
End Sub
'Pozdrawiam err404

21-12-2002 22:32
Pokaż profil err404  Wyślij email do err404        1306176
Wszystkich odpowiedzi: 5 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1