باز شدن فرم ها بصورت متحرك

[Amir Ghasemiyan]

Private Sub UserForm_Activate()
H = UserForm1.Height
UserForm1.Height = 0
For i = 1 To H [COLOR=#ff0000]Step 1.5سلام دوستان

در اين آموزش قصد دارم متحرك كردن فرم رو بهتون آموزش بدم. با اين كار شما ميتونين فرم جذاب تري داشته باشيد.

يك نمونه از نتيجه كار رو در كليپ زير مشاهده ميكنيد.







	

	
		
		
		

			
			

		
	
	

و اما آموزش:
بسيار ساده است. كافيه بعد از ايجاد فرم روي فرم راست كليك كرده و گزينه view code رو بزنين. حالا در اين قسمت كدهاي زير رو به فرم اضافه كنيد.


    UserForm1.Height = i
Next i
End Sub

سرعت فرم رو ميتونين با قسميت كه قرمز كردم تعيين كنيد.

نمونه فايل رو هم براتون ضميمه ميكنم.[/COLOR]