VB中，修改屏幕分辨率后，如何让窗体大小跟着变？

Question

我原来在窗体上加了timer，1秒检测一次分辨率，然后改变窗体大小，在F5试运行的时候没问题，但是做成EXE后，窗体不跟着变化.

Answer 1

原型：
int WINAPI icePub_sizeFormToScreen(HWND hWnd,int screenModel)
输入：hWnd 窗口句柄
screenModel 0 动态随屏幕调整,否则固定:1 640x480,2 800x600,3 1024x768
输出：

Private Declare Function icePub_sizeFormToScreen Lib "icePubDll.dll" (ByVal hWnd As Long,ByVal screenModel As Integer) As Integer

Dim a2 As Integer
a2 = icePub_sizeFormToScreen(Me.hWnd,0)

参考资料：http://bbs.icese.net/icepubdll/icePubDLL%bd%d2%c3%d820110624.pdf

Answer 2

Print "交换第二列和第四列后的矩阵为："
For j = 1 To 5
t = mat(2, j)
mat(2, j) = mat(4, j)
mat(4, j) = t
Next
For i = 1 To 5
For j = 1 To 5
Print Tab(j * 5); mat(i, j);
Next
Print
Next
End Sub本回答被提问者采纳

Answer 3

换台电脑试一试