afbeelding weergeven bij mousepointer over image

Status
Niet open voor verdere reacties.
r3000

r3000

Gebruiker
Lid geworden
27 mei 2010
Berichten
150
ik zoek een code die een afbeelding in het groot weergeeft als je in een userform je met de muis over image gaat. (die image is de kleine versie van de afbeelding)
 
html gedeelte


Code (php)

PHP script in nieuw venster Selecteer het PHP script


Code: 
<html>
  <script src="js.js" language="javascript" type="text/javascript"></script>
  <head>
    <title>foto vergroten bij onMouseOver</title>
    <LINK REL=stylesheet HREF="style.css" TYPE="text/css">
  </head>
  <body>
    <img src="image.jpg" onMouseover="vergrootFoto(this);" onMouseout="verkleinFoto(this);" width="100px"/>
  </body>
</html>

javascript gedeelte (js.js)


Code (php)

PHP script in nieuw venster Selecteer het PHP script

Code: 
function vergrootFoto(foto)
{
  foto.style.width = 500;
}

function verkleinFoto(foto)
{
  foto.style.width = 100;
}
 
@r3000 Je bent je er van bewust dat dit in de Visual Basic for Applications sectie staat? VBA is programmeren binnen Office applicaties en is iets anders dan Visual Basic.
 
Ik ben inderdaad op zoek naar een code voor VBA. Dus geen html oid.
 
Laatst bewerkt door een moderator:
Toch bedankt voor de moeite timmb!
 
Laatst bewerkt door een moderator:
Volgens mij kan je niet buiten de "Image" lijnen treden.
Je bedoeling is eigenlijk ongeveer zoiets?

Code: 
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 Image1.PictureSizeMode = 3
End Sub
Code: 
Private Sub UserForm_Initialize()
 Image1.Picture = LoadPicture("D:\Mijn Afbeeldingen\r3000.jpg")
 Image1.PictureSizeMode = 1
End Sub
Code: 
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 Image1.PictureSizeMode = 1
End Sub
 
Wat je ook kan doen is twee images achter elkaar plaatsen.
De tweede groter dan de eerste.
Code: 
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 Image2.Visible = True
 Image1.Visible = False
End Sub
 
Private Sub UserForm_Initialize()
 Image1.Picture = LoadPicture("D:\Mijn Afbeeldingen\r3000.jpg")
 Image2.Picture = LoadPicture("D:\Mijn Afbeeldingen\r3000.jpg")
 Image2.Visible = False
 Image1.PictureSizeMode = 1
 Image2.PictureSizeMode = 1
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Image1.Visible = True
Image2.Visible = False
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan