动态改变屏幕设置

2016-02-19 20:15 6 1 收藏

生活已是百般艰难,为何不努力一点。下面图老师就给大家分享动态改变屏幕设置，希望可以让热爱学习的朋友们体会到设计的小小的乐趣。

【 tulaoshi.com - 编程语言】

我们经常看到许多Win95的应用程序（尤其是游戏）在运行它的时候改变屏幕的设置，运行完后恢复，在VB中，我们可以用以下方法实现：
　　'-定义
　　PrivateDeclareFunctionlstrcpy_
　　Lib"kernel32"Alias"lstrcpyA"_
　　(lpString1AsAny,lpString2AsAny)_
　　AsLong
　　ConstCCHDEVICENAME=32
　　ConstCCHFORMNAME=32
　　PrivateTypeDEVMODE
　　dmDeviceNameAsString*CCHDEVICENAME
　　dmSpecVersionAsInteger
　　dmDriverVersionAsInteger
　　dmSizeAsInteger
　　dmDriverExtraAsInteger
　　dmFieldsAsLong
　　dmOrientationAsInteger
　　dmPaperSizeAsInteger
　　dmPaperLengthAsInteger
　　dmPaperWidthAsInteger
　　dmScaleAsInteger
　　dmCopiesAsInteger
　　dmDefaultSourceAsInteger
　　dmPrintQualityAsInteger
　　dmColorAsInteger
　　dmDuplexAsInteger
　　dmYResolutionAsInteger
　　dmTTOptionAsInteger
　　dmCollateAsInteger
　　dmFormNameAsString*CCHFORMNAME
　　dmUnusedPaddingAsInteger
　　dmBitsPerPelAsInteger
　　dmPelsWidthAsLong
　　dmPelsHeightAsLong
　　dmDisplayFlagsAsLong
　　dmDisplayFrequencyAsLong
　　EndType
　　PrivateDeclareFunction_
　　ChangeDisplaySettingsLib_
　　"User32"Alias"ChangeDisplaySettingsA"(_
　　ByVallpDevModeAsLong,_
　　ByValdwflagsAsLong)AsLong
　　'-函数

PublicFunctionSetDisplayMode(WidthAs_
　　Integer,HeightAsInteger,ColorAs_
　　Integer)AsLong
　　ConstDM_PELSWIDTH=&H80000
　　ConstDM_PELSHEIGHT=&H100000
　　ConstDM_BITSPERPEL=&H40000
　　DimNewDevModeAsDEVMODE
　　DimpDevmodeAsLong
　　WithNewDevMode
　　.dmSize=122
　　IfColor=-1Then
　　.dmFields=DM_PELSWIDTHOrDM_PELSHEIGHT
　　Else
　　.dmFields=DM_PELSWIDTHOr_
　　DM_PELSHEIGHTOrDM_BITSPERPEL
　　EndIf
　　.dmPelsWidth=Width
　　.dmPelsHeight=Height
　　
　　IfColor-1Then
　　.dmBitsPerPel=Color
　　EndIf
　　EndWith
　　pDevmode=lstrcpy(NewDevMode,NewDevMode)
　　SetDisplayMode=ChangeDisplaySettings(pDevmode,0)
　　EndFunction
　　例子调用：改变为640x480x24位：
　　i=SetDisplayMode(640,480,24)
　　如果成功返回0

来源:http://www.tulaoshi.com/n/20160219/1623166.html

上一篇：利用VisualBasic实现木马攻击
下一篇：在JSP环境中如何配置和使用fckeditor

看过《动态改变屏幕设置》的人还看了以下文章更多>>

腾讯微云屏幕锁怎么设置

标签：手机软件应用软件

腾讯微云屏幕锁怎么设置腾讯微云屏幕锁设置方法。屏幕锁即tulaoshi相当于应用锁，即是腾讯微云在手机后台运行未关闭的情况下再次进入腾讯微云都需要输入屏幕锁，有效的保护特殊情况下隐私安全，接下来图老师小编就就大家腾讯微云屏幕锁设置方法。 1)打开腾讯微云进入应用后点击右下角，接着点击，在设置页面的点击。(如下...

WPS设置屏幕可以竖着看

标签：电脑入门

用上网本的朋友越来越多了，可你知道上网本也可以竖着看吗？今日，金山WPS上网本定制版已在官方网站首度发布，很好的解决了上网本屏幕小的不足，让用户可以拥有多种视图模式，充分利用了小本的屏幕，其中就包括把本子竖起来看。提供的模式包括传统视图模式简单编辑模式审阅模式竖屏模式全屏模式。用户可以自主选择，在不同视图间切换。拥有...

呱呱漫画怎么设置屏幕方向

标签：手机软件应用软件

呱呱漫画怎么设置屏幕方向呱呱漫画设置屏幕方向方法。在呱呱漫画看漫画的时候屏幕方向总是看不习惯?没关系，小伙伴们可以设置屏幕方向，那么怎么设置屏幕方向呢?现在图老师小编就教大家呱呱漫画怎么设置屏幕方向。 1)打开呱呱漫画，点击右下角的，然后点击下方的;(如下图) 2)点击下方的，接着点击下方要选择...

iPhone自动旋转屏幕怎么设置

标签： iphone iPhone 5s iPhone 6 iphone刷机

iPhone自动旋转屏幕怎么设置大家都知道苹果手机是有一个自动旋转屏幕功能(iphone竖排锁定)，那么iPhone这个功能如何打开，又如何锁定自动旋转屏幕呢?本文就来介绍一下，包括iOS7与iOS6的设置，方法是不一样的哦。 iOS7自动旋转屏幕怎么设置? 大家都知道屏幕从上往下滑是打开通知中心，那么您有没有试过从下往上滑呢?iOS7...

唯圈怎么设置动态水印

标签：手机软件应用软件

唯圈怎么设置动态水印唯圈怎么设置动态水印？相信很多小伙伴都注意到了，很多人的圈子里面分享出来的动态都带有水印，那么要怎么设置动态水印呢?现在图老师小编就教大家唯圈设置动态水印方法。 1)打开唯圈，然后点击打开圈子，接着点击右上角的;(如下图) 2)点击，接着点击下方的编辑框输入TuLaoShi.com水印内...

查看更多精彩>>