Hirdetés
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- Toomy: FOXPOST: régen jó volt, de már jobban jársz, ha elfelejted
- ldave: New Game Blitz - 2025
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
- gerner1
- Elektromos rásegítésű kerékpárok
Új hozzászólás Aktív témák
-
bepken
veterán
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... -
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
- Bomba ár! HP EliteBook 840 G6 - i7-8GEN I 16GB I 512GB SSD I 14" FHD I HDMI I Cam I W11 I Gari!
- Lenovo ThinkPad // T - Széria // X1 carbon // X1 Yoga 2-in-1 // és a többiek... 3-12. gen.
- GYÖNYÖRŰ iPhone 12 Mini 128GB Black-1 ÉV GARANCIA -Kártyafüggetlen, MS4206, 100% Akksi
- GYÖNYÖRŰ iPhone SE 2020 64GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS3920
- GYÖNYÖRŰ iPhone 12 Pro Max 256GB Graphite -1 ÉV GARANCIA - Kártyafüggetlen, MS2927, 100% Akkumulátor
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopszaki Kft.
Város: Budapest

