Hjælpe: Knapper ud fra 2 Billeder hvordan ?

Hvis hver tast på dit "keyboard" er et selvstændigt billedet (dvs du skal have et billede for hver knap på dit keyboard), kan du når der trykkes på den enkelte tast loade et andet billede, der viser tasten i nedtrykket tilstand.

Eller har jeg misforstået dit problem?

Nej jeg skal trykke på billedet på skørmet hvorpå der så er et tastatur. Således at hvis jeg f.eks på trykker på A på billedet så viser den kun lige det område A knappen fylder fra den anden billede af sådan så man får en visuel efekt af at knappen blev trykket ned.

Vil jo helst undgå at at skulle have så mange enkelt billeder sår skal jo ellers 2 billed filer til for hver knap.

Så er evt at lave en config fil der fortæller hvilket pixel område hver kanp befinder sig indne for. Er så det er nemmere at lave forskellige Skins til programmet.

Det tror jeg ikke du kan i VB6. Tror du bliver nødt til at tage hver tast for sig... Men jeg er ikke 100% sikker

Jeg ved det er muligt, for ideen er fra FreeDrive af som netop gør brug af denne funktion. Og det er fuldstændig bygget op i VB 6
http://www.freedrive.co.uk/

ok - jeg springer fra så - det er ikke noget jeg har forstand på :o(

Du kan godt lave det med BitBlt.

Lav 2 picture-kontroller med de to billeder. De kan gøres usynlige.
Lav en tredie Picture-kontrol hvorpå du tegner.

Nu skal du have en variabel der indeholder x- og y-placering (øverste venstre hjørne) i pixels for samtlige knapper.
Derudover skal variablen indeholde bredde og højde i pixels for samtlige knapper.

Det nemmeste er at erklære en type f.eks.

Type KnapDimensions
    lX as long
    lY as long
    lWidth as long
    lHeight as long
End Type

Public tKnapper(1 to 42) As Knapdimensions (der er 42 knapper).

Ved initialiserning af programmet (f.eks. i Form_Load) fyldes tKnapper.
Du kan gøre det manuelt, og skrive 4x42 linier kode, eller lave noget beregning; -De fleste knapper har jo samme størrelse, og er placeret i et gitter.

Styring kan foregå med Mouse_Down og Mouse_Up i Picture-kontrollen.
I Mouse_Down (og _Up) får du musens X- og Y-koordinater.

Nu er det en forholdsvis simpel sag at tjekke hvilken knap der er trykket på, og derefter tegne den enten som Op eller Ned.
-F.eks. Tegne Ned-billedet ved Mouse_Down, og Op-billedet ved Mouse_Up.

Du løber igennem tknapper f.eks. sådan:

Dim lIndex as long, i as long (X og Y er input fra Mouse_Eventet)

For i=1 to 42
    If X > tKnapper(i).lX And X < (tKnapper(i).lX + tKnapper(i).lWidth) And Y > tKnapper(i).lY And Y < (tKnapper(i).lY + tKnapper(i).lHeight) Then
        lIndex=i
        Exit For
    End if
Next i
-Det kan godt være der skal justeres lidt med +/- 1 hist og her -prøv dig frem.

Når du ved hvilken knap der er trykket på, så tegner du med BitBlt:

Call BitBlt(-hDC-for-den-Picture-kontrol-der-tegnes-på, tKnapper(lIndex).lX, tKnapper(lIndex).lY, tKnapper(lIndex).lWidth, tKnapper(lIndex).lHeight, -hDC-for-den-Picture-kontrol-der-indeholder-det-billede-du-vil-tegne, tKnapper(lIndex).lX, tKnapper(lIndex).lY, vbSrcCopy)

Puha det var en mundfuld. Men må lige se om jeg kan få sat en eksempel samme der gør brug af denne kode. For den er nu ikke sådan til at oversku specielt ikke den sidste del.
For en funktion til at finde ud af hvilken knap der trykeks på har jeg fået lavet ved at checke på indne for hvilke pixels der er blevet trykket på billedet.

Skal der loades noget specielt for at gøre brug af BitBlt ?

Ang. BitBlt:

Der kræves ikke noget specielt, men du skal huske at erklære den i toppen af et modul eller en form:

Public Declare Function BitBlt Lib "gdi32" _
    (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, _
    ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, _
    ByVal ySrc As Long, ByVal dwRop As Long) As Long

Jeg har lavet et lille testprogram, hvor du kan se hvordan koden fungerer:

http://www.home1.stofanet.dk/5soft/v9cxjk4l/Knapper.zip
-Et MEGET kommenteret projekt.
Dette link vil være aktivt et par uger.

Der er dog forskellige ting der skal justeres; f.eks. hvis en bruger klikker ned på en knap og derefter trækker musen udenfor området før museknappen slippes.

Men, det er blot finjusteringer, der kan klares med lidt errorhandling.

blæret !

Jamen det var jo lige nøjagtig sådan noget jeg søgte. Så siger ihverfald 1000 tak.