/ 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
Password (begynder problemer)
Fra : Henrik Cichosz


Dato : 16-11-02 17:56

hej jeg har en textbox hvor man kan skrive et password så har jeg et modul
med kode og en knap på formen der starter det hele men jeg kan ikke få det
til at virke kan nogen give et hint til hvordan jeg får det til at virke

jeg har prøvet med denne kode i mit modul
Private Sub pass()
Dim svar
svar = Text1
If svar = "test" Then
MsgBox prompt:="Velkommen"
Else
MsgBox prompt:="Forkert Svar"
End If

End Sub
mvh Henrik C


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.419 / Virus Database: 235 - Release Date: 13-11-2002



 
 
Jay Jay (17-11-2002)
Kommentar
Fra : Jay Jay


Dato : 17-11-02 00:07

Hej...

i linie 3 skriver du svar = text1

der burde nok stå

svar = text1.text

prøv det...

Med venlig hilsen JJ
"Henrik Cichosz" <cichosz@tdcadsl.dk> skrev i en meddelelse
news:3dd6788e$0$94780$edfadb0f@dread15.news.tele.dk...
> hej jeg har en textbox hvor man kan skrive et password så har jeg et modul
> med kode og en knap på formen der starter det hele men jeg kan ikke få det
> til at virke kan nogen give et hint til hvordan jeg får det til at virke
>
> jeg har prøvet med denne kode i mit modul
> Private Sub pass()
> Dim svar
> svar = Text1
> If svar = "test" Then
> MsgBox prompt:="Velkommen"
> Else
> MsgBox prompt:="Forkert Svar"
> End If
>
> End Sub
> mvh Henrik C
>
>
> ---
> Outgoing mail is certified Virus Free.
> Checked by AVG anti-virus system (http://www.grisoft.com).
> Version: 6.0.419 / Virus Database: 235 - Release Date: 13-11-2002
>
>



Henrik Cichosz (17-11-2002)
Kommentar
Fra : Henrik Cichosz


Dato : 17-11-02 07:56


"Jay Jay" <c_j@adslhome.dk> skrev i en meddelelse
news:ar6j2l$2sh$1@sunsite.dk...
> Hej...
>
> i linie 3 skriver du svar = text1
>
> der burde nok stå
>
> svar = text1.text
>
> prøv det...
Hej og tak nu virker det 50% jeg får MsgBox med forkert svar hver gang hvor
er fejlen jeg kan ikke se den det er helt sikkert en lille ting men hvad ??
dine kode er her

Private Sub Command1_Click()
pass
End Sub

koden i modulet

Sub pass()
Dim svar
svar = "Text1.Text"
If svar = "test" Then
MsgBox prompt:="Velkommen"
Else
MsgBox prompt:="Forkert Svar"
End If
End Sub

mvh Henrik C


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.419 / Virus Database: 235 - Release Date: 13-11-2002



preben nielsen (17-11-2002)
Kommentar
Fra : preben nielsen


Dato : 17-11-02 09:37


"Henrik Cichosz" <cichosz@tdcadsl.dk> skrev i en meddelelse
news:3dd74b69$0$15053$edfadb0f@dread14.news.tele.dk...

> Private Sub Command1_Click()
> pass
> End Sub
>
> koden i modulet
>
> Sub pass()
> Dim svar
> svar = "Text1.Text"

svar = Text1.Text

Lær at bruge debuggeren ! Så kan du gå gennem programmet linie for
linie og se værdien af alle variable og dermed finde fejlen. Du
ville have set, at "svar" ikke indeholdt det du havde indtastet.

> If svar = "test" Then
> MsgBox prompt:="Velkommen"
> Else
> MsgBox prompt:="Forkert Svar"
> End If

> mvh Henrik C


--
/\ preben nielsen
\/\ prel@post.tele.dk




Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste