Diskuze: Visual Basic - Posun obrázku v PictureBoxu

Sparklezz

Člen

Sparklezz:10.7.2015 14:34

Když mám vlastně PictureBox1 o nějaké velikosti (např. 800x400) a v něm obrázek 1920x1080. Dá se nejak udělat to, že najedu na ten PictureBox1 a tahem myší budu v tom boxu posouvat ten obrázek? Děkuji

Odpovědět

10.7.2015 14:34

Jan Vargovský

Tvůrce

Jan Vargovský:10.7.2015 18:07

Ano dá.

Nahoru Odpovědět

10.7.2015 18:07

Sparklezz

Člen

Sparklezz:10.7.2015 18:31

A mohu se zeptat jak? díky

Nahoru Odpovědět

10.7.2015 18:31

Jan Vargovský

Tvůrce

Jan Vargovský:10.7.2015 18:44

Chceš jen nějaký nápad co k tomu budeš asi potřebovat nebo i kód?

Nahoru Odpovědět

10.7.2015 18:44

Sparklezz

Člen

Sparklezz:10.7.2015 18:47

Poprosil bych asi ze vším všudy jestli mlžeš, děkuji

Nahoru Odpovědět

10.7.2015 18:47

Jan Vargovský

Tvůrce

Jan Vargovský:10.7.2015 20:14

public partial class Form1 : Form
{
    private Image image;
    private Point point;
    private Point pointOnClickDown;

    /// <summary>
    /// indicates if image is rendered in realtime during shift
    /// </summary>
    bool realTimeShift = true;
    bool isMousePressed;

    public Form1()
    {
        InitializeComponent();

        // panel which is used to draw image
        Panel p = new Panel()
        {
            Width = 300,
            Height = 300
        };

        // see http://stackoverflow.com/a/15815254
        // prevents flickering
        // its done by this way, because its access modification is protected
        typeof(Panel).InvokeMember("DoubleBuffered",
        BindingFlags.SetProperty | BindingFlags.Instance | BindingFlags.NonPublic,
        null, p, new object[] { true });
        this.Controls.Add(p);

        image = Image.FromFile("Untitled.png");
        point = Point.Empty;

        // draw image
        p.Paint += (o, e) =>
        {
            Graphics g = e.Graphics;
            //g.CompositingQuality = System.Drawing.Drawing2D.CompositingQuality.AssumeLinear;
            g.DrawImage(image, point);
        };

        p.MouseDown += (o, e) =>
        {
            // store starting position
            pointOnClickDown = e.Location;
            isMousePressed = true;
        };

        p.MouseUp += (o, e) =>
        {
            if (!realTimeShift)
            {
                // calculates difference between two points
                Point shift = new Point(e.Location.X - pointOnClickDown.X, e.Location.Y - pointOnClickDown.Y);
                // refresh position of image - shift it with some direction
                point.Offset(shift);
                // force refresh on panel
                p.Invalidate();
            }
            isMousePressed = false;
        };

        p.MouseMove += (o, e) =>
        {
            if (realTimeShift && isMousePressed)
            {
                // calculates difference between two points
                Point shift = new Point(e.Location.X - pointOnClickDown.X, e.Location.Y - pointOnClickDown.Y);
                // refresh position of image - shift it with some direction
                point.Offset(shift);
                // store starting position
                pointOnClickDown = e.Location;
                // force refresh on panel
                p.Invalidate();
            }
        };
    }
}

Editováno 10.7.2015 20:15

Akceptované řešení
+20 Zkušeností
+2,50 Kč

Nahoru Odpovědět

10.7.2015 20:14

Sparklezz

Člen

Sparklezz:10.7.2015 20:29

A do jaké složky to mám vrznout?

Nahoru Odpovědět

10.7.2015 20:29

Sparklezz

Člen

Sparklezz:10.7.2015 20:30

A delam to ve VB.net ne v C

Nahoru Odpovědět

10.7.2015 20:30

Ondřej Štorc

Tvůrce

Ondřej Štorc:10.7.2015 20:58

Zjevně nevíš nic o práci s WinFormi, zkus se kouknout na zdejší návody, pak by ti to mělo být jasný kam to dát http://www.itnetwork.cz/…indows-forms

Nahoru Odpovědět

10.7.2015 20:58

Život je příliš krátký na to, abychom bezpečně odebírali USB z počítače..

Jan Vargovský

Tvůrce

Jan Vargovský:10.7.2015 21:03

Ah, nevšiml sem si toho názvu... Si to dej do nějakého konverteru nebo popros Michal Žůrek - misaz, aby ti to přepsal

Nahoru Odpovědět

10.7.2015 21:03

Michal Žůrek - misaz

Tvůrce

Michal Žůrek - misaz:10.7.2015 21:05

konvertor (dneska výjimečně funguje, to se mi už dlouho nestalo):

