Új hozzászólás Aktív témák

• bepken veterán

  #2411

  #2405 bepken

  2014-03-11 11:39:40

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  bepken

  veterán

  #2405 bepken

  #2405 bepken

  rendben, az egyik kipiálva:

  a Form1 tulajdonságainál >>"KeyPreview = True"

  majd:
  Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
  
  If Asc(e.KeyChar) = 13 Then
  Me.dataBindingSource.Filter = "[number] = '" & Me.txtFind.Text & " ' "
  End If

  a másik kérdésemre viszont egyelőre nem találtam megoldást...

  azt hiszem, a telefonszám "konvertálást" is sikerült megoldani, bár a gyakorlatban még csak pár példával próbálkoztam:

  Private Sub btnFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFind.Click
  
  txtFind.Paste()
  txtFind.Text = Replace(txtFind.Text, " ", "")
  txtFind.Text = Replace(txtFind.Text, "/", "")
  txtFind.Text = Replace(txtFind.Text, "(", "")
  txtFind.Text = Replace(txtFind.Text, ")", "")
  txtFind.Text = Replace(txtFind.Text, "-", "")
  txtFind.Text = Replace(txtFind.Text, "+", "")
  
  If txtFind.TextLength > 7 Then
  
  If txtFind.Text.StartsWith("06") Then
  txtFind.Text = txtFind.Text.Substring(2)
  End If
  If txtFind.Text.StartsWith("36") Then
  txtFind.Text = txtFind.Text.Substring(2)
  End If
  
  End If
  
  TelBindingSource.Filter = "[tel] = '" & Me.txtFind.Text & " ' "
  End Sub

  így elviekben a vágólapra vett (legtöbbször keszekusza formátumú) számokat szépen "letisztítja" és ezután keres az adatbázisban

  mennyire elegáns ez így szerintetek?

  illetve arra nem jöttem még rá, hogyan lehetne megoldani, hogy a TextBox-ban található értéket minden alkalommal alapból felülírja.
  nem hozott megoldást az sem, ha beállítottam, hogy 7 karakter hosszú legyen a TextBox, mert ekkor alapból az első 7 karaktert kezdte vizsgálni, ami meg ugye esetemben nem igazán előnyös...

• sztanozs veterán

  #2406

  #2405 bepken

  2014-03-03 14:48:37

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  sztanozs

  veterán

  #2405 bepken

  #2405 bepken

  rendben, az egyik kipiálva:

  a Form1 tulajdonságainál >>"KeyPreview = True"

  majd:
  Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
  
  If Asc(e.KeyChar) = 13 Then
  Me.dataBindingSource.Filter = "[number] = '" & Me.txtFind.Text & " ' "
  End If

  a másik kérdésemre viszont egyelőre nem találtam megoldást...

  Az Enter esemény az nem az, amikor entert nyomsz.
  Azt így tudod megccsinálni, ahogy írtad. Esetleg még Validate-tel - de ott ha be van állítva, hogy validate on focus lost (vagy valami hasonló), akkor akkor is lefut a validate, ha kikantitasz a mezőből (vagy Tab-bal tovább mész).

Új hozzászólás Aktív témák