I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio 1 2 3 4
reimasoft
reimasoft
il 30 maggio 2002 alle 16:26
252 messaggi dal 18 dicembre 2001
Si scusami, ho usato una iterazione di VB6.0 , sto cercando il corrispondente in net. Ti faccio sapere.

renzo
Rei.
RispondiQuoting
reimasoft
reimasoft
il 30 maggio 2002 alle 17:20
252 messaggi dal 18 dicembre 2001
Guarda intanto questo se puo' servire...

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'La funzione FindForm trova il form contenitore di un controllo all'interno del form stesso..
Dim ff = Button1.FindForm
'quindi se il nome del contenitore è diverso non ne apre un secondo...
If ff.Name <> "Form1" Then
Dim x As New Form1()
x.Show()
Else
ff.Focus()
End If
End Sub

Ciao..

renzo
Rei.
RispondiQuoting
sdr69
sdr69
il 3 giugno 2002 alle 17:36
5 messaggi dal 03 giugno 2002
Ho avuto lo stesso tuo problema. Per ora mi sono aggiustato con il seguente codice, spero ti sia utile


Dim searchForm As New Form()
Dim lResult As Boolean

lResult = False
For Each searchForm In Me.MdiChildren
If searchForm.Name = "NomeForm" Then
lResult = True
Exit For
End If
Next

If Not lResult Then
Dim newForm As New NomeForm()
newForm.MdiParent = Me
newForm.Show()
End If


Ciao Sandro
RispondiQuoting
w_t
w_t
il 3 giugno 2002 alle 18:06
518 messaggi dal 23 febbraio 2002
E dove lo hai inserito il codice???

RispondiQuoting
sdr69
sdr69
il 3 giugno 2002 alle 18:16
5 messaggi dal 03 giugno 2002
nell'evento click del pulsante menu

Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuAnagVeicoli.Click

Dim searchForm As New Form()
Dim lResult As Boolean

lResult = False
For Each searchForm In Me.MdiChildren
If searchForm.Name = "NomeForm" Then
lResult = True
Exit For
End If
Next

If Not lResult Then
Dim newForm As New NomeForm()
newForm.MdiParent = Me
newForm.Show()
End If

end sub

ciao Sandro
RispondiQuoting
Ricciolo
Ricciolo
il 3 giugno 2002 alle 18:24
5.774 messaggi dal 26 febbraio 2001
Contributi
blogs.aspitalia.com | Blog
Comunque io ho risolto tutto con una riga di codice
boooo

<b>Nulla si crea, nulla si distrugge, ma tutto si trasforma</b><br>
Il mio articolo ma vieniii

Ciao

Il mio blog
Homepage
RispondiQuoting
w_t
w_t
il 3 giugno 2002 alle 18:24
518 messaggi dal 23 febbraio 2002
Quindi se ho 15 pulsanti devo inserire 15 codici ???

oppure faccio una funzione Pubblica passandogli "lResult" e la richiamo con i pulsanti...!!!

OK, grazie.

RispondiQuoting
sdr69
sdr69
il 3 giugno 2002 alle 19:10
5 messaggi dal 03 giugno 2002
Esatto devi creare una funzione pubblica ma devi passargli il nome del form da aprire ed il form principale (io ho utilizzato il sender per richiamare il form principale). Questo ti serve per il loop for each ma non sono ancora riuscito a parametrizzare la chiamata della nuova form

Ciao Sandro

RispondiQuoting
1 2 3 4

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.