用VB在分辨率1024*768下编写的程序,怎样编程才能适应不同的分辨率下的要求!

[tjlth]

[King]

得看阁下编什么软件了，如果是游戏的话，可以参考《侍魂》，用DIRECTX的XMODE作为全屏，用320乘200的窗体作为标准，并可以自由调节大小。如果是WINDOWS的窗体程序，大可以先取得监视器的分辨率，再慢慢调节控件的位置。

[Firing_Sky]

???
在1024*768的分辨率下编程有什么特别的困难吗？
适应不同的分辨率的程序,在Form.Load事件里对Form的Top,Left和窗体上控件的Top,Left进行调整,不过我还记得有一个ActiveX控件，不用写代码就能轻松搞定

[bjseaman]

可以先用Screen.Width \ Screen.TwipsPerPixelX 和 Screen.Height \ Screen.TwipsPerPixelY得到屏幕的分辨率，然后你在依据分辨率的不同
去调整窗体或者控件。

[david]

可以参考近期的杂志<电脑编程技巧与维护>,上面有相关文章.

[Un1]

使用Screen.TwipsPerPixelX和Screen.TwipsPerPixelY变量辅助调整大小和位置。

[apollo]

程序运行前先得到屏幕大小，再调节控件。
或者在编程序时使用内部单位缇

[killerl]

用Screen.TwipsPerPixelX,Screen.TwipsPerPixelY 得到屏幕大小，再用一定的比例关系来调节屏幕的其它控件！我看好多书都是这么做的！

[always]

在某一分辨率做好程序，用Screen.Width \ Screen.TwipsPerPixelX 和 Screen.Height \ Screen.TwipsPerPixelY得到屏幕大小及分辨率作为常数，运行时再用Screen.Width \ Screen.TwipsPerPixelX 和 Screen.Height \ Screen.TwipsPerPixelY得到得到当时的屏幕大小及分辨率,然后你在依据分辨率的不同
去调整窗体或者控件.使用form的controls属性，它代表控件集，用for each ycontrol in (fomr.controls)循环对所有控件操作，注意用typeof ycontrol去判断控件的类型，因为menu,list,等 控件是不能改变位置和大小的。

[foxyhunter]

首先在程序启动时需要记录下当前的屏幕分辨率
: Screen.Width/15 --->分辨率的宽度
: Screen.Heitht/15 ---->分辨率的高度
下面是改变分辨率的方法,我已经试过了,调用API函数ChangeDisplaySettings
下面是在模块中的声明

Attribute VB_Name = "ModuleDisplay"
Const CCHDEVICENAME = 32
Const CCHFORMNAME = 32

Private Type DEVMODE
dmDeviceName As String * CCHDEVICENAME
dmSpecVersion As Integer
dmDriverVersion As Integer
dmSize As Integer
dmDriverExtra As Integer
dmFields As Long
dmOrientation As Integer
dmPaperSize As Integer
dmPaperLength As Integer
dmPaperWidth As Integer
dmScale As Integer
dmCopies As Integer
dmDefaultSource As Integer
dmPrintQuality As Integer
dmColor As Integer
dmDuplex As Integer
dmYResolution As Integer
dmTTOption As Integer
dmCollate As Integer
dmFormName As String * CCHFORMNAME
dmUnusedPadding As Integer
dmBitsPerPel As Long
dmPelsWidth As Long
dmPelsHeight As Long
dmDisplayFlags As Long
dmDisplayFrequency As Long
End Type
Public Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hwwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (lpString1 As DEEVMODE, lpString2 As DEVMODE) As Long
Public Declare Function ChangeDisplaySettings Lib "User32" Alias "ChangeDisplaySSettingsA" (ByVal lpDevMode As Long, ByVal dwflags As Long) As Long

Public Function SetDisplayMode(Width As Integer, Height As Integer, Color As Intteger) As Long
Const DM_PELSWIDTH = &H80000
Const DM_PELSHEIGHT = &H100000
Const DM_BITSPERPEL = &H40000
Dim pDevmode As Long
Dim NewDevMode As DEVMODE
With NewDevMode
.dmSize = 122
If Color = -1 Then
.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
Else
.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT Or DM_BITSPERPEL
End If
.dmPelsWidth = Width
.dmPelsHeight = Height
If Color <> -1 Then
.dmBitsPerPel = Color
End If
End With
pDevmode = lstrcpy(NewDevMode, NewDevMode)
SetDisplayMode = ChangeDisplaySettings(pDevmode, 0)


End Function

在Form中输入如下代码

Dim i as Long
i=SetDisplayMode(640,480,16)
将分辨率改成640*480,16色

当然别忘记在退出程序时，改回原来的分辨率

[major2]

foxyhunter的办法最好，在你的程序一开始处先判断计算机当前分辨率是否为1024*768，如果是，则继续运行，如果不是，则先把当前的分辨率保存下来，然后再用foxyhunter告诉你的那个API函数把当前分辨率调整为1024*768。注意，不要改变颜色数，因为如果颜色数改变会要求重新启动计算机的。在你的程序结束时再用这个函数把分辨率设置回来就可以了。好多游戏在一开始的时候计算机屏幕会黑一下就是因为它在调整屏幕分辨率。

[always]

用用这个函数：
Sub autochange(formi As Form)
Dim ratex As Double, ratey As Double
Dim acontrol As Control
ratex = Screen.Width * 1# / 15360 '我做当前工程时屏幕的大小(1024分辨率)
ratey = Screen.Height * 1# / 11520
formi.WindowState = 2 '最大化时,其它可参考相应改动
For Each acontrol In formi.Controls
If Not (TypeOf acontrol Is Timer) And Not (TypeOf acontrol Is Menu) And _
Not (TypeOf acontrol Is CommonDialog) Then
acontrol.Width = acontrol.Width * ratex
If Not (TypeOf acontrol Is ComboBox) Then acontrol.Height = acontrol.Height * ratey
acontrol.Left = acontrol.Left * ratex
acontrol.Top = acontrol.Top * ratey
acontrol.Move acontrol.Left, acontrol.Top
End If
Next
End Sub
记得给分哦。