ZKX's LAB

小程序 图片水平滑动 VB中如何用滚动条控制图片的缩放?

2021-04-26知识3

博客首页里的图片怎么样才能滚动显示? 左右滚动图片代码:<;marquee scrollamount=\"10\" direction=\"left\">;<;img src=图片地址>;<;/marquee>;scrollamount指得是图片移动的速度,本人建议用10这个数值差不多.direction指。

VB中如何用滚动条控制图片的缩放? 加个picture控件,水平滚动条Dim tempx,tempyPrivate Sub Command1_Click()File1.Path=Text1File1.Pattern=\"*.jpg;bmpEnd SubPrivate Sub File1_Click()a=File1.Path&\"\\\"&File1.FileNamePicture1.Picture=LoadPicture(a)tempx=Picture1.Widthtempy=Picture1.HeightEnd SubPrivate Sub HScroll1_Change()Picture1.Picture=LoadPicture(\"\")Call daxiao(HScroll1.Value,HScroll1.Value)Picture1.Width=HScroll1.Value+tempxPicture1.Height=HScroll1.Value+tempyEnd SubPrivate Sub daxiao(x As Double,y As Double)With LoadPicture(File1.Path&\"\\\"&File1.FileName)Render Picture1.hDC,0,0,y,x,0,.Height,.Width,-.Height,0End WithEnd Sub

为什么vb的图片框1内的直线不能随水平滚动条移动而伸缩? 我明白你的意思了,你在Private Sub Form_Load()事件中执行了画线功能(仅仅是画线一次),在Private Sub HScroll1_Change()中实行了使图片框的宽度随滚动条进行改变。。

#小程序 图片水平滑动#水平滑动模板怎么滑动#迷你世界怎么做水平滑动房子#水平滑动控件

随机阅读

qrcode
访问手机版