🚀 go-pugleaf

On Mon, 7 Feb 2000 22:36:25 +0100, "Elektron"
<pascal.lieckens@skynet.be> wrote:

werk met de source.name (let op, case sensitive dan)
in je code staat ook niks met een "tag" aanpassing.

probeer volgende eens, typfouten wel wegwerken he ;-)

-----------
Private Sub PictureBox1_Dragdrop(Source As Control, X As Single, Y As
Single)
    
    If Source.Name = "PictureBox2" Then
        PictureBox1.Tag = PictureBox2.Tag
    End If

End Sub
-----------



>Ik heb een picturebox met als afbeelding bv. een icoontje.
>Nu wil ik dit icoontje verslepen naar een tweede picturebox.
>Zover geen probleem.
>Nu heb ik de TAG - property van de eerste picturebox de waarde 1 gegeven ,
>met als doel de TAG - property van de tweede picturebox te laten wijzigen in
>1om er een test op uit te voeren.
>Dit lukt echter niet , de TAG - property wordt niet gewijzigd.Ik gebruik de
>volgende code :
>  Private Sub Pict1_DragDrop(Source as Control, X as Single, Y as Single)
>    If TypeOf Source Is PictureBox then
>              Pict1.Picture = Source.Picture
>    End If
>  End Sub
>Waar zit ik verkeerd ?
>                                                      Bedankt bij voorbaat
>
>

Avenger

remove  the obvious from e-mail
----------------------------------------------
Windows9x Faq : www.crosswinds.net/~windows9x
----------------------------------------------
Till all are one!