Public Partial Class Form1
        Inherits Form
        Private image As Image
        Private point As Point
        Private pointOnClickDown As Point

        ''' <summary>
        ''' indicates if image is rendered in realtime during shift
        ''' </summary>
        Private realTimeShift As Boolean = True
        Private isMousePressed As Boolean

        Public Sub New()
                InitializeComponent()

                ' panel which is used to draw image
                Dim p As New Panel() With { _
                        Key .Width = 300, _
                        Key .Height = 300 _
                }

                ' see http://stackoverflow.com/a/15815254
                ' prevents flickering
                ' its done by this way, because its access modification is protected
                GetType(Panel).InvokeMember("DoubleBuffered", BindingFlags.SetProperty Or BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, p, New Object() {True})
                Me.Controls.Add(p)

                image = Image.FromFile("Untitled.png")
                point = Point.Empty

                ' draw image
                p.Paint += Function(o, e)
                Dim g As Graphics = e.Graphics
                'g.CompositingQuality = System.Drawing.Drawing2D.CompositingQuality.AssumeLinear;
                g.DrawImage(image, point)

End Function

                p.MouseDown += Function(o, e)
                ' store starting position
                pointOnClickDown = e.Location
                isMousePressed = True

End Function

                p.MouseUp += Function(o, e)
                If Not realTimeShift Then
                        ' calculates difference between two points
                        Dim shift As New Point(e.Location.X - pointOnClickDown.X, e.Location.Y - pointOnClickDown.Y)
                        ' refresh position of image - shift it with some direction
                        point.Offset(shift)
                        ' force refresh on panel
                        p.Invalidate()
                End If
                isMousePressed = False

End Function

                p.MouseMove += Function(o, e)
                If realTimeShift AndAlso isMousePressed Then
                        ' calculates difference between two points
                        Dim shift As New Point(e.Location.X - pointOnClickDown.X, e.Location.Y - pointOnClickDown.Y)
                        ' refresh position of image - shift it with some direction
                        point.Offset(shift)
                        ' store starting position
                        pointOnClickDown = e.Location
                        ' force refresh on panel
                        p.Invalidate()
                End If

End Function
        End Sub
End Class

Nahoru Odpovědět

10.7.2015 21:05

Sparklezz

Člen

Sparklezz:10.7.2015 21:34

A do čeho to mám dát prosím vás? do toho pictureboxu?

Nahoru Odpovědět

10.7.2015 21:34

Sparklezz

Člen

Sparklezz:10.7.2015 21:37

a vyskakuje mi tam chyba.... u např. p.MouseUP , p.Invalidate (To je písmeno "p" je označeně špatně)

Nahoru Odpovědět

10.7.2015 21:37

Michal Žůrek - misaz

Tvůrce

Michal Žůrek - misaz:10.7.2015 21:38

začni tím, že se naučíš základy jazyka.

Nahoru Odpovědět

10.7.2015 21:38

Sparklezz

Člen

Sparklezz:10.7.2015 21:42

Stačilo by jen kdybyste mě jen navedli... Tohle mi chybí jako poslední v programu. Já sem grafik ne koder, děkuji za vše

Nahoru Odpovědět

10.7.2015 21:42

Michal Žůrek - misaz

Tvůrce

Michal Žůrek - misaz:10.7.2015 22:02

to tě neomlouvá.

Nahoru Odpovědět

10.7.2015 22:02

Sparklezz

Člen

Sparklezz:10.7.2015 22:27

To je sice pravda, ale když slušně prosím.... ale mně je to řiť

Nahoru Odpovědět

10.7.2015 22:27

David Hartinger

Vlastník

David Hartinger:10.7.2015 22:32

Uvědom si, že jsi napsal na fórum, kde si radíme, neděláme tady práci za druhé. Kluci ti to celé napsali a ty si to ani nedokážeš vložit do projektu a ještě si stěžuješ? Jestli si chceš nechat napsat aplikaci, tak si zadej zakázku - http://www.itnetwork.cz/…-v-it/submit a zaplať si za to. Jestli chceš pomoct, tak ti pomůžeme rádi, ale budeš se muset snažit. A nás nezajímá že jsi grafik, to je jako by mi zedník zadarmo něco opravil protože sem programátor? Fakt se zamysli nad tím co pro tebe tady udělali a co jsi pro ně udělal ty.

Nahoru Odpovědět

10.7.2015 22:32

New kid back on the block with a R.I.P

Michal Žůrek - misaz

Tvůrce

Michal Žůrek - misaz:10.7.2015 22:40

Dostal jsi kompletní řešení ve dvou programovacích jazycích, třeba nějaké "děkuju"?

Nahoru Odpovědět

10.7.2015 22:40

Sparklezz

Člen

Sparklezz:11.7.2015 0:29

Dobře uznávám svoji chybu a omlouvám se. Mohu se tedy zeptat, jak to udělat skrz VScrollBar a HScrollBar? Jen prosím říct jak, já si tedy zbytek udělám. Děkuju za vše

Nahoru Odpovědět

11.7.2015 0:29

Jan Vargovský

Tvůrce

Jan Vargovský:15.7.2015 20:00

Kdybys klikl na odpovědět, tak by si toho třeba někdo všiml. Pořád to nemáš hotové?

Nahoru Odpovědět

15.7.2015 20:00

David Mlčoch

Tvůrce

David Mlčoch:2.8.2015 20:11

nn nemám to hotové, proste to nejde

Nahoru Odpovědět

2.8.2015 20:11