現在用一個PICTUREBOX裝載了圖片.但圖片太大.有沒有屬性可以設置圖片在PICTUREBOX里完整顯示呢?就是縮略圖的效果那樣.

2006-10-12 06:27:29 401 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Windows高效集成Linux开发环境：WSL2配置、优化与实战指南在跨平台开发实践中，如何在Windows操作系统上无缝使用Linux工具链是开发者面临的核心挑战。传统虚拟机方案存在资源占用高、启动慢等瓶颈，而系统调用翻译或模拟环境则存在兼容性局限。随着容器化与轻量虚拟化技术的发展，Windows Subsystem for Linux (WSL) 通过实现完整的Linux内核，在性能与兼容性上取得了突破性进展，为混合环境开发提供了理想的工程解决方案。WSL 2作为轻量级虚拟机，不仅支持Docker等容器化工具，还能与Windows文件系统高效互通，极大地提升了后端开发、阅读详情

在VB6中可以實現嗎?還是得用其它的圖形控件?

...全文

Hermes Agent vs OpenClaw：轻量级AI Agent开发框架选型指南 AI Agent 框架本质上是连接能力与执行逻辑的中间件，其核心原理在于将任务分解为可组合、可调度、可观测的原子单元。技术价值不在于模型调用有多炫，而在于降低工程摩擦——包括启动延迟、热更新成本、环境依赖复杂度和调试可见性。典型应用场景涵盖本地自动化（如PDF摘要、邮件处理）、边缘设备部署及非技术人员可用的桌面级数字同事。Hermes 以分层架构（Skill/Orchestrator/Runtime）和协议驱动设计，直击 OpenClaw 等单体框架在生产落地中的卡点，尤其适合追求快速迭代、多环境兼容与桌面阅读详情

miaomiaoga

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

explore_xu 2006-11-27

打赏
举报

Picture1.PaintPicture LoadPicture("D:\WALLPAPER\050818fengjing20.jpg"), 0, 0, Picture1.Width, Picture1.Height

wjhcjg 2006-11-27

打赏
举报

cangwu_lee 2006-11-22

打赏
举报

好

csdnzl 2006-11-22

打赏
举报

可以用滚动条，MSDN上面有例子

oowingoo 2006-11-22

打赏
举报

学习

miaomiaoga 2006-10-17

打赏
举报

俺找了个.挺好用.就是速度太太太慢.
Private Const SRCCOPY = &HCC0020
Private Const Pi = 3.14

'//For image rotation
Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long

Public Sub bmp_rotate(pic1 As PictureBox, pic2 As PictureBox, ByVal theta)
Dim c1x As Integer, c1y As Integer
Dim c2x As Integer, c2y As Integer
Dim A As Single
Dim p1x As Integer, p1y As Integer
Dim p2x As Integer, p2y As Integer
Dim n As Integer, r As Integer

c1x = pic1.ScaleWidth \ 2
c1y = pic1.ScaleHeight \ 2
c2x = pic2.ScaleWidth \ 2
c2y = pic2.ScaleHeight \ 2
If c2x < c2y Then n = c2y Else n = c2x
n = n - 1
pic1hDC = pic1.hdc
pic2hDC = pic2.hdc
For p2x = 0 To n
For p2y = 0 To n
If p2x = 0 Then A = Pi / 2 Else A = Atn(p2y / p2x)
r = Sqr(1& * p2x * p2x + 1& * p2y * p2y)
p1x = r * Cos(A + theta)
p1y = r * Sin(A + theta)
c0& = GetPixel(pic1hDC, c1x + p1x, c1y + p1y)
c1& = GetPixel(pic1hDC, c1x - p1x, c1y - p1y)
c2& = GetPixel(pic1hDC, c1x + p1y, c1y - p1x)
c3& = GetPixel(pic1hDC, c1x - p1y, c1y + p1x)
If c0& <> -1 Then SetPixel pic2hDC, c2x + p2x, c2y + p2y, c0
If c1& <> -1 Then SetPixel pic2hDC, c2x - p2x, c2y - p2y, c1
If c2& <> -1 Then SetPixel pic2hDC, c2x + p2y, c2y - p2x, c2
If c3& <> -1 Then SetPixel pic2hDC, c2x - p2y, c2y + p2x, c3
Next
Next
End Sub

Call bmp_rotate(PictureCardImage, Picture2, 3.14 / -2)

海贼王大妈 2006-10-13

打赏
举报

不错，不错，正是我想要的
谢谢了

miaomiaoga 2006-10-13

打赏
举报

成功呢!加分!

ZOU_SEAFARER 2006-10-12

打赏
举报

zq972(旅游归来，好累……) 方法好,
IMAGE 加载的图片有矢真!!
object.PaintPicture picture, x1, y1, width1, height1, x2, y2, width2, height2, opcode

zq972 2006-10-12

打赏
举报

pic.AutoRedraw = True
pic.PaintPicture pic.Picture, 0, 0, pic.Width, pic.Height

happy_sea 2006-10-12

打赏
举报

用image控件，把stretch属性设置为true就行了。
用picturebox控件虽然也能实现，不过要复杂得多而且浪费资源。

miaomiaoga 2006-10-12

打赏
举报

我現在就去試一下.謝謝.:)

現在用一個PICTUREBOX裝載了圖片.但圖片太大.有沒有屬性可以設置圖片在PICTUREBOX里完整顯示呢?就是縮略圖的效果那樣.

相关推荐