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

abas1388

چهارشنبه 12 اسفند 1388, 11:29 صبح

سلام
آيا كدي وجود دارد كه از طريق آن بتوان پنجره اصلي ديتابيس اكسس را ماكسيمايز نمود؟ براي ماكسيمايز نمودن فرم ها از طريق كد docmd.Maximize اينكار انجام ميشود ;منتها من اينكار را براي پنجره اصلي ديتابيس مي خواهم.
با تشكر

abas1388

شنبه 15 اسفند 1388, 12:10 عصر

سلام
آيا كدي وجود دارد كه از طريق آن بتوان پنجره اصلي ديتابيس اكسس را ماكسيمايز نمود؟ براي ماكسيمايز نمودن فرم ها از طريق كد docmd.Maximize اينكار انجام ميشود ;منتها من اينكار را براي پنجره اصلي ديتابيس مي خواهم.
با تشكر

سلام
راه حلي به ذهن دوستان بزرگوار نرسيد؟

xxxxx_xxxxx

شنبه 15 اسفند 1388, 13:28 عصر

تابعی هست با نام SetWindowLong
و تابع دیگری با نام SetWindowPos
ببینید میشه با این توابع این کارو انجام داد.

abas1388

شنبه 15 اسفند 1388, 17:26 عصر

تابعی هست با نام SetWindowLong
و تابع دیگری با نام SetWindowPos
ببینید میشه با این توابع این کارو انجام داد.

سلام
با سرچ كردن توابع فوق ، مواردي يافت شد ولي متأسفانه نتوانستم به كاريرد آنها در خصوص مطلب مورد اشاره بنده پي ببرم .
با تشكر

xxxxx_xxxxx

شنبه 15 اسفند 1388, 19:34 عصر

با تابع ShowWindow میشه این کارو کرد:
ابتدا هندل پنجره موردنظر رو بدست بیارید. مثلاً در اینجا بر اساس عنوان پنجره، هندلش رو میگیریم.
و بعد هندل رو همراه با ثابت SW_MAXIMIZE که برابر با عدد 3 هست به تابع ShowWindow میدیم.

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_MAXIMIZE = 3

Private Sub Command1_Click()
hndl = FindWindow(vbNullString, "Microsoft Access")
ShowWindow hndl, SW_MAXIMIZE
End Sub

abas1388

دوشنبه 30 فروردین 1389, 17:01 عصر

با تابع ShowWindow میشه این کارو کرد:
ابتدا هندل پنجره موردنظر رو بدست بیارید. مثلاً در اینجا بر اساس عنوان پنجره، هندلش رو میگیریم.
و بعد هندل رو همراه با ثابت SW_MAXIMIZE که برابر با عدد 3 هست به تابع ShowWindow میدیم.

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_MAXIMIZE = 3

Private Sub Command1_Click()
hndl = FindWindow(vbNullString, "Microsoft Access")
ShowWindow hndl, SW_MAXIMIZE
End Sub

سلام
با كد فوق پنجره ديتابيس اكسس ماكسيمايز ميشود ؛ براي ماكسيمايز نمودن پنجره ويندوز بجاي Microsoft Access چه عبارتي را بايد بنويسيم ؟
با تشكر

xxxxx_xxxxx

دوشنبه 30 فروردین 1389, 17:22 عصر

... براي ماكسيمايز نمودن پنجره ويندوز ...

منظورتون از پنجره ویندوز چی هست؟
برای هر پنجره ای باید عنوان رو بنویسید. همون چیزی به عنوان Caption روی فرم نوشته شده.

abas1388

سه شنبه 31 فروردین 1389, 08:48 صبح

منظورتون از پنجره ویندوز چی هست؟
برای هر پنجره ای باید عنوان رو بنویسید. همون چیزی به عنوان Caption روی فرم نوشته شده.
با سلام
در فايل ضميمه دو ديتابيس اكسس وجود دارد ؛ در اولي كپشن ديتابيس x است كه در اين حالت بعد از لود شدن فرم داخلي پنجره ديتابيس ماكسيمايز نميشود ولي در فايل دوم كه كپشن آن Microsoft Access است بعد از لود شدن فرم داخلي ، ديتابيس ماكسيمايز ميشود .لذا به استناد فرموده جنابعالي كه براي ماكسيمايز شدن هر پنجره اي بايد عنوان آن را بنويسيم چرا فايلي كه داراي عنوان x است ماكسيمايز نميشود ؟
با تشكر

vbhamed

سه شنبه 31 فروردین 1389, 17:50 عصر

سلام

ضمن تشكر از دوستاني كه جواب دادن اما نيازي به اين كارا نيست
خود اكسس همچين دستوري داره :

DoCmd.RunCommand acCmdAppMaximize