|
楼主 |
发表于 2014-10-19 18:57
|
显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Option Explicit
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const SWP_NOMOVE = &H2
Private Sub Form_Load()
SetWindowPos Picture1.hwnd, 0, 0, 0, Picture1.Width, 20000, SWP_NOMOVE
MsgBox Picture1.Height
End Sub
网上查到的,经测试,VB只能设到245745TWIPS(16383PIXELS),用上面的API可以设到32767PIXELS, 但上面的怎么用呀,不明白
|
|