VB播放图片怎样适应所有显示器

来源：百度知道 编辑：UC知道 时间：2024/05/31 16:00:34
用VB做幻灯片 在同分辨率的显示器上显示正常 在电视屏幕上显示不出全部图片 请指教 急~~！！！

PS：做的是课件 显示器用学校的电视

'比较简单的做法是直接在你的程序中直接更改屏幕的分辨率
'更改屏幕分辨率方法：

'模块代码
Option Explicit

Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, _
ByVal nIndex As Long) As Long

Public Declare Function ChangeDisplaySettings Lib "user32.dll" Alias "ChangeDisplaySettingsA" _
(ByRef lpDevMode As DEVMODE, ByVal dwFlags As Long) As Long

Public Declare Function EnumDisplaySettings Lib "user32.dll" Alias "EnumDisplaySettingsA" (ByVal _
lpszDeviceName As String, ByVal iModeNum As Long, ByRef lpDevMode As DEVMODE) As Long

Const DM_PELSHEIGHT As Long = &H100000
Const DM_PELSWIDTH As Long = &H80000
Const DM_BITSPERPEL As Long = &H40000
Const DM_DISPLAYFREQUENCY As Long = &H400000
Public Const HORZRES = 8
Public Const VHORZRES = 10
Public Const VREFRESH = 116

Public Const BITSPIXEL = 12
Const CCHDEVICENAME As Long