سوال: برنامه اكسس پس از اجرا در زير ساير برنامه هايي كه باز هستند قرار ميگيرد [بایگانی]

saeed1234n

دوشنبه 19 مرداد 1394, 09:44 صبح

alirezabahrami

دوشنبه 19 مرداد 1394, 10:16 صبح

با سلام

خدمت دوستان و اساتيد بزرگوار :

زمانيكه چند برنامه باز داشته باشيم در صفحه دسكتاپ كامپيوترمان و در اين زمان برنامه اي را كه توسط اكسس طراحي كرده ايم اجرا مي كنيم در زير ساير برنامه هاي در حال اجرا قرار مي گيرد از چه كدي مي توان استفاده كرد تا اين مشكل مرتفع شود يعني :‌

1- زمانيكه ما برنامه امان را اجرا كرديم در روي ساير برنامه ها قرار بگيرد .

2- وقتي هم كه برنامه امان اجرا مي شود بصورت اكتيو نيست يعني بايد يكبار در روي فرم كليك كنيم تا اكتيو شود تازه آنوقت فوكوس به فيلد مورد نظر برود .

با تشكر از وقتي كه مي گذاريد .

سلام آقای نادری عزیز !
ابتدا کد زیر را در قسمت ماژول عمومی فرم وارد کن !

Private Declare Function BringWindowToTop Lib "user32" (ByVal _
hwnd As Long) As Long

سپس کد زیر را در در رویداد open فرم استارت آپ برنامه ات کپی کن

Dim iret As Long
iret = BringWindowToTop(Me.hwnd)

به نتیجه نرسیدی بفرما تا روش دیگر خدمتتان عرض کنم
یا علی