vb.net鼠标放大缩小 vb改变鼠标形状

VB.net怎么实现运行时鼠标拖动改变控件的大小啊

控件是可以显示在里面的，你只要加个label，把label的属性设为visualble=fause就行。设置鼠标经过头像的mouseHover和mouseLeave事件，当mouseHover时label的属性visualble=true，当mouseLeave时label的属性visualble=fause即可。窗体的鼠标事件可以设置控件的cursor属性，里面可以选择许多种鼠标图形。 只要是正常的Form都可以改变窗体大小，但是无边框的窗体只能用函数改变或者设置属性，在debug后是不能改变的。拖动窗体需要在窗体的load时间里面写入当鼠标单击不放时的事件即可，不难。

创新互联公司的客户来自各行各业，为了共同目标，我们在工作上密切配合，从创业型小企业到企事业单位，感谢他们对我们的要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。专业领域包括网站设计制作、成都做网站、电商网站开发、微信营销、系统平台开发。

vb.net中窗体中的缩小,放大,关闭可以去掉吗?

可以，属性controlBox 为false可以去掉三个按钮，另外还有maximize,minimize 可以分别控制最大化和最小化按钮的显示。

vb中，如何在运行时用鼠标对控件（如Textbox）进行移动和缩放（即改变大小）操作？

Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Const WM_SYSCOMMAND = H112

Const SC_MOVE = HF010

Const HTCAPTION = 2

Private Sub MoveWindow(ByVal hwnd As Long)

Dim ret As Long

ReleaseCapture

ret = SendMessage(Text1.hwnd, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0)

End Sub

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

MoveWindow hwnd

End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

MoveWindow hwnd

End Sub

VB.NET picturebox 内绘图完图形放大缩小移动 鼠标控制 。比较笨看了VB的代码不明白 求解

。net 不用api就行

缩放操作

Function 缩放(ByVal bitmap As Bitmap, ByVal 倍数 As Single) As Bitmap

Dim w As Integer = bitmap.Width * 倍数

Dim h As Integer = bitmap.Height * 倍数

Dim tem As New Bitmap(w, h)

Dim g As Graphics = Graphics.FromImage(tem)

g.DrawImage(bitmap, New Rectangle(0, 0, w, h), New Rectangle(0, 0, bitmap.Width, bitmap.Height), GraphicsUnit.Pixel)

g.Dispose()

Return tem

End Function

鼠标滚轮事件 MouseWheel

MouseEventArgs.Delta 值可以判断滚动方向