Question

我正在更新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)

End Sub

我是如何让这些窗口正确响应调整大小事件的？

Answer 1

也许您需要在 win 8 中为 vb 下载 new fixed dll ，或者需要访问vm6.exe的permision以允许所有操作。< / p>

也许你是sholude被禁用赢8主题vb工作良好。

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

VB用户控件没有在Windows 8中调整大小

1 个答案: