حركة النموذج الرئيسي

المثال المرفق به أكثر من طرقة ....

ما عليك إلا ان تراجع المثال ... وتى الحدث عند فتح النموذج وإغلاقه .

شكرا أخي على الرد ولكني لم اعرف تماما اين اضع الاوامر او الاكواد ليأتي النموذج بالطريقة هذه ..

هل لكم ان توضحوا طريقة العرض..؟؟؟

أختي الغالية

Computer eyes

يوجد وحدة نمطية مستخدمة لاداء هذا الغرض

أولاً : - لا تجهدي نفسك في قراءة الاكواد الموجودة في الوحدة النمطية بل اعملي استيراد لهذه الوحدة الي برنامجك الخاص كما هي

اسم هذه الوحدة basWindowaccess

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

Option Compare Database

Option Explicit

Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3

Private Declare Function apiShowWindow Lib "user32" _
	Alias "ShowWindow" (ByVal hwnd As Long, _
		  ByVal nCmdShow As Long) As Long


Function fSetAccessWindow(nCmdShow As Long)
'Usage Examples
'Maximize window:
'	   ?fSetAccessWindow(SW_SHOWMAXIMIZED)
'Minimize window:
'	   ?fSetAccessWindow(SW_SHOWMINIMIZED)
'Hide window:
'	   ?fSetAccessWindow(SW_HIDE)
'Normal window:
'	   ?fSetAccessWindow(SW_SHOWNORMAL)
'
Dim loX  As Long
Dim loForm As Form
	On Error Resume Next
	Set loForm = Screen.ActiveForm
	If Err <> 0 Then 'no Activeform
	  If nCmdShow = SW_HIDE Then
		'MsgBox "Cannot hide Access unless " _
					& "a form is on screen"
	  Else
		loX = apiShowWindow(hWndAccessApp, nCmdShow)
		Err.Clear
	  End If
	Else
		If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
			'MsgBox "Cannot minimize Access with " _
					& (loForm.Caption + " ") _
					& "form on screen"
		ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
			'MsgBox "Cannot hide Access with " _
					& (loForm.Caption + " ") _
					& "form on screen"
		Else
			loX = apiShowWindow(hWndAccessApp, nCmdShow)
		End If
	End If
	fSetAccessWindow = (loX <> 0)
End Function

ثم بعد ذلك افتحي النموذج المراد فتحة بحركة معينة وفي حدث عند تحميل النموذج أو اذا كانت نسخة الاوفيس عندك انجليزي يبقي من حدث From Load

اكتبي الكود التالي

Private Sub Form_Load()
Me.InsideHeight = 0
Me.InsideWidth = 0
End Sub

وفي حدث عند الخروج من النموذج أو On Close الكود التالي

Private Sub Form_Close()
On Error GoTo ahmed

Dim gotoval As Integer
Dim gointo As Integer

gotoval = Me.InsideHeight / 2

For gointo = 1 To gotoval

	DoEvents
		Me.InsideHeight = Me.InsideHeight - 10

	If Me.InsideHeight <= 11 Then GoTo horiz
	Next gointo

horiz:
	Me.InsideHeight = 30
	gotoval = Me.InsideWidth / 2

	For gointo = 1 To gotoval

	  DoEvents
		   Me.InsideWidth = Me.InsideWidth - 10
			If Me.InsideWidth <= 11 Then End
		Next gointo

	Beep

ahmed:
Exit Sub

End Sub

اعملي تجربة للنموذج ستجدية يعمل بصورة طبيعية وبالحركة المطلوبة

فقط لا تجهدي نفسك الان بمعرفة ما هذه الاكواد الكثيرة نفذي أولاً التطبيق بالنسخ واللصق وان شاء الله مع كثرة الاحتكاك مع جميع المشاركات ستعرفين

حركات أكثر من ذلك

بالتوفيق

السلام عليكم ورحمة الله وبركاته:

شكرا كتيييييييييييييييييييييييييير الك اخي على هذه الفائدة وارجوا من الله أن تكون في ميزان حسناتك...

وممتنه الك كتير.... وإن شاء الله رح أدعيلك الله يوفقك وين ما كنت تكون

والسلام عليكم