1487.html

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· HTML 代码 · 共 22 行

HTML

22 行

<html>  <head>    <title>使用 GetDeviceCaps API</title>  </head>  <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK="">    <center>      <h1>使用 GetDeviceCaps API</h1>    </center><HR><p>Posted by <a href="mailto:yfwu@iname.com">小吴</a> on December 11, 1997 at 16:44:35:<p>In Reply to: <a href="1462.html"><b>请指教：如何在 VB 中判断当前的显示状态</b></a> posted by 小蕾 on December 07, 1997 at 07:31:08:<p>使用 GetDeviceCaps API 传入 Form 的 hDC 以及 BITSPIXEL 常数即可。如下例：<p>Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long<br>Private Const BITSPIXEL = 12<p>Private Sub Command1_Click()<br>　Dim i<br>　i = GetDeviceCaps(hdc, BITSPIXEL)<br>　MsgBox 2 ^ i & " colors"<br>End Sub<br><br><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 1487--></ul><!--end: 1487--><br><HR><p></body></html>

1487.html - 源码说明

本页面展示了「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.」中的 1487.html 源码文件，采用 HTML 编程语言编写，共 22 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与VB相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?