VB中添加了一个Image1。然后窗体Form1是隐藏的。怎样在电脑屏幕上任意拖动image1？ BorderStyle属性必须要

Question

图片中的窗体是带有最小化最大化的。我需要的是不带最小化最大化，运行后没有窗体只是一张图片形式的，目的是在运行这个程序时，整个图片连带隐藏的窗体能在电脑屏幕随意拖动。谢谢！

Answer 1

不妨试试设置 BorderStyle属性是3或者1也可以，是这种效果不

Answer 2

为什么一定要保留窗体的边框样式呢？
如果不保留的话，可以这样做：点击拖动image是可以拖动窗体的

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 HTCAPTION = 2
Const WM_NCLBUTTONDOWN = &HA1

Private Sub Form_Load()
Image1.Stretch = False
Me.AutoRedraw = True
Me.BorderStyle = 0
Me.BackColor = vbBlack
Me.Height = Image1.Height
Me.Width = Image1.Width
Me.Picture = Image1.Picture
End Sub

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

If Button = vbLeftButton Then
ReleaseCapture
SendMessage Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End If
End Sub本回答被提问者和网友采纳

Answer 3

大哥 你也要弄个辅助准星啊.....我对这软件什么都不懂
现在都靠百度了解呢/..
做好了能不能教我啊..
怎么弄个准星.........不闪烁的.....247813894 我Q.....记得教我呀.....