简单的实现方法:在PictureBox中加入一个Label控件,利用这个Label显示文字。将Label背景设置为透明,所显示的文字不会影响画面。
具体实现方法如下:
(1)在窗体Form1上布置一个PictureBox,将一个Label拖入到PictureBox内。再在窗体上布置一个TextBox
在PictureBox中载入一个图片;将label1的BackStyle属性设置为: 0 -Transparent
(2)窗体代码
Option ExplicitPrivate Sub Form_Load()
Label1.Caption = ""
Text1.Text = ""
End Sub
Private Sub Text1_Change()
Label1.Caption = Text1.Text
End Sub
(3)运行效果
我讲一下思路:你先添加1个picturebox1作为容器,然后在这个picturebox1里添加picturebox2,现在对你来说,picturebox2是你真正需要的picturebox,然后加垂直滚动条VScroll1,利用VScroll1的Value属性,去改变picturebox2的Top属性,就可以达到你的目的了。比如,减少picturebox2的Top值,就向上,增加picturebox2的Top属性就向下。
当然要水平滚动,可以添加HScroll1并利用它的Value属性,去改变picturebox2的Left属性。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)