2013-05-09 61 views
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) 

末次

任何想法如何,我可能会得到这些窗口调整大小事件作出适当的反应?

+1

请提供更多详细信息。什么样的控制?他们应该如何调整大小? – SLaks 2013-05-09 13:35:00

+0

当抓住窗口的边缘并拖动来调整窗口的大小时,窗口不响应。 – user1663203 2013-05-09 13:42:19

+0

你使用VB 6或VB.Net吗? – SLaks 2013-05-09 14:00:49

回答

0

也许u需要下载新的固定的DLLVB赢得8或需要访问permision为VB6.EXE允许所有操作。

也许你被禁用赢8主题,以VB的工作良好。

我在win8中遇到了更多vb6in问题,但是当我在win 7中禁用了主题或者赢了8之后,我的很多问题都没有解决。

相关问题