Frage : Resiable Kontrollen, Windows

Hallo, möchten
I einen Gegenstand verursachen, entweder eine Form oder eine andere Art Behälter, der ich einen Statusstab mit einem Zupackenhandgriff an setzen kann, um den Behälter die Größe neu zu bestimmen.  Der Behälter hat einen Statusstab und eine Listensteuerung.  Ich möchte den Behälter haben, der using den Statusstab-Zupackenhandgriff resizable ist, aber ich wünsche den Behälter, indem ich auf der Oberseiten-, links oder rechtenecke des containger (Form, Verkleidung, etc.) - ich, beträchtlich nicht sein klicke kann keine Verkleidung, um using einen Statusstab resizable zu sein oder in der Tat resizabe erhalten überhaupt.  Ich kann ihn erhalten die Weise bearbeitend, die ich wünsche, indem ich einen Statusstab auf eine Form setze, dann die Form mit dem Liste boxb füllend aber andererseits kann der Benutzer die Form die Größe neu bestimmen, indem er auf einem Rand der Form (Spitzen-, link, recht). klickt.   in Wirklichkeit wünsche ich einen Behälter, der rechts und unten die Größe neu bestimmt, aber nicht von der Oberseite oder vom left.

I morgens versuchend zum acccomplist anzeigt ein Tropfen unten, der kombiniert ist dann, den Listenkasten mit verschiedenen Werten in ihm m.  Ich hoffe, der frei ist, wenn Sie nicht mir gelassen, wissen….

Antwort : Resiable Kontrollen, Windows

Die links- und Oberseitenwerte an wie in diesem Beispiel redigiert werden einfach verhindern. Nur die Notwendigkeit des Verhältnisses etwas Justage, aber Sie sollten in der Lage sein, das herauszufinden.

Namespace WindowsFormsApplication2
      Allgemeine teilweise Kategorie Form1
            Übernimmt Form
            Const MAXIMUM als ganze Zahl = 800
            Privates links als ganze Zahl = 0, Oberseite als ganze Zahl = 0, Breite als ganze Zahl = 0, Höhe als ganze Zahl = 0, deltaResize als ganze Zahl = 0
            Privat startResize, wie Boolesch = falsch
            Allgemeine Vorneue ()
                  InitializeComponent ()
            Enden-Unterseeboot

            Privates Unterseeboot Form1_ResizeEnd (Absender als Gegenstand, e als EventArgs)
                  Wenn Form1.ActiveForm.Left <> dann verließ
                        Form1.ActiveForm.Left = verließ
                  Beenden wenn
                  Wenn Form1.ActiveForm.Top <> Oberseite dann
                        Form1.ActiveForm.Top = Oberseite
                  Beenden wenn
                  Wenn Form1.ActiveForm.Width > MAXIMUM dann
                        Form1.ActiveForm.Width = MAXIMUM
                  Beenden wenn

                  Schwach als ganze Zahl = Breite formResize - Form1.ActiveForm.Width
                  ratioFormBar als einzelnes verdunkeln = MAXIMUM/progressBar1.Width
                  Versuch
                        progressBar1.Value = progressBar1.Value - CInt (Math.Floor (formResize /ratioFormBar))
                  Fang
                        Wenn progressBar1.Value - CInt (Math.Floor (formResize /ratioFormBar)) <� 0="" Then="">                              progressBar1.Value = 0
                        Beenden wenn
                        Wenn progressBar1.Value - CInt (Math.Floor (formResize /ratioFormBar)) > MAXIMUM dann
                              progressBar1.Value = MAXIMUM
                        Beenden wenn
                  Versuch beenden
            Unterseeboot beenden

            Privates Unterseeboot Form1_ResizeBegin (Absender als Gegenstand, e als EventArgs)
                  Wenn Form1.ActiveForm IsNot nichts dann
                        links = Form1.ActiveForm.Left
                        Oberseite = Form1.ActiveForm.Top
                        Breite = Form1.ActiveForm.Width
                        Höhe = Form1.ActiveForm.Height
                  Beenden wenn
            Unterseeboot beenden

            Privates Unterseeboot Form1_Activated (Absender als Gegenstand, e als EventArgs)
                  progressBar1.Value = Form1.ActiveForm.Left
                  progressBar1.Maximum = MAXIMUM
                  Breite = Form1.ActiveForm.Width
                  Höhe = Form1.ActiveForm.Height

            Enden-Unterseeboot

            Privates Unterseeboot progressBar1_MouseDown (Absender als Gegenstand, e als MouseEventArgs)
                  Wenn e.Button = MouseButtons.Left dann
                        deltaResize = e.X
                        startResize = ausrichten
                  Beenden wenn
            Unterseeboot beenden

            Privates Unterseeboot progressBar1_MouseUp (Absender als Gegenstand, e als MouseEventArgs)
                  Wenn e.Button = MouseButtons.Left AndAlso dann startResize
                        Schwaches mouseMovement als ganze Zahl = e.X - deltaResize
                        ratioFormBar als einzelnes verdunkeln = MAXIMUM/progressBar1.Width
                        Form1.ActiveForm.Width = Form1.ActiveForm.Width + CInt (Math.Floor (mouseMovement * ratioFormBar))
                        startResize = ausrichten
                  Beenden wenn

            Unterseeboot beenden
      Kategorie beenden
Namespace beenden