⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 m20.htm

📁 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程
💻 HTM
字号:
🔍 
<html>
<head>
<title>VB教程</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
 
</head>
<p align="center"><script src="../../1.js"></script></a>

<body bgcolor="#ffffff" leftmargin="5" topmargin="1" marginheight="5" marginwidth="5">
<div align=center> 
  <table border=0 cellpadding=0 cellspacing=0 width=680 align="center">
    <tbody> 
     
    <tr> 
      <td bgcolor=#000000 height=14> 
        <div align=center class=H1>    <font color="#FFFFFF" class="unnamed1">发现剪帖板的秘密</font> </font> </font></div>
      </td>
    </tr>
    <tr valign=top> 
      <td class=H1 height=236> 
        <p align="left">   [注：这是我以前收藏的一篇好文章，与大家一起共享]<br>
          <br>
          概述 <br>
          　　Windows 中的Ctrl+C 和Ctrl+V 大家应该很熟悉了，但是您知道剪帖板里有啥？<br>
          　　举个例子，在IE4中选一段东东，按Ctrl+C，然后在FrontPage 中按Ctrl+V，您选的东东完整地拷贝到了FrontPage 
          中，字体，颜色等等。明显，剪帖板中一定包含了Html信息，而如果我们在编程也要得到这些信息，该怎么办呢？ <br>
          　　本文提供了两种技巧，一是如何得到关于剪贴格式的名称，一是如何用文本格式显示剪贴版中特定剪贴格式内容。 <br>
          　　在我们的第一个演示中，利用一个很笨的方法来得到Html剪贴格式的名称。 　　　　　　 　　　　　　 　　GetClipboardFormatName可以由剪贴板的ID得到该格式的名称，于是用一个循环来查找所有包含Html文字的格式。 
          <br>
          　　在第二个例子中，我们使用了在例子一中得到的名称，把在IE4中剪贴的Html内容合并到一个TextBox 中， 好让我们知道里面有什么样的信息。 
          <br>
          <br>
          实现步骤 <br>
          <br>
          例子一 得到剪贴格式的名称 <br>
          1 新建一个工程。 <br>
          2 在工程中增加一个命令按钮(Command1)。 <br>
          3 增加下面的代码： <br>
          <br>
          Private Declare Function GetClipboardFormatName Lib "user32" Alias "GetClipboardFormatNameA" 
          (ByVal wFormat As Long, ByVal lpString As String, ByVal nMaxCount As 
          Long) As Long <br>
          <br>
          Private Sub Command1_Click() <br>
          　　Dim FormatID As Long <br>
          　　Dim BufferLen As Long <br>
          　　Dim Buffer As String * 80 <br>
          　　　For FormatID = 50000 To 60000 ’一般有效的 ID 在该区内 <br>
          　　　BufferLen = GetClipboardFormatName(FormatID, Buffer, 80) <br>
          　　　If BufferLen &gt; 0 Then <br>
          　　　If InStr(UCase(Left(Buffer, BufferLen)), "HTML") &gt; 0 Then <br>
          　　　　 MsgBox FormatID &amp; ":" &amp; Buffer <br>
          　　　End If <br>
          　　　Next <br>
          End Sub <br>
          <br>
          <br>
          　　 运行该程序， 可以发现多个带 Html 的格式名称， 经过测试，HTML Format是我们要找的。 注意： 没有 IE4 的话， 
          可以使用 RTF 进行查询， 以查看 RichText 的剪贴内容。 <br>
          <br>
          例子二 得到 IE4 的剪贴内容 <br>
          1 新建一个工程。 <br>
          2 在工程中增加一个命令按钮(Command1)， 一个TextBox(Text1)， 允许多行显示。 <br>
          3 增加下面的代码： <br>
          <br>
          Private Declare Function OpenClipboard Lib "USER32" (ByVal hWnd As Long) 
          As Long <br>
          Private Declare Function CloseClipboard Lib "USER32" () As Long <br>
          Private Declare Function GetClipboardData Lib "USER32" (ByVal wFormat 
          As Long) As Long </font></span><br>
           </p>
      </td>
    </tr>
  
  </table>
</div>


<p align="center"><a href="../../pian/vb.htm">回首页</a>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -