Er zijn 27 reacties in dit onderwerp

[demodownload]

Dus:

Waarschijnlijk kijk ik erover, of voel ik me oppeens verschrikkelijk dom maar bon! here goes:

Als je rechts klikt op een bestaand control (label) kan je deze opmaken, tekst veranderen etc etc etc.

Nu wil ik dat het mogelijk word deze control te verslepen en terug vast te zetten als "verslepen" is checked, unchecked.

Visual Basic Code:

	Const WM_NCLBUTTONDOWN As Integer = &HA1
	Const HTCAPTION As Integer = 2
	Private Sub VerplaatsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VerplaatsToolStripMenuItem.Click
		If VerplaatsToolStripMenuItem.Checked = True Then
			lblTitel.Capture = False
			Dim msg As Message = Message.Create(lblTitel.Handle, WM_NCLBUTTONDOWN, New IntPtr(HTCAPTION), IntPtr.Zero)
			Me.DefWndProc(msg)
		End If
	End Sub

Code komt in feite van Pascal(om dynamische tekstvakken te verslepen wanneer de muis erin komt.) (werkt 100% correct)
maar daar zit dan een addhandler tussen die ik in deze situatie toch niet kan plaatsen?

[pascalbianca]

Ik kan niet geheel je verhaal volgen, mijn excuses.
Snap je die addhandler niet of wil je dat die control vast blijft staan na verslepen?

[demodownload]

 k0k41d.jpg   7.93K   23 downloads

Als hij checked is, verslepen mogelijk maken.
als hij unchecked is, vast laten staan.

Sorry dat het een beetje onduidelijk was

alvast bedankt

[pascalbianca]

Geeft niks, ik snap hem nu
Helaas zit ik nu op het werk dus kan even nu het programma niet voor me nemen , maar als ik vanavond om 23.30 hr. thuis ben zal ik even kijken voor je als ik nog fit genoeg ben

[demodownload]

super!

[pascalbianca]

Ik zie dat jij een eigen menu hebt aangemaakt.
Kun je misschien je project ingepakt hier als attachment erbij zetten , dan kan ik eens kijken.

[demodownload]

Voila Pascal, alvast bedankt!
Menu is een contextmenustrip

 WindowsApplication21.rar   67.22K   1 downloads

[pascalbianca]

Die titel kun je al niet verplaatsen, dus die verplaats code werkt al niet in jouw code of ik zie even iets over het hoofd.

[demodownload]

dat is het juist:P Ik wil de titel kunnen verplaatsen als de contextmenustrip "verplaatsen" checked is

[pascalbianca]

Denk dat ik weet wat je wilt, dus doe het volgende eens.
Op het laatste van je code heb je dit staan.:
Visual Basic Code:

	Private Sub VerplaatsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VerplaatsToolStripMenuItem.Click
		If VerplaatsToolStripMenuItem.Checked = True Then
			lblTitel.Capture = True
			Dim msg As Message = Message.Create(lblTitel.Handle, WM_NCLBUTTONDOWN, New IntPtr(HTCAPTION), IntPtr.Zero)
			Me.DefWndProc(msg)
		End If
	End Sub

Vervang bovenstaande code gedeelte eens met dit.:
Visual Basic Code:

  Private Sub VerplaatsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VerplaatsToolStripMenuItem.Click
		If VerplaatsToolStripMenuItem.Checked = True Then
			lblTitel.Capture = True
		End If
	End Sub

	Private Sub lblTitel_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lblTitel.MouseDown
		If VerplaatsToolStripMenuItem.Checked = True Then
			If e.Button = Windows.Forms.MouseButtons.Left Then
				lblTitel.Capture = False
				Dim msg As Message = Message.Create(lblTitel.Handle, WM_NCLBUTTONDOWN, New IntPtr(HTCAPTION), IntPtr.Zero)
				Me.DefWndProc(msg)
			End If
		End If
	End Sub

Dan vermoed ik dat dit het geen is wat je wilde bereiken

[demodownload]

... Solved!
Tjesus... keek ik er dan zo over?! haha

thx

[pascalbianca]

Graag gedaan en dat nog eens op dit tijdstip

[demodownload]

Je bent geweldig!
Ik ben echt totaal niet goed in dit soort code... damn

[demodownload]

dus ff recapituleren dan maar;
Code:

		'Als contextmenustrip = checked dan...
		If VerplaatsToolStripMenuItem.Checked = True Then
			'Als linkermuisknop wordt ingedrukt dan...
			If e.Button = Windows.Forms.MouseButtons.Left Then
				'Capture = false?
				lblTitel.Capture = False
				'euhm?
				Dim msg As Message = Message.Create(lblTitel.Handle, WM_NCLBUTTONDOWN, New IntPtr(HTCAPTION), IntPtr.Zero)
				'en euhm
				Me.DefWndProc(msg)
			End If
		End If
	End Sub

[pascalbianca]

Dan had je mij moeten zien in het begin en nu nog als ik niet uitkijk

[pascalbianca]

demodownload, op 24 May 2012 - 01:46, zei:

dus ff recapituleren dan maar;
Code:

		'Als contextmenustrip = checked dan...
		If VerplaatsToolStripMenuItem.Checked = True Then
			'Als linkermuisknop wordt ingedrukt dan...
			If e.Button = Windows.Forms.MouseButtons.Left Then
				'Capture = false?
				lblTitel.Capture = False
				'euhm?
				Dim msg As Message = Message.Create(lblTitel.Handle, WM_NCLBUTTONDOWN, New IntPtr(HTCAPTION), IntPtr.Zero)
				'en euhm
				Me.DefWndProc(msg)
			End If
		End If
	End Sub

Ik laat de code alleen reageren indien je hem aanvinkt, vink je hem weer uit doet hij niks meer.

[demodownload]

die link had ik nu wel door ja, maar die andere heb ik zelfs nog nooit van gehoord, het zien er me wel interessante functies uit

[pascalbianca]

WM_NCLBUTTONDOWN > http://msdn.microsof...0(v=vs.85).aspx

[demodownload]

aha! snap em:D thx

[demodownload]

Dit mag trouwens in de loop van de week hoor pascal,
Stel nu je hebt een Knop, je maakt een dynamisch label aan, je wilt daaraan een contextmenu hangen en die dan op dezelfde manier laten werken als de huidige control.
Can it be done?

[pascalbianca]

natuurlijk maar uiteraard zou ik zeggen probeer het eens eerst zelf, de meeste codes heb je al ervoor

[demodownload]

Toevoegen lukt, bewerken lukt
maar het verslepen... Ho maar!

 WindowsApplication21.rar   67.1K   1 downloads

[demodownload]

Code:

Public Class Form1
	Private label As System.Windows.Forms.Label
	Const WM_NCLBUTTONDOWN As Integer = &HA1
	Const HTCAPTION As Integer = 2
	Private Sub BewerkenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BewerkenToolStripMenuItem.Click
		label.Text = InputBox("Geef je titel in:", "Titel - TimeLine", "Titel")
	End Sub
	Private Sub VerplaatsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VerplaatsToolStripMenuItem.Click
		If VerplaatsToolStripMenuItem.Checked = True Then
			label.Capture = True
		End If
	End Sub
	Private Sub label_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles label.MouseDown
		If VerplaatsToolStripMenuItem.Checked = True Then
			If e.Button = Windows.Forms.MouseButtons.Left Then
				label.Capture = False
				Dim msg As Message = Message.Create(label.Handle, WM_NCLBUTTONDOWN, New IntPtr(HTCAPTION), IntPtr.Zero)
				Me.DefWndProc(msg)
			End If
		End If
	End Sub
	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		Dim intcount As Integer
		intcount += 1
		label = New System.Windows.Forms.Label
		AddHandler label.MouseDown, AddressOf label_MouseDown
		With label
			.Location = New Point(15, 30)
			.Text = "Test"
			.Width = 30
			.Height = 30
			.AutoSize = True
			.Name = "lbldynamic_" & intcount & "_mycntrl"
			.Enabled = True
			.TabStop = False
			.ContextMenuStrip = ContextMenuStrip1
		End With
		Me.Controls.Add(label)
	End Sub
End Class

het zit hem in de "Label.MouseDown"
Code:

	Private Sub label_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles label.MouseDown
		If VerplaatsToolStripMenuItem.Checked = True Then
			If e.Button = Windows.Forms.MouseButtons.Left Then
				label.Capture = False
				Dim msg As Message = Message.Create(label.Handle, WM_NCLBUTTONDOWN, New IntPtr(HTCAPTION), IntPtr.Zero)
				Me.DefWndProc(msg)
			End If

[demodownload]

nvmd solved

[demodownload]

Ja nee toch ni... blijft gewoon de laatste label verplaatsen... bugger

[pascalbianca]

Ja dat klopt ook.
Je zult in die situatie nu moeten gaan kijken dat je die intcount gaat opvangen om dan die betreffende label te kunnen verplaatsen.

[demodownload]

Kan er toch moeilijk een for... next in zetten met een IF int count = .. then?
Kzit ff verkeerd denk ek

[pascalbianca]

Nee maar ik vermoed dat je dan ook die toolstrip ook met die integer moet gaan verhogen, aangezien je steeds dezelfde toolstrip gaat gebruiken.
Dus als ik de eerste bv. ga verplaatsen en die is aangevinkt en ik ga dan naar de 2de dan is die dar ook al aangevinkt aangezien hij dit onthoud van de eerste.
Het is mogelijk alleen denk ik dan dat je behoorlijk moet gaan splitten.