VB.net 2010 视频教程 VB.net 2010 视频教程 VB.net 2010 视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
  • vb教程之雨滴式的显示图片

  • 2017-09-21 16: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\aaa.bmp") 

' ^^^^^^^^^^^^^^^^^^^^^^ 

' Load the picture we want to show 

End Sub 
相关教程
  • 灯光焰火艺术表演在青岛举行 2019-04-25
  • 刘鹏:抓住“特色”的同时也要看淡“特色” 2019-04-25
  • 图解:中国经济已现一大积极信号,你知道了吗? 2019-04-25
  • 坚守岗位守护绿城美丽与整洁 2019-04-24
  • 个税法迎第七次大修 起征点调至每年6万元 2019-04-24
  • 传Switch即将支持媒体应用 看电影听音乐不是梦传Switch即将支持媒体应用-行情资讯 2019-04-24
  • [大笑]山不在高,有仙则名,水不在深,有龙则灵,文不在多,逻辑通透则行! 2019-04-24
  • 高一年级组“经典永流传”诵读比赛精彩回顾—wydzx.blog的博客—强国博客—人民网 2019-04-23
  • 红薯-热门标签-华商生活 2019-04-23
  • 这是全国精气最为集中的地方 被称为中国丹田所在 ——凤凰网房产 2019-04-23
  • 2018高考今日鸣锣 分享作家们的高考故事:莫言曾说它"很坏" 2019-04-22
  • 南方都市报:中考结束遇上父亲节,考场外这一幕瞬间萌翻你,心都化了! 2019-04-22
  • 马克思主义通过指导无产阶级革命建立起部分社会财富公有制而改变了人类历史发展进程,离开部分社会财富公有制的建立来谈“改变人类历史发展进程”纯粹是无稽之谈。 2019-04-22
  • 北京高能时代环境技术股份有限公司获第十二届人民企业社会责任奖年度环保奖 2019-04-21
  • 6000元的借款,仅仅过了半年,就利滚利,垒高到超过百万元,需要借款人卖房抵债——万恶的驴打滚真是望尘莫及了[YY] 2019-04-21
  • 698| 443| 889| 106| 127| 335| 377| 610| 192| 591|