1
Priavte cmdQuit_Click()
    End '用它
Sub End2 Text1.SetFocus

解决方案 »

  1.   


    Form1.BorderStyle = 1
      

  2.   

    3.
    Private Sub Form_Resize()
        If Me.WindowState = vbMinimized Then Exit Sub
        If Me.WindowState = vbMaximized Then Me.WindowState = vbNormal
        Me.Width = 4800
        Me.Hide = 3600
        
    End Sub
      

  3.   

    1.Private Sub Command1_Click()
    End
    End Sub2.Private Sub Form_Load()
    Me.Show
    Text1.SetFocus
    End Sub3.borderstyle
    设置为1或3
      

  4.   

    zyl910:
    那个Me.Hide = 3600是什么?
    应该是Me.Height = 3600吧
      

  5.   

    private sub cmdquit_click()
    end
    end  sub
    -------------------------------
    private sub form_load()
    text1.setfocus
    end sub
    -------------------------------
    private sub form_load()
    form1.borderstyle = 1
    end sub
      

  6.   

    我试过上面的几个答案了。
    其中resize我觉得还是不满意。能否让窗体不出现那个拉伸鼠标箭头?
    虽然大小是不变化了。但是还是可以拉窗口的边缘,出现一个虚线框。
    而设置BorderStyle的属性也没有实现到不能改变大小的目的。
      

  7.   

    楼上的说的很清楚,很对。补充:
    Dim FHeight As Long
    Dim FWidth As Long
    Private Sub Form_Load()
    FHeight = Form1.Height
    FWidth = Form1.Width
    End Sub
    Private Sub Form_Resize()
    Form1.Height = FHeight
    Form1.Width = FWidth
    End Sub
    也可以实现,不过不推荐。
      

  8.   

    回复人: szqed(锈材) (  ) 信誉:100  2002-2-25 22:49:49  得分:0  
      
    我试过上面的几个答案了。
    其中resize我觉得还是不满意。能否让窗体不出现那个拉伸鼠标箭头?
    虽然大小是不变化了。但是还是可以拉窗口的边缘,出现一个虚线框。
    而设置BorderStyle的属性也没有实现到不能改变大小的目的。
     可以!
    Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Const WS_THICKFRAME = &H40000Private Const GWL_STYLE = (-16)Private Sub Form_Load()
      Dim TempLng As Long
      
      TempLng = GetWindowLong(Me.hwnd, GWL_STYLE)
      TempLng = TempLng And Not WS_THICKFRAME
      SetWindowLong Me.hwnd, GWL_STYLE, TempLng
      
    End Sub