VB调用Delphi封装的DLL，窗口模式的问题（100分送上，不成敬意）

窗口打开总是模式的，能不能无模式，这样我好打开别的窗口呀。 问题点数：100、回复次数：6Top

1 楼rainstormmaster（暴风雨 v2.0）回复于 2006-03-11 18:30:17 得分 95

有dll的源码没有，如果有，直接修改源代码即可Top

2 楼rainstormmaster（暴风雨 v2.0）回复于 2006-03-11 18:32:34 得分 0

没有源代码的话，可以尝试下面的代码：  
  Option   Explicit  
   
  Private   Const   GW_OWNER   =   4  
  Private   Declare   Function   GetWindow   Lib   "user32"   (ByVal   hwnd   As   Long,   ByVal   wCmd   As   Long)   As   Long  
  Private   Declare   Function   EnableWindow   Lib   "user32"   (ByVal   hwnd   As   Long,   ByVal   fEnable   As   Long)   As   Long  
   
  Private   Sub   ShowModalWindow(ByVal   hwnd   As   Long,   ByVal   flag   As   Boolean)  
          Dim   Owner_Hwnd   As   Long  
          Owner_Hwnd   =   GetWindow(hwnd,   GW_OWNER)  
          If   GW_OWNER   <>   0   Then  
                  EnableWindow   Owner_Hwnd,   flag  
          End   If  
  End   Sub  
   
  调用方法如下：  
  ShowModalWindow   模态窗口的句柄,TrueTop

3 楼rainstormmaster（暴风雨 v2.0）回复于 2006-03-11 18:33:41 得分 0

至于模态窗口的句柄你可以用findwindow这个api函数获取，这个函数的用法很简单，我就不罗嗦了Top

4 楼nj_tanghua（晨风）回复于 2006-03-14 15:16:18 得分 0

这个方法可以，但窗口已在主程序之外了，难到就没别的好办法?  
  实在没有就散分了..Top

5 楼mjcom（不明飞行物）回复于 2006-03-17 09:08:34 得分 5

用线程来加载这个DLLTop

6 楼nj_tanghua（晨风）回复于 2006-03-18 20:19:12 得分 0

//用线程来加载这个DLL        
  //mjcom(不明飞行物)  
   
  怎么用，请指教Top

相关问题

• 模式
• dll
• owner
• gw
• hwnd
• byval
• as long
• 没有

• 帖主：nj_tanghua
• rainstormmaster
• mjcom

• Visual Basic类图书
• Visual Basic类源码下载