📄 3256.html

📁 以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

💻 HTML

字号:

<html>
  <head>
    <title>如何将PaintPicture的图形存档或放到CLIPBOARD中</title>
  </head>
  <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK="">
    <center>
      <h1>如何将PaintPicture的图形存档或放到CLIPBOARD中</h1>
    </center>

<HR><p>
Posted by <a href="mailto:chyeu@email.gcn.net.tw">陈春雨</a> on June 15, 1998 at 21:46:55:<p>
各位网友好:<br>小弟现有一个需求如下:<br>1.要将9张图片依九宫格方式接在一起.<br>2.接好后的新图形可存档或放到CLIPBOARD中<br>但我始终抓不到(但执行看得到)接合后的图形???<br>程式约略如下:<br>Private Sub Command1_Click()<br>Dim pic1 As Object<br>Dim Pic2 As Object<br>Dim pic3 As Object<p>Set pic1 = LoadPicture("c:\vb\102.bmp")<br>Set Pic2 = LoadPicture("c:\vb\102.bmp")<br>Set pic3 = LoadPicture("c:\vb\102.bmp")<p>Picture1.AutoRedraw = True<br>Picture1.PaintPicture pic1, 0, 0<br>Picture1.PaintPicture Pic2, 0, 200<br>Picture1.PaintPicture pic3, 0, 400<br>SavePicture Picture1, "c:\103.bmp"  '此行将因picture中无图像资料而出现错误讯息<br>Clipboard.SetData Picture1.Picture, 2 '执行后clipboard中空无一物<br>End Sub<p>为何用PAINTPICTURE所绘出的图形只能看而不能用呢???
<br>
<p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 3256-->
<!--top: 3268--><li><a href="3268.html"><b>Picture 和 Image 属性要分清楚</b></a> 小吴 <i>18:04:16 6/16/98</i>
(<!--responses: 3268-->1)
<ul><!--insert: 3268-->
<!--top: 3278--><li><a href="3278.html"><b>Re: 解决了!! 谢谢您!!</b></a> 陈春雨 <i>00:05:50 6/17/98</i>
(<!--responses: 3278-->0)
<ul><!--insert: 3278-->
</ul><!--end: 3278-->
</ul><!--end: 3268-->
</ul><!--end: 3256-->
<br><HR><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -