ازاى أخلى قائمة أبدأ تتحرك

ليس امامك سوي API سأضع لك الكود بعد ان اجدة في مستودعي الاكواد

Moudey كتب:

ليس امامك سوي API سأضع لك الكود بعد ان اجدة في مستودعي الاكواد

بإنتظارك أخى

تفضل اخي الكود كان مكتوب بالدلفي ولكن قمت باعادة كتابة بـ الدوت نت

MoveStartButton.zip

المعذرة علي هذا الخطأ الكود بـ الدوت نت في المرفقات

MoveStartButton.zip

Moudey كتب:

المعذرة علي هذا الخطأ الكود بـ الدوت نت في المرفقات

جزاك الله خير على سرعة الاستجابة البارقة

اجمل تحياتى لك أخى Moudey

وجارى التجربة تحياتى

cdcase كتب:

ازاى أخلى قائمة أبدأ تتحرك بالعرض على شريك المهام برمجيا ب 2003 VB.net

أخى العزيز Moudey هل من الممكن تحويل مشروعك من 2005 الى 2003 إذا سمحت لانى أشتغل ب 2003

تحياتى

 

' دالة تحريك الزر من خلال المقبض 
<DllImport("user32", CharSet :=CharSet.Auto)> _
Shared Function MoveWindow( _
	ByVal hWnd As IntPtr, _
	ByVal x As Integer, _
	ByVal y As Integer, _
	ByVal nWidth As Integer, _
	ByVal nHeight As Integer, _
	ByVal bRepaint As Boolean) As Boolean
End Function

<DllImport("user32", CharSet:=CharSet.Auto)> _
Shared Function FindWindow( _
	ByVal lpClassName As String, _
	ByVal lpWindowName As String) As IntPtr
End Function

<DllImport("user32", CharSet:=CharSet.Auto)> _
Shared Function FindWindowEx( _
	ByVal hwndParent As IntPtr, _
	ByVal hwndChildAfter As IntPtr, _
	ByVal lpszClass As String, _
	ByVal lpszWindow As String) As IntPtr
End Function

Private X As Integer = 0
Private L As Integer = 5 

Private Sub Form1_Load( ByVal sender As System.Object,  ByVal e As System.EventArgs) Handles MyBase.Load
	Timer1.Interval = 10
End Sub

Private Sub btnReset_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnReset.Click
	MoveWindow(FindWindowEx(FindWindow("Shell_TrayWnd", Nothing), IntPtr.Zero, "Button", Nothing), 0, 0, 100, 30, True)
End Sub


Private Sub btnMove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMove.Click
		If btnMove.Text = "Start Move" Then
			Timer1.Enabled = True
			Timer1.Start
			btnMove.Text = "Stop Move"
		Else
			Timer1.Enabled = False
			Timer1.Stop
			btnMove.Text = "Start Move"
		End If
End Sub


Private Sub timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) handles Timer1.Tick
	X += L
	' اذا وصل الزر الي اقصي يمين الشاشة اعكس الاتجاة الي الشمال
	If X >= (Screen.PrimaryScreen.Bounds.Width - 100) Then
		L -= 10
	Else
		' اذا وصل الي بداية الشمال قم بعكس الاتجاة
		If X <= 0 Then
			X = 0
			' ازاحة بمقدار 11 درجة
			L += 10
		End If
	End If
	MoveWindow(FindWindowEx(FindWindow("Shell_TrayWnd", Nothing), IntPtr.Zero, "Button", Nothing), X, 0, 100, 30, true)
End Sub

جزاك الله خير أخى فى الله

وجارى التجربة

مرحبا

ما هذه المشكلة

يوجد صورة بالمرفقات

تحتاج هذة الخاصية الي اضافة فضاء الاسماء (InteropServices)

Imports System.Runtime.InteropServices

السلام عليكم

جزاك الله خيراً أخى فى الله Moudey

لقد أشتغل بشكل كامل والحمد لله ولكنى محتاج ان أفهم دالة ال API لو وقتك يسمحلك ممكن تشرحها لى

لقد أرفقت الكود الخاص بك لمن يحب تحميله

تحياتى

Test.rar