Visualizzazione dei risultati da 1 a 4 su 4
  1. #1
    Utente di HTML.it
    Registrato dal
    Apr 2002
    Messaggi
    271

    Aprire e chiudere un form parte 2

    A me era stato consigliato questo codice:
    Public F1 As Boolean
    Form3.F1 io non posso accedere al variabile così
    Form. mi dà l'elenco delle proprietà non delle variabili
    o sbaglio qualcuno mi può spiegare!!!



    ----------------------------------------------------------------------


    Creara un Command Button in Form1 e Form2 di nome Command1.
    Codice in Form1:

    Private Sub Command1_Click()
    Form3.Show
    Form3.F1 = True
    End Sub

    Private Sub Form_Load()
    Form2.Show
    End Sub

    Codice in Form2:

    Private Sub Command1_Click()
    Form3.Show
    End Sub

    Codice in Form3:

    Public F1 As Boolean

    Private Sub Form_Unload(Cancel As Integer)
    If F1 Then
    Form1.SetFocus
    Else
    Form2.SetFocus
    End If
    End Sub
    ----------------------------------------------------------------------

  2. #2
    le variabili pubbliche vengono viste da tutti i form.
    ti conviene creare un modulo, dove dichiari le variabili pubbliche

    form. ti permette di firchiamare gli oggetti e le proprietà di quel form, ma non le variabili in essoc ontenute
    EX Mentecatto - succube della Honda
    Le mie foto|HONDA CLUB ITALIA!|DARTH LEGNANZ!

  3. #3
    Utente di HTML.it
    Registrato dal
    Apr 2002
    Messaggi
    271
    Non so se puoi aiutarmi comunque il mio problema è questo
    -----------------------------> sul evento click indietro
    io non so ha quale dei due form ritornare, io vorrei fare in modo
    che quando clikko indietro ritorno al form che mi ha chiamato(cioè che mi aperto in parole povere)
    Che codice devo mettere?


    1) Form1 ho:

    Private Sub Apri_Click()
    Anagrafica.Show
    Unload Me
    End Sub

    2) Form2 ho:

    Private Sub Apri_Click()
    Anagrafica.Show
    Unload Me
    End Sub


    3) Anagrafica ho :
    Private Sub Indietro_Click() ------------------------>

    End Sub

  4. #4
    Crei una variabile pubblica per esempio vFormChiamante

    1) Form1 ho:
    codice:
    Private Sub Apri_Click()
      vFormChiamante = "Form1"  
      Anagrafica.Show
      Unload Me
    End Sub
    2) Form2 ho:
    codice:
    Private Sub Apri_Click()
      vFormChiamante = "Form2"  
      Anagrafica.Show
      Unload Me
    End Sub
    3) Anagrafica ho :
    codice:
     
    Private Sub Indietro_Click() 
      Select Case vFormChiamante
        Case "Form1"
          Form1.Show
        Case "Form2"
          Form2.Show
      End Select
      Unload Me
    End Sub
    EX Mentecatto - succube della Honda
    Le mie foto|HONDA CLUB ITALIA!|DARTH LEGNANZ!

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.