Spiliter در Access

[sarami]

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

[شاپرک]

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

[سنبله کار]

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

[sarami]

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

[Ali_Fallah]

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

با سلام
این کدها رو به اون 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 قرار داده میشود.
من این کار رو انجام دادم و درست شد