2

vb6 アプリケーションを Windows 8 で実行するように更新していますが、問題の 1 つはユーザー コントロール ウィンドウのサイズが変更されないことです (ウィンドウ エッジのドラッグ ハンドルを使用)。他のOSでは正常に動作します。

同じ問題がメイン プロジェクト ウィンドウを悩ませています。

ウィンドウの要素はこの関数で制御されますが、ウィンドウ自体はサイズ変更に応答しません。

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 のアクセス許可が必要です。

そして多分あなたはvbがうまくいくように8のテーマを無効にするべきです。

私はwin8でvb6にもっと問題がありますが、win 7またはwin 8でテーマを無効にすると、多くの問題が解消されました。

于 2013-09-30T08:00:03.107 に答える