怎么将vb中form窗体的上边缘去掉

恩,可以,在设计的时候,设置窗体的BorderStyle属性为0即可,0的常数对应为NoneBorderStyle 中文的意思"窗体的边框"None 中文的意思为 无所以,只需要将窗体的BorderStyle设为0即可需要注意的是,该属性为只读,即,只能在设计的时候修改,而不能通过代码进行更改,切记楼主,记得加分哦!

1、无边框窗体也就是无标题栏窗体，对于这样的窗体移动需要编程实现。

2、vb有两种办法实现，一直接编程实现，二调用windows API编程实现。

3、这里示例直接编程实现：

Option Explicit
Dim BolIsMove As Boolean, MousX As Long, MousY As Long
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then BolIsMove = True
MousX = X
MousY = Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim CurrX As Long, CurrY As Long
If BolIsMove Then
 CurrX = MeLeft - MousX + X
 CurrY = MeTop - MousY + Y
 MeMove CurrX, CurrY
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
BolIsMove = False
End Sub

CheCkBox不可以透明，你把它弄小点，只剩个框框，不要说明文字，然后在它后面加一个Label控件，把CheckBox的说明文字写在Label里，在Label的单击事件写下面的代码：if
checkbox1value=false
then
checkbox1value=true
else
checkbox1value=false
end
if
手机回答的，换不了行，自己改下行。

If Dir(pths) > "" Then
ActiveSheetShapesAddShape(msoShapeRectangle, ML, MT, MW, MH)Select
SelectionShapeRangeLineVisible = msoFalse
SelectionShapeRangeFillUserPicture pths
End If

追加“SelectionShapeRangeLineVisible = msoFalse”这一行代码。

---