کردن پنجره پیغام های فارسی On top form

[unforgiven]

سلام به همه دوستان
من در برنامه ام از پیغام های فارسی به جای انگلیسی استفاده کردم و عمللکرد اون به این صورت که در زمان اجرا پیغام های فارسی رو به جای پیغام های انگلیسی نشون می ده . البته این کد رو من ننوشتم . این کد تنها ایرادی که داره به صورت آن تاپ عمل نمی کنه و در زیر پنجره های دیگر قرار میگیره .لطفا اگه کسی کدی در این مود سراغ داره منو راهنمایی کنه .
البته آنتاپ کردن فرم ها رو نمیشه روش پیاده کرد چون عملا فرمی به صورت شی وجود نداره

پیشاپیش متشکرم

[unforgiven]

لطفا یکی جواب بده

[Payam Moradi]

لطفا یکی جواب بده
چی آن تاپ نمیشه؟
یک پنجره پیام رو نمایش میده و آن تاپ نمیشه؟
اگر یک فرم هست به این شکل:

این تابع رو در قسمت اعلان عمومی فرم بگذار (بالای بالا):

Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Const lFlags As Long = &H2 Or &H1

این شکل هم فراخوانی کن. به جای Form نام فرم مورد نظر یا Me بگذار:


SetWindowPos Form.hWnd, -1, 0, 0, 0, 0, lFlags


موفق باشید:چشمک:

[حامد مصافی]

من در برنامه ام از پیغام های فارسی به جای انگلیسی استفاده کردم و عمللکرد اون به این صورت که در زمان اجرا پیغام های فارسی رو به جای پیغام های انگلیسی نشون
می ده...

من قبلاً کنترلی برای ترجمه نوشته دکمه های کادر های جعبه پیغام نوشته بودم. (به همراه سورس موجوده)
http://www.barnamenevis.org/forum/showthread.php?t=54535

[vb341]

آقا حامد به آدرسی که دادین رفتم ولی برای دانلود اجازه دسترسی به سایت بسته شده !!!

[حامد مصافی]

سلام
از این لینک دانلود بفرمایید
http://BlackDal.persiangig.com/Source/VB/MsgbTxtChng.rar