Screen.TwipsPerPixelX和Screen.TwipsPerPixelY是什么意思?有什么用途? 能说的更详细一点吗?或是给段代码吗?多谢楼上的大哥 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Private Sub form_load() Dim ScrW As Long, ScrH As Long Dim Str As String Str = "你的屏幕为" & Screen.Width & "*" & Screen.Height & "缇" ScrW = Screen.Width / Screen.TwipsPerPixelX ScrH = Screen.Height / Screen.TwipsPerPixelY Str = Str & vbCrLf & "你的屏幕为" & ScrW & "*" & ScrH & "象素" MsgBox StrEnd Sub 求一断开外网连接的思路 list控件简单问题 ADODB.Command调用MSSQL存储过程遇到的问题 VB中间如何解决多线程通讯的问题 listbox控件List1.Appearance = 0时,如何去掉四周的黑线?? 菜鸟问题,怎么读取目录下的所有文件? 郁闷,撒分!悲哀的项目!!!来者有分哟!!! 关于图片大小的的概念 我定义全局变量,在VB中能否做到定义时就能赋初值? 如何将一个窗体由中央向四周扩散?高分相送?请附代码? 一个非常简单的问题,送分30 谁能帮我从动态库.dll中调出一函数 ?急啊!
Dim ScrW As Long, ScrH As Long
Dim Str As String
Str = "你的屏幕为" & Screen.Width & "*" & Screen.Height & "缇"
ScrW = Screen.Width / Screen.TwipsPerPixelX
ScrH = Screen.Height / Screen.TwipsPerPixelY
Str = Str & vbCrLf & "你的屏幕为" & ScrW & "*" & ScrH & "象素"
MsgBox Str
End Sub