2
我正在更新一个VB6应用程序在Windows 8中运行,其中一个问题是用户控制窗口没有调整大小(通过窗口边缘拖动手柄)。它在其他操作系统下工作正常。VB用户控件不在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)
末次
任何想法如何,我可能会得到这些窗口调整大小事件作出适当的反应?
请提供更多详细信息。什么样的控制?他们应该如何调整大小? – SLaks 2013-05-09 13:35:00
当抓住窗口的边缘并拖动来调整窗口的大小时,窗口不响应。 – user1663203 2013-05-09 13:42:19
你使用VB 6或VB.Net吗? – SLaks 2013-05-09 14:00:49