📄 1970.html
字号:
<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>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -