2

我正在更新一个 vb6 应用程序以在 Windows 8 中运行，其中一个问题是用户控制窗口没有调整大小（通过窗口边缘拖动句柄）。它在其他操作系统下运行良好。

同样的问题困扰着主项目窗口。

窗口的元素在此函数中控制，但窗口本身不响应调整大小。

Private Sub UserControl_Resize()
If g_ShuttingDown Then Exit Sub
' Test for zero size
If ScaleWidth = 0 Or ScaleHeight = 0 Then Exit Sub

' Min size
'If ScaleWidth < iMIN_FORM_WIDTH Then UserControl.Width = iMIN_FORM_WIDTH
'If ScaleWidth < iMIN_FORM_HEIGHT Then UserControl.Height = iMIN_FORM_HEIGHT

' Form dimensions
Dim x, y, w, H As Long
x = ScaleLeft
y = ScaleTop
w = ScaleWidth
H = ScaleHeight

picTitleBar.Move 0, 0, w - 30, 240
imgTitleBar.Move 0, 0, picTitleBar.Width, 240
lblCaption.Move 45, 15
imgClose.Move picTitleBar.Width - imgClose.Width - 60, 60

chkVerbose.Move 15, picTitleBar.Top + picTitleBar.Height
cmdClear.Move chkVerbose.Left + chkVerbose.Width, chkVerbose.Top
chkPause.Move cmdClear.Left + cmdClear.Width, chkVerbose.Top

Messages.Move 15, chkVerbose.Top + chkVerbose.Height, w - 30, H - (chkVerbose.Top + chkVerbose.Height)

结束子

有什么想法可以让这些窗口正确响应调整大小事件吗？

4

1 回答 1

0

也许您需要在win 8中为vb下载新的固定 dll ，或者需要 vb6.exe 的访问权限以允许所有操作。

也许你应该被禁用 win 8 主题到 vb 工作好。

我在 win8 的 vb6in 上遇到了更多问题，但是当我在 win 7 或 win 8 中禁用主题时，我的许多问题都得到了解决。

于 2013-09-30T08:00:03.107 回答