Hej någon som har en aning om hur jag smidigast inaktiverar en TextBox från keypresses?
Alla tangenttryckningar utom ctrl-c (kopiera) skall vara inaktiverade.

Vill även att man inte skall kunna högerklicka på markeringen och kunna välja "ta bort".

Just nu har jag keyascii = 0 i händelsen "KeyPress" för textboxen.
Detta påverkar dock bara tangenttryckningar och inte högerklicket ovan.

Någon som har en lösning?

Funkar inte enabled = False?
Eller kan man inte markera i den alls då?

går inte markera alls då

Har för mig att det finns en egenskap på textboxar som fixar det beteendet, tror den heter Lock, Locked eller liknande (Har tyvärr inte tillgång till VB nu).

/Johan

Hej

Jo, men den inaktiverar markering totalt.
Och crtl-c funkar då inte heller.

Tänk på att det finns två olika egenskaper som låser kontrollen. Locked = True och Enabled = False. Precis som Johan säger så gör Locked = True det du vill.


Thomas

<code>
Option Explicit
'i Formen General
Dim sText As String
Private Sub Text1_Change()
Text1.Text = sText
End Sub
Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
sText = Text1.Text
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case Is = 3 ' tillåt Ctrl + C
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 46 Then KeyCode = 0 'Deleteknappen
End Sub
</code>

Man läser dåligt min kod ovan är "overkill" men funkar ;-)

Text1.Locked fungerar alldeles utmärkt.

"Locket = True" gör inte som jag vill nej.

Ctrl-c fungerar inte med Locked=true.

Går det lösa med något API call eller liknande?

ctrl+c fungerar utmärkt med locked=true. Testa att skapa ett nytt formulär med en ny textbox så att du inte har någon annan property/kod som "förstör" kopieringen.

/Johan

Hej Johan

Det fungerar inte här.
Hur jag än gör så funkar [ctrl]+c inte. (dock fungerar högerklick och "copy", men det är inte samma sak)

Har skapat ett helt nytt projekt.
Private Sub Form_Load()
Text1.Text = "Detta" & vbCrLf & "är en kopieringsbar text!"
Text1.Locked = True
End Sub

Det är den enda kod som finns.

Mycket märkligt, gör jag precis så så fungerar det. Vilken VB-version kör du? Vilken SP-nivå?

/Johan

Sluta tjata Nu !
Du gör Text1.Locked = True redan i designläge. Dvs krångla inte med kod.
Nu kan du markera text och köra Ctrl + C

Allt annat är spärrat. Locked är till för just det du vill åstadkomma.

Ja, det är märkligt.

Jag kör VB6 med SP2 (XP).

/Andreas

Jag skulle inte skicka in flera poster om det inte funkade och jag tycker det är konstigt.

Är den satt:
<code>
enabled=true
locked=true
</code>
så borde det fungera är den däremot
<code>
enabled =false
locked=true
</code>
fungerar det inte

Hej Robert

Det enda jag ändrat (i properties-fönstret) efter det att jag skapat ett nytt projekt (och lagt till en TextBox) är:

<code>
TextBox1.MultiLine = True
TextBox1.Locked = True
</code>

(Alltså, Enabled är True)

Handlar det om vb.net så har egenskapen locked inte samma egenskaper som i vb6 locked gör bara att du inte kan flytta kontrollen i designläget och kan inte sättas programmatiskt. Den egenskap du är ute efter heter ReadOnly.

<code>
TextBox1.MultiLine = True
TextBox1.ReadOnly = True
</code>

Jag menade vilken SP på VB du har. Jag testar med VB6 SP5.

/Johan

Hej Robert

Nej nej, jag kör med VB6. :)

var ser man det? :)

VB6 SP6 finns att ladda ner från http://vbnet.mvps.org/files/sp/sp6vb6_en.zip.


Thomas

Något är helsjukt i den här tråden.
Locked funkar för alla utom för Peter.
Problemmet har inte med SP att göra denna funktion
har funkat så här sedan VB 3 tiden.

<b>Gör nu så här och svara oss vad händer.
Starta ett nytt Vb projekt. Lägg ut en Text1 på Formen
Sätt den till Locked = True. Kör programmet.
Nu står det Text1 i textboxen.Markera texten.
Tryck Ctrl+C (Kopiera) .Kolla på lämpligt sätt
Vad finns det i ClipBordet ?</b>

<b>Inte för att vara helt koko, men var ser man det? :)</b>

Det syns på den splash-screen som visas när du startar VB6 och under Help>About.

Fungerar Ctrl+C om du inte sätter Locked=True?

/Johan

hittade vad som är fel kör jag programmet genom F5 (alltså i utvecklingsmiljön) så fungerar inte ctrlc (däremot fungerar högerklick->copy vilket jag nämnt tidigare)

ctrl-c funkar dock om jag genererar en exe-fil, någon som vet varför detta beteendet uppstår?

Har tyvärr ingen aning om varför det uppstår, men alla gånger jag testade och det fungerade körde jag i debug-läge.

/Johan

Kvalificerat "bullshit" han vägrar medge att han är en nolla som gjort bort sig !

Stäng tråden och tänk efter om inte frimärkssamling passar dig bättre ! ;-)

jag gillar inte frimärken.

LOL :-D

Jag hade tidigare inget SP alls och jag installerade nyligen SP6, nu fungerar Locked även då man kör programmet inne i VB-miljön. Så det _HAR_ med SP att göra, tänkte bara informera dig.

Tack alla som ägnat sig tid!
Extra tack till Tomas och Johan som informerade om SP!

<b>Så det _HAR_ med SP att göra, tänkte bara informera dig. </b>

"Bull" LOL

ok