怎样在picture中缩小图片,如象image中国的strecth那样 Instead of using the picture box, use the image control in VB. It has a property you can set to stretch pictures and retain the proportion. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 你可以在picture中天加image就行了,见http://www.csdn.net/expert/topic/654/654871.xml?temp=.9370386 你可以在picture中天加image就行了,见http://www.csdn.net/expert/topic/654/654871.xml?temp=.9370386 通过StrecthBlt函数实现【函数】StretchBlt【操作系统】Win9X:YesWinNT:Yes【声明】StretchBlt Lib "gdi32" Alias "StretchBlt" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long【说明】 将一幅位图从一个设备场景复制到另一个。源和目标DC相互间必须兼容。这个函数会在设备场景中定义一个目标矩形,并在位图中定义一个源图象。源矩形会根据需要进行伸缩,以便与目标矩形的大小相符 【返回值】 Long,非零表示成功,零表示失败。会设置GetLastError 【其它】 可用GetDeviceCaps函数判断特定的设备场景是否支持此函数 不可选择对源位图进行剪切或旋转处理,源位图也不能是一个图元文件设备场景【参数表】 hdc ------------ Long,目标设备场景 x,y ------------ Long,目标矩形左上角的x,y坐标,以逻辑坐标表示 nWidth,nHeight - Long,目标矩形的宽度和高度,以逻辑坐标表示 hSrcDC --------- Long,源设备场景。如光栅运算未指定一个源,则这个参数应为零 xSrc,ySrc ------ Long,用源DC的逻辑坐标表示的源矩形左上角位置 nSrcWidth,nSrcHeight - Long,分别指定用逻辑单位(以源DC为基础)传输的一幅图象的宽度和高度。如其中有一个参数的符号(指正负号)与对应的目标参数不符,位图就会在对应的轴上作镜像转换处理 dwRop ---------- Long,传输过程中进行的光栅运算。如刷子属于光栅运算的一部分,就使用选入目标DC的刷子 Dim pp As StdPicture Set pp = LoadPicture("i:\main.bmp") Picture1.PaintPicture pp, 0, 0, Picture1.Width, Picture1.Height Private Sub Command1_Click()Picture1.PaintPicture Image1.Picture, 0, 0, Image1.Width, Image1.HeightEnd Sub VB6.exe 应用程序错误 内存不能为written 如果固定exe窗口的大小(form中的哪个属性?) VB调用VC DLL 问题 想在一个DataGrid控件中显示一个查询结果集,下面的写法有何不对? 请教如何在VB中进行 插件编程 关于自动连接 vb中自带的dll注册工具叫什么??? 我的文本框怎么和数据控件挂接不上? ADO的简单问题,会的进来看看 关于开发三层结构体系的讨论,欢迎踊跃发言 有没有知道反锯齿技术的?请教一二 用text binding a field...how to update?
见http://www.csdn.net/expert/topic/654/654871.xml?temp=.9370386
见http://www.csdn.net/expert/topic/654/654871.xml?temp=.9370386
【函数】
StretchBlt【操作系统】
Win9X:Yes
WinNT:Yes【声明】
StretchBlt Lib "gdi32" Alias "StretchBlt" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long【说明】 将一幅位图从一个设备场景复制到另一个。源和目标DC相互间必须兼容。这个函数会在设备场景中定义一个目标矩形,并在位图中定义一个源图象。源矩形会根据需要进行伸缩,以便与目标矩形的大小相符 【返回值】 Long,非零表示成功,零表示失败。会设置GetLastError 【其它】 可用GetDeviceCaps函数判断特定的设备场景是否支持此函数
不可选择对源位图进行剪切或旋转处理,源位图也不能是一个图元文件设备场景【参数表】
hdc ------------ Long,目标设备场景 x,y ------------ Long,目标矩形左上角的x,y坐标,以逻辑坐标表示 nWidth,nHeight - Long,目标矩形的宽度和高度,以逻辑坐标表示 hSrcDC --------- Long,源设备场景。如光栅运算未指定一个源,则这个参数应为零 xSrc,ySrc ------ Long,用源DC的逻辑坐标表示的源矩形左上角位置 nSrcWidth,nSrcHeight - Long,分别指定用逻辑单位(以源DC为基础)传输的一幅图象的宽度和高度。如其中有一个参数的符号(指正负号)与对应的目标参数不符,位图就会在对应的轴上作镜像转换处理 dwRop ---------- Long,传输过程中进行的光栅运算。如刷子属于光栅运算的一部分,就使用选入目标DC的刷子
Set pp = LoadPicture("i:\main.bmp")
Picture1.PaintPicture pp, 0, 0, Picture1.Width, Picture1.Height
Picture1.PaintPicture Image1.Picture, 0, 0, Image1.Width, Image1.Height
End Sub