网络编程 | 站长之家 | 网页制作 | 图形图象 | 操作系统 | 冲浪宝典 | 软件教学 | 网络办公 | 邮件系统 | 网络安全 | 认证考试 | 系统进程
Firefox | IE | Maxthon | 迅雷 | 电驴 | BitComet | FlashGet | QQ | QQ空间 | Vista | 输入法 | Ghost | Word | Excel | wps | Powerpoint
asp | .net | php | jsp | Sql | c# | Ajax | xml | Dreamweaver | FrontPages | Javascript | css | photoshop | fireworks | Flash | Cad | Discuz!
当前位置 > 网站建设学院 > 网络编程 > Visual Basic
Tag:注入,存储过程,分页,安全,优化,xmlhttp,fso,jmail,application,session,防盗链,stream,无组件,组件,md5,乱码,缓存,加密,验证码,算法,cookies,ubb,正则表达式,水印,索引,日志,压缩,base64,url重写,上传,控件,Web.config,JDBC,函数,内存,PDF,迁移,结构,破解,编译,配置,进程,分词,IIS,Apache,Tomcat,phpmyadmin,Gzip,触发器,socket
网络编程：ASP教程,ASP.NET教程,PHP教程,JSP教程,C#教程,数据库,XML教程,Ajax,Java,Perl,Shell,VB教程,Delphi,C/C++教程,软件工程,J2EE/J2ME,移动开发
本月文章推荐
.SQL的基本操作（4.数据的检索）.
.VB6内置的内码转换功能.
.VB中访问存储过程的几种办法.
.VisualBasic属性、方法和事件六.
.VB里实现帮助文件速成.
.多用户应用程序中应注意的其它问.
.SQLServer数据对象结构的动态建立.
.在数据库中不用EOF以加快记录循环.
.成组更新控件属性.
.VisualBasic代码优化的六条军规.
.在VB程序中通过回收站删除文件.
.VB的“问”与“答”.
.文档数据库与关系数据库的比较.
.在VB中用DAO实现数据库编程.
.VB操作.ini后缀文件的方法.
.用VB编写网络寻呼机.
.VB中调用带参数存储过程的实现.
.MDIForm可否跟一般的表单一样设定.
.VB中利用WinRAR进行文件压缩.
.在VB6.0中使ACCESS数据库在网络使.

动态改变屏幕设置

发表日期：2006-2-27

我们经常看到许多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

->
上一篇：开机，自动更换墙纸 人气:3408
下一篇：桌面屏幕翻转 人气:5482
浏览全部Visual Basic的内容 Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