Osa merkeistä sensuuriin

lalalallaaaaal

Formilla kysytään yhdessä TextBoxissa tallennettavan tiedoston nimeä, ja TextBoxiinhan voi syöttää myös erikoismerkkejä /\?: jne...
Jos tiedostonimessä on näitä merkkejä, pukkaa tallennettaessa erroria.

Miten kiellettyjen merkkien käytön voi estää kokonaan? Ensiksi tuli mieleen replace(), mutta enhän minä edes tiedä mitkä kaikki merkit ovat kiellettyjä. Neuvokeeh...

3

399

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Kunde

      lisää koodiin kiellettyjä merkkejä, nyt vain /\?

      Private Sub Text1_KeyPress(KeyAscii As Integer)
      Select Case KeyAscii
      Case Asc("/"), Asc("\"), Asc("?") ' tässä voit valita mitä merkkejä ei voida syöttää
      KeyAscii = 0
      Case Else
      End Select
      End Sub

      • lalalallaaaaal

        Mitänkä tämä menisi vb.netissä? Googlella löysin tällaista:


        Private Sub frmGame_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
        Dim keyascii As Integer = AscW(e.KeyChar)
        End Sub


        Ei onnistu pistämällä keyascii = 0.


      • Orwell
        lalalallaaaaal kirjoitti:

        Mitänkä tämä menisi vb.netissä? Googlella löysin tällaista:


        Private Sub frmGame_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
        Dim keyascii As Integer = AscW(e.KeyChar)
        End Sub


        Ei onnistu pistämällä keyascii = 0.

        Pistä sinne kontrollin KeyPress eventiin ao. koodin pätkä. Pitäisi estää a,b ja c kirjainten kirjoitus.

        Select Case e.KeyChar
        Case "a","b","c"
           e.Handled=True
        Case Else
           e.Handled=False
        End Select


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Mitäs peitsarissa on tapahtunut eilen illalla

      Mikkelissä iso poliisioperaatio https://www.iltalehti.fi/kotimaa/a/39ef020c-2d81-4d72-b720-651f458ba3e2
      Mikkeli
      94
      2513
    2. Mistä löytää kadonnut motivaatio?

      Mikä neuvoksi, kun oikein mikään ei enää jaksa huvittaa eli ei ole motivaatiota tehdä mitään? Joka päivä ajattelen, että
      Sinkut
      142
      2304
    3. Saana airola ja. muusikko spekulaatiota

      Saara airolan kirja muusikko mies. Oisko redrama tai lauri tähkä? Saana oli 13 v vuonna 2014 Tekoäly sanoo : tähkä Julki
      Yhteiskunta
      13
      2098
    4. Miten kuvaisit tunteitasi

      tällä hetkellä?
      Ikävä
      171
      1570
    5. Jos saisit palata takaisin johonkin vuoteen

      Mikä vuosi se olisi? Ja mitä siinä hetkessä tapahtuisi?
      Ikävä
      138
      1277
    6. Mikä estää?

      tapaamisen, suhteen aloittamisen?
      Ikävä
      92
      916
    7. Miksi ETTE suostu selvittämään . . . . . ...

      Asioita jotka jääneet selvittämättä toisen osapuolen kanssa? Kertoisitteko miksi ette suostu? Vaikka teidän mielestä
      Ikävä
      193
      898
    8. Mitä jos saisit selville

      että kaivattusi tekee susta pilaa?
      Ikävä
      187
      889
    9. Wille Rydman on kansalaisten mielestä huonoiten onnistunut ministeri

      Onneksi olkoo Wille kärkipaikasta! Oletkin sen eteen tehnyt hartiavoimin töitä. "Ministeri Wille Rydman (ps) on kansala
      Maailman menoa
      451
      796
    10. Mitä ajattelit ensimmäisenä kun

      näit kaivattusi ekaa kertaa?
      Ikävä
      53
      713
    Aihe