| |
Lep pozdrav.
Imam težavo, naredil sem program z textboxom in sedaj bi rad da bo textbox zaznal tipko backspace oz. tipko za brisanje in da ko bi pritisnil tipko bi izbrisalo besedo iz textboxa.
Prosim za hitro pomoč
spremenil: NikMan (18.3.2012 ob 19.06.26)
|
| |
| |
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Asc(e.KeyChar) = 8 Then
TextBox1.Text = ""
End If
End Sub
End Class
Kar sem jaz v Visual Basic-u 2010 poizkusil je delovalo. Ubistvu ko pritisneš na backspace ti izbriše celotno besedilo v textboxu.
Lep pozdrav drobilc
|
| |
| |
Vredu, bom začel kar počasi, da boš kodo kar se da dobro razumel.
Se pravi, začnemo tako, da zaznaš če je bila tipka delete ali backspace pritisnjena.
To lahko v navadni formi narediš tako, da kopiraš naslednjo kodo:Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
End Sub
Zdaj je potrebno še izbrisati zadnjo črko od zadaj v TextBox-u 1. To storimo z naslednjo kodo:If e.KeyCode = Keys.Delete Then
End If
Z tem If e.KeyCode = Keys.Delete Then
preverimo, če je bila pritisnjena tipka Delete. Če je ta stavek resničen, bo storil kodo, ki ti jo bom napisal kasneje, sicer preskoči cel ta If stavek, dokler ne pride do stavka ElseIf ali End If.
Zdaj moraš vnesti še kodo, ki bo to storila: TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.Text.Length - 1)
Kaj se pravzaprav pri tej kodi zgodi? Tukaj koda v bistvu samo naredi tekst v TextBox-u1 za 1 znak krajši.
Če boš imel še kaj težav, se še enkrat oglasi 
Kako bi morala koda izgledati po koncu:
spremenil: PowerZan (19.3.2012 ob 21.12.23)
|
| |
| |
Aha, pa da ne pozabim. Če želiš, da ti to deluje, moraš v nastavitvah od forme tudi vrednost KeyPreview označiti na True.
|
| |
| |
Sem označil in ne deluje...
|
| |
| |
Lahko prilepiš delček tiste kode?
|
| |
| |
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown Select Case e.KeyCode Case Keys.F9 Me.ShowInTaskbar = True End Select If e.KeyCode = Keys.Back Then TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.Text.Length - 1) End If End Sub
spremenil: Matej V. (20.3.2012 ob 08.59.12)
|
| |
| |
Pri uporabniku je bil problem v tem, ker je imel drugačen sistem zabeleževanja tipk ipd.
Njegov problem sva rešila preko Skype-a, če pa bo še kdo potreboval pomoč, naj kar piše v to temo
|
| |
| |
Hvala Žan
|
| |
Prikazujem 1 od skupno 1 strani |
|
