None Case Sensitive

[DevN]

Eksempel:

 

If textbox.text = "blabla" Then

msgbox textbox.text,,textbox.text

 

Hvis noen skriver "blaBla" så utfører den ikke handlingen.

[Jonas]

private sub textbox_change()
If textbox.text = "blabla" Then
msgbox textbox.text,,textbox.text
end if
end sub

At den ikke utfører er bare fordi du har skrevet "blaBla", mens i koden står det "blabla"

[aadnk]

Hva jeg tror zalo egentlig mener er at evalueringen ikke skal være "case-sensitive". Dette kan oppnås med funksjonene LCase eller UCase, helt avhengig av hva du tester mot. Her er et eksempel:

 

Private Sub textbox_change()
If LCase(textbox.text) = "blabla" Then
msgbox textbox.text,,textbox.text
end if
end sub

 

Uansett om du skriver blabla eller BlABlA kommer meldingsboksen opp. Motsatt må du teste med STORE bokstaver når du bruker UCase.

[DevN]

Takk aadnk.

[kaffenils]

Eksempel:

 

If textbox.text = "blabla" Then

  msgbox textbox.text,,textbox.text

 

Hvis noen skriver "blaBla" så utfører den ikke handlingen.

Du kan bruke "Option Compare Text" hvis du vil at a=A eller blabla=blaBla.

 

Legg Option Compare Text i begynnelsen av en modul og før alle funksjoner og subrutiner.

Endret 29. mars 2004 av kaffenils

[d0ppler]

det er riktig som du sier kaffenils, men det er 1000 ganger smartere og mer "rikitg" og bruke ucase() / lcase() eksempelet til aadnk

[kaffenils]

det er riktig som du sier kaffenils, men det er 1000 ganger smartere og mer "rikitg" og bruke ucase() / lcase() eksempelet til aadnk

Hvis en ikke har behov for case sensitive sammenlingninger i appliaksjonen så er det vel strengt tatt ikke nødvendig å skrive ucase/lcase hver eneste gang en skal sammenligne tekst. De er jo en potensiell feilkilde hvis en glemmer det.

 

 

 

Morsom signatur du har forresten

Endret 2. april 2004 av kaffenils