没有。

请问怎样在form_load事件中
显出一条直线。

解决方案 »

  1.   

    这是画线
    Private Sub Form_Load()
    me.AutoRedraw=True  
    Me.Line (0, 0)-(Me.ScaleWidth, Me.ScaleHeight)
    End Sub这是动态增加一个line控件
    Private Sub Form_Load()
    Dim mLn As Line
    Set mLn = Me.Controls.Add("VB.Line", "mLn")
    mLn.Visible = True
    mLn.X1 = 0
    mLn.Y1 = 0
    mLn.X2 = Me.ScaleWidth
    mLn.Y2 = Me.ScaleHeight
    End Sub
      

  2.   

    private sub form1_load()    me.show
        me.line 0,0-500,500end sub
      

  3.   

    低级错误，更正：private sub form1_load()    me.show
        me.line (0,0)-(500,500)end sub