سلام.
فرض من هندل یه کلید از یه پنجره دیگه رو گرفتم. میخوام بدونم این کلید ظاهر هست یا نه. Enable هست یا disable. چطور میتونم بفهمم.
با توابع GetWindowPlacement و GetWindowLong ور رفتم. چیزی دستگیرم نشد. کسی میدونه مشکل با چه تابعی حل میشه؟
The IsWindowEnabled function determines whether the specified window is enabled for mouse and keyboard input.
کد:
BOOL IsWindowEnabled(
HWND hWnd // handle of window to test
);
Parameters
hWnd
Identifies the window to test.
Return Values
If the window is enabled, the return value is nonzero.
If the window is not enabled, the return value is zero.
Remarks
A child window receives input only if it is both enabled and visible.
سلام
اگه منظورت تو خود پروژته که بتونی از دیگر فرم ها باخبر بشه که بدونی enabled هستن یا نه باید این کار رو بکنی
یه تکس باکس به برنامه اضافه کن و خاصیت مالتیلاین اونو true کن و کد زیر رو تو قسمت load فرم بنویس:
private sub form_load()
if form2.command1.enabled =false then
text1.text = text1.text & "Command1 hast enabled" & vbcrlf
elseif form2.label1.visible = false then
text1.text = text1.text & "label1 hast visible" & vbcrlf
end if
end sub
سلام
اگه منظورت تو خود پروژته که بتونی از دیگر فرم ها باخبر بشه که بدونی enabled هستن یا نه باید این کار رو بکنی
یه تکس باکس به برنامه اضافه کن و خاصیت مالتیلاین اونو true کن و کد زیر رو تو قسمت load فرم بنویس:
کد:
private sub form_load()
if form2.command1.enabled =false then
text1.text = text1.text & "Command1 hast enabled" & vbcrlf
elseif form2.label1.visible = false then
text1.text = text1.text & "label1 hast visible" & vbcrlf
end if
end sub
سؤال ايشون کاملاً واضح بود
لرد هم يک تابع API برای تشخيص دادن enable يا disable بودن فرم يا اشياء داخل اون به وسيله هندل معرفی کردند
کد:
Private Declare Function IsWindowEnabled Lib "user32" (ByVal hwnd As Long) As Long
جواب شما خيلی مبتديانه هست به نظر شما کسی که مدت زيادی هست vb کار ميکنه نميتونه از حالات پروژه خودش با خبر بشه؟
(۱۶-فروردین-۱۳۸۸, ۱۴:۰۶:۰۹)mohsen0025 نوشته است: [ -> ]سلام
اگه منظورت تو خود پروژته که بتونی از دیگر فرم ها باخبر بشه که بدونی enabled هستن یا نه باید این کار رو بکنی
یه تکس باکس به برنامه اضافه کن و خاصیت مالتیلاین اونو true کن و کد زیر رو تو قسمت load فرم بنویس:
private sub form_load()
if form2.command1.enabled =false then
text1.text = text1.text & "Command1 hast enabled" & vbcrlf
elseif form2.label1.visible = false then
text1.text = text1.text & "label1 hast visible" & vbcrlf
end if
end sub
سلام
اگه منظورت تو خود پروژته که بتونی از دیگر فرم ها باخبر بشه که بدونی enabled هستن یا نه باید این کار رو بکنی
یه تکس باکس به برنامه اضافه کن و خاصیت مالتیلاین اونو true کن و کد زیر رو تو قسمت load فرم بنویس:
کد:
private sub form_load()
if form2.command1.enabled =false then
text1.text = text1.text & "Command1 hast enabled" & vbcrlf
elseif form2.label1.visible = false then
text1.text = text1.text & "label1 hast visible" & vbcrlf
end if
end sub
سلام.
2 بار به شما تذکر دادم جواب های بی ربط ارسال نکنید.
چه اصراریه به همه سوال ها پاسخ بدی. شما سعی کن تو فروم بیشتر یاد بگیری تا یاد بدی.
تکرار میکنم. به سوالاتی پاسخ بده که 100% مطمنی جوابی که میدی صحیح هست.