高分奉送！！！急急

关注！我也遇到这样的问题了！我现在是想这样解决：程序运行开始判断屏幕的分辨率，然后根据屏幕的分辨率来显示窗体的位置！有人这样解决：在窗体上放置一个picturebox然后再picturebox上放置滚动条。
编写程序，如果显示的窗体超出了picturebox的边界，可以通过滚动条调整！

With Me
    .Top = 0
    .Left = 0
    .Width = Screen.Width
    .Height = Screen.Height
End With

to：　dsclub(云中鹤)　
还是me.windowstate=2好，不然有任务栏怎么办？

dsclub(云中鹤):你说的不行呀
HungryBoy(饥饿的男孩)：我用是mdiform的picture，无法放picturebox

sxmzmxh(要命的小方)：你用分辨率不同的显示器做一个vb程序，然后你就会发现这个问题，你说的我设置窗体的属性时就已经是form.windowstate=2了

Me.WindowState = 2加在Form_load中试试，一般只有从高分辨率到低分辨率窗体显示不完整，从低到高不该有问题啊

用VB设计能适应各种显示属性的界面
(录入日期：2001.03.13 阅读次数：239) 转载不详
作者：不详 --------------------------------------------------------------------------------

作者:
转自: vb爱好者---- 在设计一般应用软件时，总希望设计的软件, 无论显示器分辨率设置是640X480, 800X600 还是1024X768, 无论显示器设置是在大字体还是小字体软件都能正常运行，并且有美观一致的界面。本人在用VB5.0 设计《英语集成训练系统V2.0》时，亦遇到这样的麻烦。下面解释克服这一问题的方法。 ---- 一：使界面居中 ---- 为了使界面元素能在各种显示分辨率下均有合理的布局，一种方法就是获取当前显示分辨率，然后根据这一分辨率计算界面各元素的位置和大小，并进行设置。这种方法虽然能解决界面元素布局问题，但需要知道每个元素的位置和大小，程序烦琐。 ---- 我这里采用的方法是：首先设计一个具有极大化, 无边界，无标题，无控制盒的窗体，然后在其上放置一个容器控件Picture，在Picture 中再放置其它控件。在窗体Load 事件中根据当前的显示分辨率居中Picture，从而实现了居中整个界面。具体代码如下： Private Sub Form_Load()
Call CenterControl(Picture1)
End Sub
Public Sub CenterControl(obj As Object)
Dim cx, cy As Single
cx =(Screen.Width/Screen.
TwipsPerPixelX-obj.Width)/2#
cy =(Screen.Height/Screen.
TwipsPerPixelY-obj.Height)/2#
obj.Left = cx
obj.Top = cy
End Sub---- 二：使界面适应大字体与小字体 ---- Win95 在创建控件时，会根据当前显示属性为大字体或小字体来作相应调整。尽管应用程序传送的参数（控件位置和尺寸）是一致的，但实际控件的位置和尺寸在这两种情形下并不一样。如果应用程序仅仅考虑一般小字体的情况，在大字体下界面则十分难看混乱，甚至无法操作。为解决这一问题，首先应了解当前显示器设置，这可通过系统注册表来获取。下面的程序采用了另一种方法：首先在一个映射模式为Pixel 的窗体中放置一个控件，在显示属性为小字体的设计环境下首先看一下控件的初始位置x,y，然后在窗体的Load 事件中计算出X 和Y 方向的放大比例xFac,yFac: Private Sub Form_Load()
xFac = 400# / mmlhwnd.Left
yFac = 400# / mmlhwnd.Top
End Sub---- 其中，mmllhwnd 为放置在窗体中的控件，初始的坐标为400,400。 ---- 最后在各个需要调整界面的窗体Load 事件中调用下列子程序，调整各控件的位置与大小： Public Sub CorrectForm(fm As Form)
Dim C As Control
For Each C In fm.Controls
If TypeOf C Is Timer Then
ElseIf TypeOf C Is CommonDialog Then
ElseIf TypeOf C Is Line Then
C.X1 = C.X1 * xFac
C.Y1 = C.Y1 * yFac
C.X2 = C.X2 * xFac
C.Y2 = C.Y2 * yFac
Else
C.Left = C.Left * xFac
C.Top = C.Top * yFac
If TypeOf C Is SSCommand Then
C.Width = C.Width * xFac
C.Height = C.Height * yFac
C.FontSize = C.FontSize * xFac
ElseIf TypeOf C Is CommandButton Then
C.Width = C.Width * xFac
C.Height = C.Height * yFac
C.FontSize = C.FontSize * xFac
ElseIf TypeOf C Is ListBox Then
C.Width = C.Width * xFac
C.Height = C.Height * yFac
C.FontSize = C.FontSize * xFac
ElseIf TypeOf C Is ComboBox Then
C.Width = C.Width * xFac
C.FontSize = C.FontSize * xFac
End If
End If
Next C
End Sub---- 上述程序中仅列举了几个典型的控件，如果窗体中还有其它类型的控件，仿造上述程序加入对这些控件类型的处理即可。

调试易

高分奉送！！！急急

解决方案 »