funktioner i en texttbox

Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = KeyCodeConstants.vbKeyReturn Then
    MsgBox "den er god :-)"
  End If
End Sub

ok tak!!

og hvad så hvis men i samme textbox, skriver "hej" så skal den gør sådan her MsgBox ("den er god :-)")??

Måske noget i den her stil?

Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = KeyCodeConstants.vbKeyReturn Then
    If Trim(UCase(Text1.Text)) = "HEJ" Then
      MsgBox "Selv hej!", vbInformation
    Else
      'Der er trykket på "Enter", men der står ikke "hej" i tekstboksen
    End If
  End If
End Sub

Koden fjerne alle begyndende og afsluttende mellemrum, og gør dernæst den resterende tekst stor (ucase = uppercase) og tjekke om der står "HEJ". Tjekket bliver derfor også 'sandt' hvis der f.eks. står: "  hej  ", "HeJ" eller "  hEJ"
Hvis du forsøger at beskrive hvad du skal bruge koden til, kan det være at jeg kan hjælpe dig yderligere (hvis det altså ikke bare er 'for the fun of it' :) )
-Sion

jo tak! det er fordi jeg er ved at lave et meget lille faktur program!, der ville jeg gerne have linje til at stå sådan her :

jeg har lave 3 textbox og en Label,
hvor jeg kan skrive i den først textbox lad os sige den hedder Enheden og nr. 2 hedder Beskrivelse og nr. 3 hedder A_pris, Label hedder vis_pris!

Enheden  Beskrivelse  A_pris    vis_pris
3        skt. Avis    5        15 kr
osv.

og med det du har lavet , har jeg fået den til at skifte SetFocus når jeg trykket  på Enter, over til en anden textbox dejligt!!!
så mangler jeg bare at HEJ virker også efter men har skrevet nogle linjer i en textbox!!

Jammen det er da absolut muligt. Du kan enten vælge at man skal trykke "CTRL"+"ENTER" for at skifte linje, eller også kan du vælge at man skifter linje på normal vis, hvor du så kan tjekke om der f.eks. er skrevet en bestemt antal linjer, en bestemt sætning, eller hvad du nu ønsker at tjekke efter - skriv hvad du har i tankerne og så skal jeg forsøge at bikse en klump kode sammen til dig ;)

tak skal du have!
forløbligt kunne det være rart at label vis_pris følger med derned af
det gøre den ikke her :

Private Sub vis_pris_Click()
vis_pris.caption = val(vis _pris.caption = val(Enheden) * val(A_pris)) * val(A_pris)
End Sub
den står bare oppe i hjørnet og tæller derud af

Har du også "stk.", "avis" og "kr." med i dine tekstbokse? Eller indeholder de kun værdierne?

nej "skt.","avis" og "kr" det var bare et eks. på hvordan det skulle stå når man skriver en faktur!. jeg har lavet 6 stk. textbox

og de hedder "Faktur_nr", "Dato", "Enheden", "Beskrivelse" og "A_pris",.. den 6 textbox hedder "ved" ., det er derfor at man kan skrive noget øverst på Faktur. også en Label der hedder "vis_pris",

Private Sub vis_pris_Click()
  vis_pris.caption = val(Enheden.text) * val(A_pris.text) * val(A_pris.text)
End Sub

Virker det ikke efter hensigten?

jo i først linje ! ellers står den bare og tæller oppe i hjørnet !?

Første linje? Tæller i hjørnet? Jeg har altså svært ved at finde ud af hvordan du vil opbygge dit program. Forklar dig lige lidt nærmere...

ok det skal virke som når man skriver en faktur!

Enheden:-Beskrivelse-----A_pris---vis_pris

4--------stk.-chokolade---5,75-----23 
8--------stk.-bananer-----4,25-----34 

ovs.
man sådan her stå den bare og tæller
vis_pris.caption = val(Enheden.text) * val(A_pris.text) * val(A_pris.text)

vis_pris følger ikke med derned af !!

Hvordan angives det forskellige værdier såsom enheden osv. ? Angives det i en ListBox, flere tekstbokse, over flere linjer i én tekstboks eller hvordan?

bare jeg kunne sende det jeg har lavret til dig!!
de deroppe er lavet i 3 textbox og en Label som er trækket ud så de står i kolonner!!

Selfølgelig - min mail er anders_nis @ hotmail.com (uden mellemrum)

hej
så har jeg sendt det til dig
det er måske ikke den rigitg måde jeg har lave det på??

Så har jeg sendt dig min version. Den er godt nok meget skrabet, men princippet burde være til at få øje på :)

den der Components, ListVieW, du har brugt i det lille eksempel!
den ligger under Controls ??
og hvordan gemmer man de Components i VB. så de bliver liggende også når man åbner vb igen?