欢迎光临:
非常感谢您光临枕善居。本站是一个免费的基于VB，VB.NET源代码交流的平台，为大家提供优质的专业的源代码，如果您有需要，本站可以帮助在业余时间里给您寻找代码。当然，如果您有好的代码也可以在本站发布，共享给大家。
专业VB和.NET源码、编程开发教程、图标资源、USB电脑遥控器、智能家电控制开关....更多东东请进入我的淘宝小店--->
VB及.NET新源码2011(3DVD,控件+资源)
智能多路控制(串口编程开关) 带源码!
上一篇
下一篇
05-07
02
获取屏幕分辩率
作者:枕善居主 / 查看次数: 5466 / 评论: 1
Option Explicit
Function GetRes() As String
Dim XRes, YRes As Integer
XRes = Screen.Width / Screen.TwipsPerPixelX
YRes = Screen.Height / Screen.TwipsPerPixelY
GetRes = XRes & "x" & YRes
End Function
Private Sub Command1_Click()
MsgBox GetRes
End Sub
Function GetRes() As String
Dim XRes, YRes As Integer
XRes = Screen.Width / Screen.TwipsPerPixelX
YRes = Screen.Height / Screen.TwipsPerPixelY
GetRes = XRes & "x" & YRes
End Function
Private Sub Command1_Click()
MsgBox GetRes
End Sub
相关日志:
文章来自: 
引用通告: 
Tags: 
评论: 1 | 
回复
TalentLi
[2005-07-03 12:35:47 | 
| 
]发表评论
您没有权限发表评论！
