关于分辨率的问题。

Fanks 2003-01-18 11:06:24

改变分辨率已经有很多帖子，但本人现在还存在一个问题。在分辨率提高后(Win98)，原来在屏幕最下端的任务栏跑到了屏幕中间(可以手工拖到底端)，而且图标排列也没有变化(自动排列)，即便手工排列也和低分辨率时一样，似乎桌面并没有变大，不知何故，求解赠分。

...全文

74 23 打赏收藏转发到动态举报

写回复

用AI写文章

23 条回复

切换为时间正序

请发表友善的回复…

发表回复

13161795500 2003-02-10

打赏
举报

up!抢分！

since1990 2003-01-24

打赏
举报

xue xi

Fanks 2003-01-24

打赏
举报

谢谢dengwei007(邓蔚)和zhou_huanxi(阿周)两位，但到目前为止，用刷新桌面的办法还是无法解决问题，急呀...，难道只有少数机子会出现这个问题吗？

along 2003-01-24

打赏
举报

98 me 下涮新桌面可用如下方法：
Shell "rundll32 user,repaintscreen"

pandengzhe 2003-01-24

打赏
举报

重装，看看是硬件还是软件问题

dengwei007 2003-01-23

打赏
举报

是window的桌面没有根据的程序的调整而自动refresh的缘故
你可以自己给它发个刷新消息

sob 2003-01-23

打赏
举报

密切GZing

along 2003-01-23

打赏
举报

呵呵，发错地方了。

along 2003-01-23

打赏
举报

给你一代码请你尝试，效果还过得去
VB6 SP5 WINDOWSME下调试通过
Private Sub Form_Load()
ResiZe1 Me
End Sub

'检查屏幕的分辨率确定窗体的大小----保证窗体在不同分辨率下大小近似不变
Private Function CheckRez(pixelWidth As Long, pixelHeight As Long) As Boolean

Dim lngTwipsX As Long
Dim lngTwipsY As Long

lngTwipsX = pixelWidth * 15
lngTwipsY = pixelHeight * 15

If lngTwipsX <> Screen.Width Then
CheckRez = False
Else
If lngTwipsY <> Screen.Height Then
CheckRez = False
Else
CheckRez = True
End If
End If

End Function

'获取系统显示分辨率控制在不同分辨率下大小不变
'此处只列举了640X480；1024X768与800X600
'窗体在800X600时设计
'具体请应用时灵活设计
Function XRatioFun() As Single
If CheckRez(640, 480) Then
XRatioFun = 0.8

ElseIf CheckRez(1024, 768) Then
XRatioFun = 1.28

ElseIf CheckRez(800, 600) Then
XRatioFun = 1
Else
XRatioFun = 1
End If
End Function

'重定位窗体与其上的控件
Sub ResiZe1(theForm As Form)
Dim Z&
Dim xfactor!
xfactor = XRatioFun

theForm.Move theForm.Left * xfactor, theForm.Top * xfactor, _
theForm.Width * xfactor, theForm.Height * xfactor

For Z = 0 To theForm.Controls.Count - 1

'If TypeOf TheForm.Controls(Z) Is CommonDialog Then
'如果在窗体上有运行时不可见的ACTIVEX控件不要移动，比如IMAGELIST与CommonDialog等等
'If TypeOf theForm.Controls(Z) Is ImageList Then
If TypeOf theForm.Controls(Z) Is Menu Then
'菜单系统会自动处理
ElseIf TypeOf theForm.Controls(Z) Is Line Then
'直线控件不要处理
ElseIf TypeOf theForm.Controls(Z) Is DriveListBox Then

theForm.Controls(Z).Move theForm.Controls(Z).Left * xfactor, _
theForm.Controls(Z).Top, theForm.Controls(Z).Width * xfactor

ElseIf TypeOf theForm.Controls(Z) Is ComboBox Then

If theForm.Controls(Z).Style <> 1 Then

theForm.Controls(Z).Move theForm.Controls(Z).Left * xfactor, _
theForm.Controls(Z).Top * xfactor, theForm.Controls(Z).Width * _
xfactor

End If

ElseIf Not theForm.Controls(Z) Is Nothing Then

theForm.Controls(Z).Move theForm.Controls(Z).Left * xfactor, _
theForm.Controls(Z).Top * xfactor, theForm.Controls(Z).Width _
* xfactor, theForm.Controls(Z).Height * xfactor

If TypeOf theForm.Controls(Z) Is TextBox Then
theForm.Controls(Z).FontSize = theForm.Controls(Z).FontSize * xfactor
ElseIf TypeOf theForm.Controls(Z) Is Label Then
theForm.Controls(Z).FontSize = theForm.Controls(Z).FontSize * xfactor
End If

End If
Next Z

End Sub

Fanks 2003-01-23