Question

我有一个巨大的VB项目，我从一个人那里得到的。我想在其中的对话框中添加一个复选框，因此我打开了Main2.frm并添加了一个使用ide的复选框。但现在当我运行应用程序时，对话框调整为其原始大小，因此不会显示位于底部的新复选框。我知道这意味着在代码中的某个地方可能会有一些调整对话框的大小但是我已经扫描了代码而没有发现任何内容。正在创建对话框的地方正在完成：

Main2.vsCodeOptions.Left = 10 Main2.vsCodeOptions.Top = 0

Main2.Move main.Left + (main.Width - Main2.Width) \ 2, main.Top + (main.Height - Main2.Height) \ 2, 3900, 5010
Main2.VSImport.Visible = False
Main2.VSAlload.Visible = False
Main2.VsrepPrt.Visible = False
Main2.VSAbout.Visible = False
Main2.vsCodeOptions.Visible = True

Main2.Left = main.Left + (main.Width - Main2.Width) \ 2
Main2.Top = main.Top + (main.Height - Main2.Height) \ 2
'Use this code to make the form stay on top in the form module:
SetWindowPos Main2.hWnd, HWND_TOPMOST, Main2.Left, Main2.Top, 0, 0, SWP_NOMOVE + SWP_NOSIZE

我还是VB和VB编辑器的新手。我想在一个对话框中的所有控件集体移动，一种方法是逐个选择它们，但我想选择所有，然后移动它们为新对话框腾出空间 -

感谢

Answer 1

代码段的第一行 - 是不是设置了Main2的大小？到3900 x 5010？然后几行之后你再次移动表格（到达它的确切位置），这是没有充分理由的。

我有点被所有人抛弃了 - 他们应该是吗？你输入这个或粘贴它吗？

Answer 2

尝试相对于表单的Top和Left属性设置控件的位置。这样，无论表单的大小如何，它都将始终处于相同的位置。

当我使用VB编辑器6.0在Visual Basic中运行它时，不会出现对对话框的更改

2 个答案: