None Border Style Fenster Bewegbar machen

DerNetteNachbar · 23. Mai 2012, 19:24

Hallo.
Ich habe eine Form ohne Ramen, habe oft gegooglet und auch schon einige Codes versucht aber hab es nie hinbekommen!
Kann mir einer sagen wie ich es hinbekomme?

Suche schon seid mehr als eine Woche und finde 0, nix!

Währe nett wenn mir jemand bei dem Problem helfen könnte

Währe sehr dankbar für eine Step 4 Step anleitung

Liebe Grüße der NetteNachbar

Dancger · 23. Mai 2012, 19:30

Hey.

Du solltest dir mal diesen Code anschauen, kannste theoretisch nur kopieren:
vbarchiv.net/tipps/tipp_1561-v…ster-ohne-titelzeile.html

Mfg Dancger

Myrax · 23. Mai 2012, 19:33

Öffne die Codeansicht, geb dort formDrag und zweimal Enter ein. Dann führ dein Projekt mal aus und seh, was passiert.

DerNetteNachbar · 23. Mai 2012, 19:36

Wenn ich das in Code ansicht Form1. (Hauptform) Reinkopiere sagt er "Deklaration Erwartet"

Edit by Manschula: (Unnötiges) Vollzitat entfernt

SystemUnknow · 23. Mai 2012, 19:57

was für deklaration ?

der_Kurt · 23. Mai 2012, 19:58

Myrax meinte eigentlich die Tabulator-Taste.
[VB 2010] Form ohne Rahmen ohne aufwendige APIs verschieben

Diese Frage ist Dauergast. Eine Googlesuche deiner Überschrift bringt dich auch nicht weiter?

DerNetteNachbar · 23. Mai 2012, 20:10

Soweit so gut aber ich bekomme dabei Fehler.

Der Name "MouseOffset" wurde nicht Deklariert

und

Eine Anweisung kann nicht innerhalb eines Mehthodentexts verwendent werden. Das methodenende wird angenommen

.. wenn jemand dazu noch eine lösung hätte währe ich sehr dankbar

Monte · 23. Mai 2012, 20:13

VB.NET-Quellcode

Dim mouseOffset As Point
Private Sub Me_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseDown
mouseOffset = New Point(-e.X, -e.Y)
End Sub
Private Sub Me_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseMove
If e.Button = MouseButtons.Left Then
Dim mousePos = Control.MousePosition
mousePos.Offset(mouseOffset.X, mouseOffset.Y)
Location = mousePos
End If
End Sub

Du musst doch einfach nur Rechtsklick -> Ausschnitt hinzufügen -> Windows Forms -> Formulare -> Fenster ohne.... verschieben klicken und der Code wird automatisch generiert

Hey, das ganze muss nicht ins LoadEvent sondern in die Klasse ansich.

mfg

DerNetteNachbar · 23. Mai 2012, 20:14

Das geht auch! Aber dadurch entstehen mir Fehler

img0.www.suckmypic.net/img/7/k/2D3fqr19/Fehler.png

Monte · 23. Mai 2012, 20:16

Hey, die Exception ist toll (sie sagt: du hast mouseOffset nicht deklariert), zeig mal bisschen Code.

DerNetteNachbar · 23. Mai 2012, 20:18

VB.NET-Quellcode

Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
Form3.Show()
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
Form3.Show()
End Sub
Private Sub PictureBox9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Private Sub Me_MouseDown(ByVal sender As Object, _
ByVal e As MouseEventArgs) _
Handles MyBase.MouseDown
Picturebox9 = New Point(-e.X, -e.Y)
End Sub
Private Sub Me_MouseMove(ByVal sender As Object, _
ByVal e As MouseEventArgs) _
Handles MyBase.MouseMove
If e.Button = MouseButtons.Left Then
Dim mousePos As Point = Control.MousePosition
mousePos.Offset(mouseOffset.X, mouseOffset.Y)
Location = mousePos
End If
End Sub
Private Sub PictureBox9_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub

der_Kurt · 23. Mai 2012, 20:53

Dir fehlen eindeutig die Grundverständnisse der Programmiersprache. Wenn dir nicht auffällt, dass nach Zeile 13 (einer SUB-Deklaration) das anschließende 'End Sub' fehlt, dann sind sämtliche Hilfen von uns nur Kosmetik.
Ich bitte dich, dir die Grundlagen von VB reinzuziehen. Das ist ein notwendiger Schritt.

Topic: Kopiere den von Monte geposteten Code DIREKT unter die Deklaration der Klasse. Achte darauf, dass jede Sub irgendwann mal durch ein End Sub abgeschlossen ist.

DerNetteNachbar · 23. Mai 2012, 21:07

Naja das mit dem NoneBorderStyle habe ich halt noch nie gemacht. Hab nun alle Fehler bis auf

Der Name "mouseOffset" wurde nicht deklariert.

Behoben ... wie krieg ich denn "Mouseoffset" Deklariert?

Monte · 23. Mai 2012, 21:14

Hey,

bitte beschäftige dich mal mit den Grundlagen (was heißt den wohl deklarieren :?:

). Außerdem brauchste doch nur meinen Code (der automatisch generiert wird wenn du die Schritte ausführst) in deine Klasse einfügen.

mfg

DerNetteNachbar · 23. Mai 2012, 21:28

Danke hat geklappt

Danke an alle die geholfen haben!

RodFromGermany · 24. Mai 2012, 07:23

@Monte:
Genau diese Zeile wird bei FormDrag + Tab nicht mit generiert.

Bluespide · 24. Mai 2012, 13:16

das kürzeste das ich kenne ist:

VB.NET-Quellcode

Protected Overrides Sub WndProc(ByRef m As Message)
If m.Msg = &H84 Then m.Result = &H2 Else MyBase.WndProc(m)
End Sub

None Border Style Fenster Bewegbar machen

None Border Style Fenster Bewegbar machen

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

5 Benutzer haben hier geschrieben