VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 1297|回复: 7

[原创] 关于SetParent子窗体句柄变量的问题

[复制链接]
发表于 2019-12-10 15:07:21 | 显示全部楼层 |阅读模式
Public WithEvents objform As Form
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Private Sub ToolLeft1_RightClick(index As Integer)
Dim Result As Boolean
Dim dx As String
dx = Me.Label1.Caption
SetParent dx.hwnd, Frame1.hwnd
dx.Show
Set objform = HomePage
End Sub

以上代码的变量Dx在运行时提示无效限定符,请问这段代码该如何修改,我想根据窗体名称打开对应的窗体,再把窗体通过SetParent 显示到frame1中去。
发表于 2019-12-10 15:26:11 | 显示全部楼层
DX和OpenGL应该都无效,涉及硬件加速。
屏幕区域被显卡直接接管了。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2019-12-10 15:32:19 | 显示全部楼层
dx只是一个变量,如果换成
Public WithEvents objform As Form
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Private Sub ToolLeft1_RightClick(index As Integer)
Dim Result As Boolean
SetParent 客户信息.hwnd, Frame1.hwnd
客户信息.Show
Set objform = HomePage
End Sub
则可以正常打开客户信息窗口
回复 支持 反对

使用道具 举报

 楼主| 发表于 2019-12-10 15:33:04 | 显示全部楼层
JuncoJet 发表于 2019-12-10 15:26
DX和OpenGL应该都无效,涉及硬件加速。
屏幕区域被显卡直接接管了。

dx只是一个变量,如果换成
Public WithEvents objform As Form
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Private Sub ToolLeft1_RightClick(index As Integer)
Dim Result As Boolean
SetParent 客户信息.hwnd, Frame1.hwnd
客户信息.Show
Set objform = HomePage
End Sub
则可以正常打开客户信息窗口
回复 支持 反对

使用道具 举报

发表于 2019-12-11 13:03:33 | 显示全部楼层
309040155 发表于 2019-12-10 15:33
dx只是一个变量,如果换成
Public WithEvents objform As Form
Private Declare Function SetParent Li ...

还以为你说directX呢,你dx变量是个字符串类型,没有这个方法
回复 支持 反对

使用道具 举报

 楼主| 发表于 2019-12-12 10:30:15 | 显示全部楼层
JuncoJet 发表于 2019-12-11 13:03
还以为你说directX呢,你dx变量是个字符串类型,没有这个方法

那应该定义成那种类型呢
回复 支持 反对

使用道具 举报

 楼主| 发表于 2019-12-12 10:30:27 | 显示全部楼层
JuncoJet 发表于 2019-12-11 13:03
还以为你说directX呢,你dx变量是个字符串类型,没有这个方法

那应该定义成那种类型呢?
回复 支持 反对

使用道具 举报

发表于 2019-12-12 10:34:51 | 显示全部楼层
309040155 发表于 2019-12-12 10:30
那应该定义成那种类型呢?

应该是窗口对象
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2020-7-7 16:07

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表