討論區快速選單
知識庫快速選單
程式設計俱樂部Facebook粉絲團 網路投保旅行平安險 討論區最近新進100則主題
[ 回上頁 ] [ 討論區發言規則 ]
SetParent 使用方式
更改我的閱讀文章字型大小
作者 : abcdefg0634(abcdefg0634)
[ 貼文 27 | 人氣 0 | 評價 10 | 評價/貼文 0.37 | 送出評價 2 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2017/12/3 上午 10:20:56
小定想在應用程式上嵌入一個視窗 擋掉部分按鍵防止被user點到 小弟做法如下 用VB6
創建form 設為應用程式的child windows


Private Sub Form_Load()

 Locked = False
 LockedFormName = InputBox("Input the Form would be locked", "Mask-0.1")
 LockedProberMaskWhnd = Me.hWnd
 LockedFormNameWhnd = FindWindow(vbNullString, LockedFormName)

  If LockedFormNameWhnd = 0 Then

    MsgBox "Not Found"
   End

  End If
 SetParent LockedMaskWhnd, LockedFormNameWhnd

End Sub


==============================================================================

其中LockedMaskWhnd 為vb6 創建的form , LockedFormNameWhnd 是 findwindow get的

應用程式的handle 上面這一段code成功嵌進form 但是圖形卻被應用程式干擾(下圖黑框

部分)

https://imgur.com/a/ZqLhF

請問板大建議如何防止圖形被干擾
作者 : abcdefg0634(abcdefg0634)
[ 貼文 27 | 人氣 0 | 評價 10 | 評價/貼文 0.37 | 送出評價 2 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2017/12/5 下午 10:06:15
小弟發現用

"hWndForm = CreateWindowEx(0, "Mask", "MaskForm", WS_CLIPCHILDREN,
ParentForm.Left + P_Left_Offset, ParentForm.Right + P_Top_Offset, P_Width,
P_Height, hWndParentForm, 0, App.hInstance, ByVal 0&)"

利用win32的 windows form 了話 就不會被干擾 (不過也沒嵌進去parent form就是了)
雖然解決此問題 但是不知道原因
 板主 : 小樓
 > Visual Basic 6.0/VBA - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - Visual Basic 6.0/VBA - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
Visual Basic 6.0/VBA
1 阿戊 10670 
2 小樓 8650 
3 Jones 5270 
4 水瓶天賞 2340 
5 joe 2230 
6 史努比 1950 
7 阿呆紅 1440 
8 tt's 1250 
9 青衫 1150 
10 羅啟章 1020 
Visual Basic 6.0/VBA
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2018 程式設計俱樂部 http://www.programmer-club.com.tw/
0.125