Solved

How can I make the image I drag on the picture semi transparent

Posted on 2009-07-03
6
329 Views
Last Modified: 2012-05-07
How do I refresh the picture to remove the semi transparent overlays
How do I move the semi transparent over lays
you gave me code on how to drag pictures on top of each other
you had suggested just dragging a rubberband around and the redrawing in the spot it is dropped
below is the code that you gave me slightly modified
Private Sub Newpicture(ByVal location As Point, ByVal img As Image)

        Dim pic As New PictureBox

               pic.Image = img 'Image.FromFile("C:\Documents and Settings\Dov\My Documents\My Pictures\brains upload.bmp")

        AddHandler pic.MouseUp, AddressOf pic_Mouseup

        AddHandler pic.MouseDown, AddressOf pic_MouseDown

        AddHandler pic.MouseMove, AddressOf pic_MouseMove

        Me.Controls.Add(pic)

        pic.Parent = PictureBox1

        pic.BringToFront()

        pic.Location = location

        pictureb.Add(pic)

 Private Sub pic_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)

        If e.Button = Windows.Forms.MouseButtons.Left Then

            startPt = New Point(e.X, e.Y)

        End If

    End Sub

    Private Sub pic_mouseup(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)

        If e.Button = Windows.Forms.MouseButtons.Left Then

            For Each ctl As Control In pictureb

                If (Not (ctl Is sender)) AndAlso (sender.Bounds.IntersectsWith(ctl.Bounds)) Then

                    MsgBox("l") ' ...you have a "collision"...

                End If

            Next
 

        End If

    End Sub
 

    Private Sub pic_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)

        If e.Button = Windows.Forms.MouseButtons.Left Then

            Dim pic As PictureBox = CType(sender, PictureBox)

            pic.Location = New Point(pic.Location.X + (e.X - startPt.X), pic.Location.Y + (e.Y - startPt.Y))

        End If

    End Sub

Open in new window

0
Comment
Question by:Dov_B
  • 3
  • 3
6 Comments
 
LVL 85

Accepted Solution

by:
Mike Tomlinson earned 500 total points
ID: 24831165
Hey Dov_B,

Sorry I haven't gotten to this sooner.   =\

The overlay code in the related question is NOT compatible with the code in this question.

There are two mutually exclusive approaches:
(1) Transparency thru floating windows (each PictureBox in its own form).
(2) Transparency thru composite imaging (as demonstrated in the related question).

With #2, you only have ONE PictureBox and all the different images are drawn into a single image.  The code in this question is creating multiple PictureBoxes.

Do you want to extend the RELATED question code so that you can move around the images?
...or heavily modify this code to demonstrate #1?
0
 

Author Comment

by:Dov_B
ID: 24839911
Thank you for your help
I probably dont know enough to answer your question
what my gut instinct tells me is to go with the simplest method
let me tell you a bit more what I have in mind
I have one large image onto which I want to overlay smaller images
I could probably just group the smaller images on the edge of the form
click the one I wish to select
then click on the spot on the larger image where I want to overlay it
then just have the code which you used to mix the images into one picturebox do its thing
how would I do that?
then I guess when I wanted to remove the overlays I would simply empty the picture box and reload the original background image
0
 

Author Comment

by:Dov_B
ID: 24839956
I would like if possible to have just say some kind of square the size of the image to follow the mouse movements over the background image so that the user sees where he is going to end up putting it
0
How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

 

Author Comment

by:Dov_B
ID: 24910279
I want to extend the RELATED question code so that you can move around the images
0
 
LVL 85

Expert Comment

by:Mike Tomlinson
ID: 24910310
I'll see if I can code something up for you this week...   =)
0
 
LVL 85

Expert Comment

by:Mike Tomlinson
ID: 24940117
Apologies Dov_B...I keep letting this one slide to the bottom of my "inbox".  =\

Just been busy this week running around w/ the kids as it's summertime.

I promise to get something on this posted soon!
0

Featured Post

IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

Well, all of us have seen the multiple EXCEL.EXE's in task manager that won't die even if you call the .close, .dispose methods. Try this method to kill any excels in memory. You can copy the kill function to create a check function and replace the …
The ECB site provides FX rates for major currencies since its inception in 1999 in the form of an XML feed. The files have the following format (reducted for brevity) (CODE) There are three files available HERE (http://www.ecb.europa.eu/stats/exch…
This video shows how to remove a single email address from the Outlook 2010 Auto Suggestion memory. NOTE: For Outlook 2016 and 2013 perform the exact same steps. Open a new email: Click the New email button in Outlook. Start typing the address: …
This video demonstrates how to create an example email signature rule for a department in a company using CodeTwo Exchange Rules. The signature will be inserted beneath users' latest emails in conversations and will be displayed in users' Sent Items…

747 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

13 Experts available now in Live!

Get 1:1 Help Now