问picturebox控件与滚动条结合的实例!!!在线等待!
请问个位高手们,由于我的图片太大,但是又不想把它缩小来放,只好利用滚动条了。
可是我又不会。
也不知道以下实例为什么不对:
在公用模块中写了
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const LB_FINDSTRING = &H18F
Public Const LB_SETHORIZONTALEXTENT = &H194
在form表单中的form_load事件中写了
Picture1.Picture = LoadPicture("D:\图纸3.jpg")
SendMessage Picture1.hwnd, LB_SETHORIZONTALEXTENT, 250, 0
可是不行,请高手指点。我现在急需要水平、垂直滚动条。最好能给出源代码。。
先谢谢了!