滚动条代码(滚动条代码如何设置)

http://www.itjxue.com  2023-02-13 20:11  来源:未知  点击次数: 

vb滚动条的代码

新建窗体,画个文本框和一个水平滚动条、两个标签,然后编写:

Private?Sub?HScroll1_Change()

Text1.Text?=?HScroll1.Value

End?Sub

这样,程序运行时,单击水平滚动条,文本框内就会显示相应的数字。

程序如图

VB中用滚动条浏览图片的代码是什么?

窗体上添加两个同样大小的Picture控件Picture1、Picture2,再添加HScrollBar滚动条,ID为HScroll1 ,添加VScrollBar滚动条,ID为VScroll1\x0d\x0a添加如下代码\x0d\x0aPrivate Sub Form_Load()\x0d\x0aPicture2.AutoSize = True\x0d\x0aPicture2.BorderStyle = 0\x0d\x0aPicture1.ScaleMode = 3\x0d\x0aPicture2.ScaleMode = 3\x0d\x0aHScroll1.Max = Picture2.Width - Picture1.ScaleWidth\x0d\x0aVScroll1.Max = Picture2.Height - Picture1.ScaleHeight\x0d\x0aEnd Sub\x0d\x0aPrivate Sub HScroll1_Change()\x0d\x0aPicture2.Left = -HScroll1.Value\x0d\x0aEnd Sub\x0d\x0a \x0d\x0aPrivate Sub HScroll1_Scroll() '实现拖动滚动条时图像即时滚动\x0d\x0aPicture2.Left = -HScroll1.Value\x0d\x0aEnd Sub\x0d\x0aPrivate Sub VScroll1_Change()\x0d\x0aPicture2.Top = -VScroll1.Value\x0d\x0aEnd Sub\x0d\x0aPrivate Sub VScroll1_Scroll() '实现拖动滚动条时图像即时滚动\x0d\x0aPicture2.Top = -VScroll1.Value\x0d\x0aEnd Sub\x0d\x0a即可实现滚动浏览图片,其实Picture2的属性Picture设置为要浏览的图片

VB中用滚动条浏览图片的代码

画一个Picture1、VScroll1、HScroll1,再在Picture1里画一个Image1。将Image1的Stretch设为False,AutoSize(如果有这个属性的话)设为True,Left、Top都设为0,图片要放到Image1中。将VScroll1、HScroll1的Min都设为0。

在Form_Load中打

VScroll1.Max = Image1.Height - Picture1.ScaleHeight

HScroll1.Max = Image1.Width - Picture1.ScaleWidth

在VScroll1的Scroll中打

Image1.Top = 0 - VScroll1.Value

在HScroll1的Scroll中打

Image1.Left = 0 - HScroll1.Value

最后要注意以上代码要求Image1中的图片大小必须超过Picture1所能显示的范围,而且Image1中的图片不宜过大,否则会报错。

html里面的滚动条代码怎么写啊

????????div?id="bar"????

span?id="topBtn"i?id="top"/i/span????

div?id="block-box"????

span?id="block"/span????

/div????

span?id="downBtn"i?id="down"/i/span????

/div

CSS样式:有点丑,凑活着看吧:

#bar?{position:relative;?width:20px;?height:380px;?float:right;?background:#ccc;?border-radius:5px;?display:none;}????

#topBtn?{width:20px;?height:20px;?position:absolute;?border-radius:5px;}????

#top?{border:7px?dashed?transparent;?border-bottom:7px?solid?yellow;?position:absolute;?top:0px;?left:3px;}????

#downBtn?{width:20px;?height:20px;?position:absolute;?border-radius:5px;?bottom:0px;?left:0px}????

#down?{border:7px?dashed?transparent;?border-top:7px?solid?yellow;?position:absolute;?bottom:0px;?left:3px;}????

#block-box?{width:20px;?height:340px;?border-radius:5px;?position:absolute;?top:20px;?left:0px;}????

#block?{width:20px;?border-radius:5px;?position:absolute;?background:red;?height:0px;}

(责任编辑:IT教学网)

更多

推荐Discuz!建站文章