不能改变窗体大小 怎么修改？？

Question

boderstyle属性改成sizable就行了
或者borderstyle=2

Answer 1

使用api 函数将系统菜单项“大小”删掉就可以乐

Answer 2

Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Public Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Public Const MF_BYPOSITION = &H400&
Dim h As Long
    h = GetSystemMenu(Me.hwnd, False)
    DeleteMenu h, 2, MF_BYPOSITION

Answer 3

boderstyle属性设为1
MinButton属性设为True '如果还想要最小化按键的话
注意顺序！

Answer 4

你们说得我都知道，不过，按你们说的都做好后，用鼠标在右下角一拖，不就又变化了吗？
什么能锁住窗体大小才是关键
使主窗体既能拖动，又能保证窗体不被拉大或拉小！！！
还有，oceanmap() 写得程式，有错误，在我这里运行不了！