|
| hændelse ved kombination af combobox & tek~ Fra : Tina Hoffmann |
Dato : 13-12-01 17:04 |
|
Jeg har oprettet en combobox med indhold, og jeg ønsker, at når man vælger
et bestemt punkt i boxen og skriver et bestemt tal i en tekstboks, så
skrives et bestemt tal i en anden tekstboks. Hvad er koden hertil?
| |
Vestergaard (13-12-2001)
| Kommentar Fra : Vestergaard |
Dato : 13-12-01 19:16 |
|
Hvis du bare vil have sådan at når man trykker på en knap og den så chekker
om værdierne er korrekte så er koden som følger:
Private Sub Command1_Click()
If Combo1.Text = "Juhuu" And Text1.Text = "5" Then
Text2.Text = "7"
End If
End Sub
Private Sub Form_Load()
Combo1.AddItem "Juhuu"
End Sub
Men hvis du vil have den automatisk chekker det uden man trykker på knappen,
altså bare vælger noget i comboboxen og så skriver et tal i textboxen, så
skriver den et nyt tal i den anden textbox, når man har skrevet det rigtige
tal i textboxen, så skulle det være sådan her:
Private Sub Form_Load()
Combo1.AddItem "Juhuu"
End Sub
Private Sub Text1_Change()
If Combo1.Text = "Juhuu" And Text1.Text = "5" Then
Text2.Text = "7"
End If
End Sub
Men det kan også være at det slet ikke var sådan noget du mente. Hvis det
var tilfældet så prøv igen :)
Jacob S. V.
| |
Tina Hoffmann (15-12-2001)
| Kommentar Fra : Tina Hoffmann |
Dato : 15-12-01 15:10 |
|
Tak for ideen, så fik jeg det til at virke
"Vestergaard" <svester@post5.tele.dk> skrev i en meddelelse
news:3c18f0b8$0$94401$edfadb0f@dspool01.news.tele.dk...
> Hvis du bare vil have sådan at når man trykker på en knap og den så
chekker
> om værdierne er korrekte så er koden som følger:
>
> Private Sub Command1_Click()
> If Combo1.Text = "Juhuu" And Text1.Text = "5" Then
> Text2.Text = "7"
> End If
> End Sub
>
> Private Sub Form_Load()
> Combo1.AddItem "Juhuu"
> End Sub
>
>
> Men hvis du vil have den automatisk chekker det uden man trykker på
knappen,
> altså bare vælger noget i comboboxen og så skriver et tal i textboxen, så
> skriver den et nyt tal i den anden textbox, når man har skrevet det
rigtige
> tal i textboxen, så skulle det være sådan her:
>
> Private Sub Form_Load()
> Combo1.AddItem "Juhuu"
> End Sub
>
> Private Sub Text1_Change()
> If Combo1.Text = "Juhuu" And Text1.Text = "5" Then
> Text2.Text = "7"
> End If
> End Sub
>
>
> Men det kan også være at det slet ikke var sådan noget du mente. Hvis det
> var tilfældet så prøv igen :)
>
>
> Jacob S. V.
>
>
>
>
>
| |
|
|