怎样用VB显示一张图片？

2003-10-28 07:46:02 647 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VB实现可调节难度的九宫格拼图 VB实现可调节难度的九宫格拼图实现本游戏需要熟练掌握paintpicture函数的应用，如果读者对该函数不熟练，需要读一下前面两篇博客哦 http://blog.csdn.net/wf824284257/article/details/53221631 http://blog.csdn.net/wf824284257/article/details/53222996九宫格拼图，这个游戏，怎么说呢阅读详情

显示一张图片的命令是什么？？

...全文

向量化和向量数据库的开发步骤，以及本地docker下载Redis-stack-server，以及如何将文本转成向量，以及文本向量化成功后将数据存入到Redis-stack-server这个向量数据库内存可以作为向量数据库，但是一重启一断电数据就没了这了选择RedisStack作为向量数据，用来向量的存储，未来会改名成Redis8，也就是在原本的Reids的功能上增加了新的特性，本质上还是Redis向量数据库还可以用ElaticSearch、MongoDB等。阅读详情

GetWindowPos

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

+ 关注 + 加入社区

切换为时间正序

eslbs 2003-10-29

打赏
举报

图片多的时候
也可以存放在资源文件里
用loadresPicture()
或者存放在 imagelist 里

efsnake 2003-10-28

打赏
举报

唉！

busisoft 2003-10-28

打赏
举报

怎么还开这样的玩笑？！呵呵

kmzs 2003-10-28

打赏
举报

修改form1.picture属性

weill 2003-10-28

打赏
举报

那玩是标准控件，哪来那么多下载啊，哈哈。

oc100 2003-10-28

打赏
举报

是控件,刚刚说错了

oc100 2003-10-28

打赏
举报

两个空间都是vb的啊

oc100 2003-10-28

打赏
举报

代码设计中用LoadPicture()函数为控件载入图形。格式为：
对象名.Picture = LoadPicture(FileName)
如果要清除图片，可以用：对象名.Picture = Nothing 或

Gelim 2003-10-28

打赏
举报

Image控件和picture控件！

oc100 2003-10-28

打赏
举报

特殊的显示图片方法：雨滴式的显示图片

本范例是以一个stdPicture物件来存图形，之後於PictureBox中以特殊效果来显示。
因为我们想显示的只有一个图，所以不想多用另一个PictureBox来存原始图，而後
再画到另一个PictureBox上，那只有用StdPicture 物件来取代PictureBox(存来源图)
，但是BitBlt这个绘图函式需来源与目的的hDc，而StdPicture物件没有hDc，它只有
一个Handle值，以本例来说，这Handle值便是图形的hBitmap值。所以我们只好使用
MemoryDC的方式来做，产生一个MemoryDc後将BitMap图放於其上，之後便可以使用BitBlt来绘图了。'需求一个PictureBox( Named picture2)，一个Command按键)
Option Explicit
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC 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 dwRop As Long) As Long
Private Declare Function CreateCompatibleDC Lib "gdi32" _
(ByVal hdc As Long) As Long
Private Declare Function SelectObject Lib "gdi32" _
(ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Const SRCCOPY = &HCC0020
Private Picture1 As New StdPicture

Private Sub Command1_Click()
Dim i As Long
Dim j As Long
Dim height5 As Long, width5 As Long
Dim hMemDc As Long

'stdPicture物件的度量单位是Himetric所以要转换成Pixel
height5 = ScaleY(Picture1.Height, vbHimetric, vbPixels)
If height5 > Picture2.ScaleHeight Then
height5 = Picture2.ScaleHeight
End If
width5 = ScaleX(Picture1.Width, vbHimetric, vbPixels)
If width5 > Picture2.ScaleWidth Then
width5 = Picture2.ScaleWidth
End If
'Create Memory DC
hMemDc = CreateCompatibleDC(Picture2.hdc)
'将Picture1的BitMap图指定给hMemDc
Call SelectObject(hMemDc, Picture1.Handle)
For i = height5 To 1 Step -1
Call BitBlt(Picture2.hdc, 0, i, width5, 1, _
hMemDc, 0, i, SRCCOPY)
For j = i - 1 To 1 Step -1
Call BitBlt(Picture2.hdc, 0, j, width5, 1, _
hMemDc, 0, i, SRCCOPY)
Next j
Next
Call DeleteDC(hMemDc)
End Sub

Private Sub Form_Load()
Dim i As Long
Picture2.ScaleMode = 3 '设定成Pixel的度量单位
'设定待Display的图
Set Picture1 = LoadPicture("c:\windows\素还真.bmp")
' ^^^^^^^^^^^^^^^^^^^^^^
' Load the picture we want to show
End Sub

GetWindowPos 2003-10-28

打赏
举报

请问Image控件在哪下载？

oc100 2003-10-28

打赏
举报

一、Image控件
　　Image控件用于显示一张图片。
　　
　　［属性：］
·Picture 存放图片的数据。
　通常我们使用LoadPicture函数读入一张图片。
　　　　　［例:］
　　 ImageX.Picture = LoadPicture("C:\1.bmp")
　　　　　［注:］
　 LoadPicture支持Bmp、Jpg、Gif、等多种格式图片文件。

　　　　·Stretch 显示图片的方式。
　　=True 以控件的尺寸显示图片。
　　=False 以图片的原尺寸显示图片。

怎样用VB显示一张图片？

相关推荐