Spiliter در Access

استفاده از Spiliter در اکسس . نمونه رو دانلود کنین متوجه همه چیز خواهید شد....
دانلود نمونه برنامه

لطفا یه کم در مورد کارش توضیح بدید ؟!!!

برای مواقعی که لازمه با دو تا زیر فرم کار کنیم چیز خوبیه و امکان استفاده بهینه از فضای موجود رو به کاربر می ده .
اما یه اشکال خیلی کوچیک ( البته با عرض پوزش ) آیکون ماوس وقتی با قرار گرفتن روی اون تغییر می کنه ولی با خارج شدن ازش به حالت اول بر نمی گرده .

خیلی ساده است دو سابفرم یا هر آبجکت دیگه که درصورت قرار گرفتن موس بر روی SPILITER به همان مقدار که از عرض یک سابفرم میکاهد به دیگری اضافه میکند

نقل قول:

---

نوشته شده توسط سنبله کار

اما یه اشکال خیلی کوچیک ( البته با عرض پوزش ) آیکون ماوس وقتی با قرار گرفتن روی اون تغییر می کنه ولی با خارج شدن ازش به حالت اول بر نمی گرده .

---

با سلام
این کدها رو به اون 2 فرم به غیر از(Form1 ) اضافه کنید...

Function SetMousePointer(ByVal intMousePointer As Integer)

'FOR SPLIT BAR

    If Screen.MousePointer <> intMousePointer Then Screen.MousePointer = intMousePointer

End Function



Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

SetMousePointer Default

End Sub

ضمناً کد زیر را به (Form1 ) اضافه کنید

Private Sub Box5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

SetMousePointer Default

End Sub

در واقع SetMousePointer به حالت پیش فرض یا Default قرار داده میشود.
من این کار رو انجام دادم و درست شد