当前位置：首页 -> 技术开发 -> 程序开发 -> 给VB控件PictureBox加滚动条的方法

给VB控件PictureBox加滚动条的方法

时间： 2021-07-31 作者：daque

用过picturebox控件的伙伴都领会，在个中咱们不妨加载图片。当图片不是很大时，大概还不会有什么题目，然而，即使所加载的图片比picturebox大时，咱们只能看到图片的一局部，那么，如何本领看到其余的局部呢？为领会决上述题目，咱们不妨在图片框(picturebox)里面加上行宽厚笔直震动条，运用震动条来表露看得见的图片。简直本领如次：开始给工程(project)增添一个ocx控件，单击选单上的工程(project)选单项，在弹出的下拉选单中式点心击组件(components)，选中个中的"microsoft common dialog control 5.0"，决定实行加载处事；而后画一个picturebox，沿用vb供给的默许名字picture1, 再在picture1上头画一个picturebox，默许名字为picture2，提防别忘了树立：picture2.autosize=true；接着，加上行宽厚笔直震动条，默许名字辨别为：hscroll1，vscroll1；此后加载图形到picture2上，就不妨了；结果，在窗体中引入其它控件：一个按钮（command），默许名为command1和一个"microsoft common dialog control"，默许名为commondialog1。简直vb代码如次： private sub form-load()picture2.left = 0picture2.top = 0picture2.width = picture1.widthpicture2.height = picture1.heightvscroll1.min = 0hscroll1.min = 0 hscroll1.min = 0vscroll1.max = picture2.height － picture1.heighthscroll1.max = picture2.width － picture1.widthif hscroll1.max 〈 0 then hscroll1.enabled = falseif vscroll1.max 〈 0 then vscroll1.enabled = falseend subprivate sub command-click()on error goto errexitcommondialog1.filter = "bitmap file(＊.bmp)|＊.bmp|all file(＊.＊)|＊.＊"commondialog1.filterindex = 1commondialog1.showopenpicture2.picture = loadpicture(commondialog1.filename)vscroll1.min = 0hscroll1.min = 0vscroll1.max = picture2.height － picture1.heighthscroll1.max = picture2.width － picture1.widthif hscroll1.max 〈 0 then hscroll1.enabled = falseif vscroll1.max 〈 0 then vscroll1.enabled = falseerrexit: end subprivate sub hscroll1-change()picture2.left = －hscroll1.valueend subprivate sub vscroll1-change()picture2.top = －vscroll1.valueend sub 该步调经过点击command1按钮，在弹出的对话框中采用一个图形文献加载到picture第22中学，运用水宽厚笔直震动条就不妨实行图片的震动。

给VB控件PictureBox加滚动条的方法

相关推荐

推荐下载

热门阅览

最新排行