[VB.NET]改变窗口大小

VB.NET源码-156个实用实例哦…… <script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
改变窗口大小
在窗口没有窗体边框和标题栏的情况下 怎样改变窗口大小 能有拖动的功能吗? 如果里面有个picturebox ,怎样可以让 picturebox 里面的图片也随之改变大小?
__________________________________________________________________________
设置 picturebox.anchor=Top,Bottom,left,right
__________________________________________________________________________
设置picturebox的Dock属性为fill.
__________________________________________________________________________
1、拖动:添加API函数 SendMessage和ReleaseCapture,可以拖动
Declare Function SendMessage Lib user32 Alias SendMessageA ( _
ByVal hwnd As IntPtr, _
ByVal wMsg As Integer, _
ByVal wParam As Integer, _
ByVal lParam As Integer) _
As Boolean
Declare Function ReleaseCapture Lib user32 Alias ReleaseCapture () As Boolean
Const WM_SYSCOMMAND = &H112
Const SC_MOVE = &HF010&
Const HTCAPTION = 2

Private Sub Form1_MouseDown(ByVal sender As Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) _
Handles MyBase.MouseDown
ReleaseCapture()
SendMessage(Me.Handle, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0)
End Sub

2、改变窗口大小让 picturebox 里面的图片也随之改变大小用楼上的方法应该可以。
__________________________________________________________________________
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值