Disabel Key

Lav en sub:
Private Sub Text1_KeyPress(KeyAscii As Integer)
select case KeyAscii
= 13 Then cmbSøg = True '13=Enter
End Sub

Øh, er rimlig ny! Har M$ VB 5.0. Sub hvor/hvad er det?

Undskyld nu ved jeg godt hvad det er!

Hej ttj jeg vender lige tilbage ned noget ordentligt...

Øhh.
= 13 Then cmbSøg = True '13=Enter  bliver rød, og alt fungere normalt!

Hov, nåede ikke at se du havde skrevet noget! Lyder godt! Kan der komme nogle kommentarer så jeg kan forstå det?

*Kan der komme nogle kommentarer så jeg kan forstå det?
Altså i koden.

hej ttj
Du må lige have et øjebliks tålmodighed...

Det kan du tro! Kommer nok først til computeren om 5 timer! Så du har lidt tid!

Jeg kom til at afsende uden at være færdig...

Private Sub txtID_KeyPress(KeyAscii As Integer)

if b_DisableSpecKeys=true then
Select Case KeyAscii
  Case 229 ' å
    KeyAscii = 0
  Case 230 ' æ
    KeyAscii = 0
  Case 248 'ø
    KeyAscii = 0
  End Select
end if

End Sub

set b_DisableSpecKeys vha. en timer...

txtID er en textbox!

placer en timer på din form...

Private sub form_load()
timer1.Interval = 10000
end sub

Private Sub timer1_Timer()

if b_DisableSpecKeys=true then
b_DisableSpecKeys =false
timer1.interval=0
else
b_DisableSpecKeys=true
end if
 
End Sub

den med CAPS LOCK skal jeg lige kigge på...

Er CAPS LOCK ønsket for at undgå Æ, Ø og Å? for i så fald kan du tilføje:

case 198 ' Æ
KeyAscii = 0
Case 216 ' Ø
KeyAscii = 0
Case 197 'Å
KeyAscii = 0

Kigger lidt på det! INdtil videre MANGE tak!

Fino...

Jeg kan desværre ikke få det til at virke! Altså når programmet kører, skal man ikke kunne bruge æøå ÆØÅ. Man skal ikke kunne bruge dem i notesblok også videre!

Kan du sende dit program til mig? Hvis du kan/vil så kigger jeg på det i morgen tidligt...

jrl@dinex.dk

Jep, det er ikke noget program inu! Men jeg skal nok sende det til dig! Skal fjerne mig fra puteren nu, så jeg sender senere!

Hvad formål skulle det have at disabel taster efter 10 sek osv. ?

den løsning jrl0469 har givet dig, virker således at man ikke kan bruge æøå osv. på en TEXTBOX ved navn txtID der skal være på din form i dit VBprogram.

Er det du ønsker at du i 10 sek efter du har startet dit program slet ikke kan bruge æøå på HELE din PC - altså i alle programmer osv?

Hvis det er det du vil er det ikke så simpelt - hvis det da overhovedet kan lade sig gøre!!!

Ka ik få det til at virke, men kan godt se ideén! Sender en mail når frac.dk ikke er overbelastet!

Du kan IKKE disable æøå på andet end en textbox med den kode du her har fået...

Prøv at forklar præcis hvad du vil?

Jeg vil ku starte programmet som så gør æ, ø og å ubrugelige, så man ikke kommer til at skrive æ, ø og å i word og på eng. hjemmesider.

*eng
engelske

Så gentager jeg lige:

"den løsning jrl0469 har givet dig, virker således at man ikke kan bruge æøå osv. på en TEXTBOX ved navn txtID der skal være på din form i dit VBprogram. "

"Hvis det er det du vil er det ikke så simpelt - hvis det da overhovedet kan lade sig gøre!!!"

jep, jep! Den er feset ind!

*men det kan jeg jo ikke rigtig bruge til noget!

Nu kommer min bror, 15, også nybegynder i visual basic. Han spørger hvordan man kan minimere et program til tray, og hvordan man kan sende en popup, msgbox, efter fx 5 sek..

Hvis nogen har svaret på det, vil der selvfølglig blive lagt 15 point oven i!

Den er feset ind - hvorfor skriver du så
  "Ka ik få det til at virke, men kan godt se ideén! ".
Hmmm?

Kan desværre ikke hjælpe mere end at sige, at det du og jrl0469 har gang i slet ikke har noget med dit problem at gøre...

"men kan godt se ideén!", er at jeg godt kan se ideén med at den skulle virke i txtID.

Får nok ingen ting ud af det her, jrl0469 du kan kontakte mig på ttjarloev@frac.dk. Men ellers tak for hjælpen!

systray:

Fx.

  http://www.eksperten.dk/spm/176018

ellers generelt:

http://www.eksperten.dk/kat/5?searchtype=txt&words=systray&method=and&sort=score&catid=5

Mht. at gøre noget efter X set, se jrl0469 allerede har givet i denne tråd.

At sende en msgbox:

msgbox "Hej med dig", vbokonly, "Hej"

kigger lige!