/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Sammenligne 2 forms i VB6
Fra : Betin@


Dato : 27-03-02 09:27

Jeg åbner et vilkårligt antal forms af samme type :
set frm = new frmMedlem

Når jeg så indtaster i et bestemt felt tester jeg på LostFocus om der
er åbnet en form af samme type med samme værdi, for så skal den
nuværende form lukkes og fokus sættes til formen med samme værdi. Det
fik jeg til at virke men så ikke alligevel. Første gang jeg åbner en
form vil den blive lukket da min sammenligning er forkert.
Jeg har brugt følgende kode til at teste med:

For i = 0 To Forms.Count - 1
If TypeOf Forms(i) Is frmMedlem Then
If Forms(i).Txtsel.Text = Me.Txtsel.Text And
      Forms(i).txtMedlem.Text = Me.txtMedlem.Text Then
Forms(i).SetFocus
Unload Me
Exit Sub
End If
End If
Next

Det jeg mangler er at kunne sige:

If Forms(i) <> Me Then

men det må jeg ikke for VB, hvordan kan jeg så afgøre om den form i
collectionen jeg sammenligner med ikke er den jeg står på(Me)?
--
mvh
Betin@

 
 
Niels (27-03-2002)
Kommentar
Fra : Niels


Dato : 27-03-02 10:00

Prøv med

If Forms(i) Is Me Then

- Niels G.

"Betin@" <betina@leverpostei.com> wrote in message
news:MPG.170ba0b6beee3052989747@news.worldonline.dk...
> Jeg åbner et vilkårligt antal forms af samme type :
> set frm = new frmMedlem
>
> Når jeg så indtaster i et bestemt felt tester jeg på LostFocus om der
> er åbnet en form af samme type med samme værdi, for så skal den
> nuværende form lukkes og fokus sættes til formen med samme værdi. Det
> fik jeg til at virke men så ikke alligevel. Første gang jeg åbner en
> form vil den blive lukket da min sammenligning er forkert.
> Jeg har brugt følgende kode til at teste med:
>
> For i = 0 To Forms.Count - 1
> If TypeOf Forms(i) Is frmMedlem Then
> If Forms(i).Txtsel.Text = Me.Txtsel.Text And
> Forms(i).txtMedlem.Text = Me.txtMedlem.Text Then
> Forms(i).SetFocus
> Unload Me
> Exit Sub
> End If
> End If
> Next
>
> Det jeg mangler er at kunne sige:
>
> If Forms(i) <> Me Then
>
> men det må jeg ikke for VB, hvordan kan jeg så afgøre om den form i
> collectionen jeg sammenligner med ikke er den jeg står på(Me)?
> --
> mvh
> Betin@



Niels (27-03-2002)
Kommentar
Fra : Niels


Dato : 27-03-02 10:01

Undskyld, jeg mente selvfølgelig

If Not (Forms(i) Is Me) Then

- Niels G.


"Niels" <ng@blommelundenNOspam.dk> wrote in message
news:jSfo8.3172$iY5.77265@news010.worldonline.dk...
> Prøv med
>
> If Forms(i) Is Me Then
>
> - Niels G.
>
> "Betin@" <betina@leverpostei.com> wrote in message
> news:MPG.170ba0b6beee3052989747@news.worldonline.dk...
> > Jeg åbner et vilkårligt antal forms af samme type :
> > set frm = new frmMedlem
> >
> > Når jeg så indtaster i et bestemt felt tester jeg på LostFocus om der
> > er åbnet en form af samme type med samme værdi, for så skal den
> > nuværende form lukkes og fokus sættes til formen med samme værdi. Det
> > fik jeg til at virke men så ikke alligevel. Første gang jeg åbner en
> > form vil den blive lukket da min sammenligning er forkert.
> > Jeg har brugt følgende kode til at teste med:
> >
> > For i = 0 To Forms.Count - 1
> > If TypeOf Forms(i) Is frmMedlem Then
> > If Forms(i).Txtsel.Text = Me.Txtsel.Text And
> > Forms(i).txtMedlem.Text = Me.txtMedlem.Text Then
> > Forms(i).SetFocus
> > Unload Me
> > Exit Sub
> > End If
> > End If
> > Next
> >
> > Det jeg mangler er at kunne sige:
> >
> > If Forms(i) <> Me Then
> >
> > men det må jeg ikke for VB, hvordan kan jeg så afgøre om den form i
> > collectionen jeg sammenligner med ikke er den jeg står på(Me)?
> > --
> > mvh
> > Betin@
>
>



Betin@ (27-03-2002)
Kommentar
Fra : Betin@


Dato : 27-03-02 10:17

ng@blommelundenNOspam.dk skrev...
> Undskyld, jeg mente selvfølgelig
>
> If Not (Forms(i) Is Me) Then
>
Tusind tak, det var lige det der skulle til.

--
mvh
Betin@

Søg
Reklame
Statistik
Spørgsmål : 177557
Tips : 31968
Nyheder : 719565
Indlæg : 6408885
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste