danfredr Skrevet 13. juni 2003 Del Skrevet 13. juni 2003 Finnes det en kode som forstrørrer et bilde når jeg tar muspekeren over bilde og når jeg tar muspekeren bort fra bilde så blir det normal størrelse på bilde ? Dette er i Visual Basic 6 Hålder på å lage egen desktop til pcen min i windows som ligner på MAC OS X bare på morro Lenke til kommentar
bfisk Skrevet 13. juni 2003 Del Skrevet 13. juni 2003 lenge, leenge siden jeg har drevet med VB nå men here goes et forslag. det finnes vel en vent som heter mouseOver eller noe. hvis objektet heter imgDummy feks, kan du lage et elelr anna som noe i retning av private sub imgDummy.MouseOver() oldx=imgDummy.width oldy=imgDummy.height imgDummy.height=y imgDummy.width=x end sub private sub imgDummy.mouseaway() imgDummy.height=oldy imgDummy.widt=oldx end sub nå husker jeg ikke syntaks eller slikt for to øre, som sagt mange år siden jeg drev med dette, men jeg tror jeg kan være inne på noe. altså, lage kode ved events mouseover og mouseaway (eller noe slikt. mener da det finnes slike events?) hvor du endrer parameterne til bildet. koden over er bare et slags forslag, syntaks og slikt husker jeg som sagt ikke, men det er mulig dette kan være veien og gå. ikke skyt meg hvis jeg tar feil. bfisk Lenke til kommentar
danfredr Skrevet 14. juni 2003 Forfatter Del Skrevet 14. juni 2003 Jeg må ha den i 1 kode Lenke til kommentar
CronoMan Skrevet 17. juni 2003 Del Skrevet 17. juni 2003 dette er jo dog latterlig enkelt... men hva mener du med "i en kode"? Du må ha to events; mouseenter og mouseleave men disse finnes ikke i VB6, så derfor må du sette ned størrelsen på det forrige bildet igjen når mousemove eventen blir kalt på formen, eller andre bilder som måtte være der. så det lar seg ikke gjøre i en kode nærmest for at bildet skal sette opp størrelsen, må du bruke en image control, og sette stretch = true public sub sizeUp(oPicture as Image) static oldPicture as Image if Not oldPicture Is Nothing then oldPicture.width = 32 oldPicture.height = 32 end if if Not oPicture Is Nothing then set oldPicture = oPicture oldPicture.width = 64 oldPicture.height = 64 else set oldPicture = Nothing end if end sub og på alle image controler så må du kalle sizeUp(<image-controllen>) og på formen må du kalle sizeUp(Nothing) dette er også bare et forslag, og jeg prøvde å lage det i en kode. Problemet med denne er at jeg skrev den i farta, så det er ikke sikkert at den funker. men jeg hadde ikke noe annet å finne på Lenke til kommentar
Anbefalte innlegg
Opprett en konto eller logg inn for å kommentere
Du må være et medlem for å kunne skrive en kommentar
Opprett konto
Det er enkelt å melde seg inn for å starte en ny konto!
Start en kontoLogg inn
Har du allerede en konto? Logg inn her.
Logg inn nå