1970.html

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

HTML

22 行

<html>  <head>    <title>从exe中取图</title>  </head>  <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK="">    <center>      <h1>从exe中取图</h1>    </center><HR><p>Posted by <a href="mailto:fann@tccm.edu.tw">小刘</a> on February 16, 1998 at 20:12:45:<p>In Reply to: <a href="1966.html"><b>Re: 两个问题想请教各位高手.........</b></a> posted by 小吴 on February 16, 1998 at 17:30:15:<p>Form 中有两个物件 Command1 及 Picture1<br>Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long<br>Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long<p>Private Sub Command1_Click()<br>Dim hIcon As Long, Reg As Long<p>　hIcon = ExtractIcon(0, "c:\win95\notepad.exe", 1)<br>　Reg = DrawIcon(Picture1.hdc, 0, 0, hIcon)<p>End Sub<p><br><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 1970--></ul><!--end: 1970--><br><HR><p></body></html>

1970.html - 源码说明

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

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

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?