Spiliter در Access [بایگانی]

sarami

پنج شنبه 23 شهریور 1385, 08:06 صبح

استفاده از Spiliter در اکسس . نمونه رو دانلود کنین متوجه همه چیز خواهید شد....
دانلود نمونه برنامه (http://www.box.net/public/bzgnqliodv)

شاپرک

شنبه 25 شهریور 1385, 07:28 صبح

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

سنبله کار

شنبه 25 شهریور 1385, 09:01 صبح

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

sarami

شنبه 25 شهریور 1385, 15:21 عصر

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

Ali_Fallah

یک شنبه 26 شهریور 1385, 10:14 صبح

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

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