none
Visual Basic的陳述式是什麼? RRS feed

  • 問題

  • 我再寫這個程式:

     

     

    <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
    Partial Class Form1
        Inherits System.Windows.Forms.Form

        'Form 覆寫 Dispose 以清除元件清單。
        <System.Diagnostics.DebuggerNonUserCode()> _
        Protected Overrides Sub Dispose(ByVal disposing As Boolean)
            Try
                If disposing AndAlso components IsNot Nothing Then
                    components.Dispose()
                End If
            Finally
                MyBase.Dispose(disposing)
            End Try
        End Sub

        '為 Windows Form 設計工具的必要項
        Private components As System.ComponentModel.IContainer

        '注意: 以下為 Windows Form 設計工具所需的程序
        '可以使用 Windows Form 設計工具進行修改。
        '請不要使用程式碼編輯器進行修改。
        <System.Diagnostics.DebuggerStepThrough()> _
        Private Sub InitializeComponent()
            Me.ProgressBar1 = New System.Windows.Forms.ProgressBar
            Me.WebBrowser1 = New System.Windows.Forms.WebBrowser
            Me.TextBox1 = New System.Windows.Forms.TextBox
            Me.Button2 = New System.Windows.Forms.Button
            Me.Label1 = New System.Windows.Forms.Label
            Me.SuspendLayout()
            '
            'ProgressBar1
            '
            Me.ProgressBar1.Location = New System.Drawing.Point(12, 231)
            Me.ProgressBar1.Name = "ProgressBar1"
            Me.ProgressBar1.Size = New System.Drawing.Size(268, 23)
            Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Marquee
            Me.ProgressBar1.TabIndex = 0
            '
            'WebBrowser1
            '
            Me.WebBrowser1.Location = New System.Drawing.Point(12, 2)
            Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
            Me.WebBrowser1.Name = "WebBrowser1"
            Me.WebBrowser1.Size = New System.Drawing.Size(268, 182)
            Me.WebBrowser1.TabIndex = 2
            Me.WebBrowser1.Url = New System.Uri("http://tulips3592.spaces.live.com", System.UriKind.Absolute)
            '
            'TextBox1
            '
            Me.TextBox1.Location = New System.Drawing.Point(12, 194)
            Me.TextBox1.Name = "TextBox1"
            Me.TextBox1.Size = New System.Drawing.Size(100, 22)
            Me.TextBox1.TabIndex = 3
            Me.TextBox1.Text = "ばか"
            '
            'Button2
            '
            Me.Button2.Location = New System.Drawing.Point(129, 193)
            Me.Button2.Name = "Button2"
            Me.Button2.Size = New System.Drawing.Size(75, 23)
            Me.Button2.TabIndex = 4
            Me.Button2.Text = "開始"
            Me.Button2.UseCompatibleTextRendering = True
            Me.Button2.UseVisualStyleBackColor = True
            '
            'Label1
            '
            Me.Label1.AutoSize = True
            Me.Label1.Font = New System.Drawing.Font("新細明體", 18.0!)
            Me.Label1.Location = New System.Drawing.Point(310, 19)
            Me.Label1.Name = "Label1"
            Me.Label1.Size = New System.Drawing.Size(178, 72)
            Me.Label1.TabIndex = 5
            Me.Label1.Text = "屌爆系統已啟動" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "請繫屌爆帶" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "祝屌爆成功"
            '
            'Form1
            '
            Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
            Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
            Me.ClientSize = New System.Drawing.Size(585, 266)
            Me.Controls.Add(Me.Label1)
            Me.Controls.Add(Me.Button2)
            Me.Controls.Add(Me.TextBox1)
            Me.Controls.Add(Me.WebBrowser1)
            Me.Controls.Add(Me.ProgressBar1)
            Me.Name = "Form1"
            Me.Text = "屌爆了"
            Me.ResumeLayout(False)
            Me.PerformLayout()

        End Sub
        Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        End Sub

        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        End Sub
        Friend WithEvents WebBrowser1 As System.Windows.Forms.WebBrowser
        Friend WithEvents TextBox1 As System.Windows.Forms.TextBox

        Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click

        End Sub
        Friend WithEvents Button2 As System.Windows.Forms.Button
        Friend WithEvents Label1 As System.Windows.Forms.Label

        Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

        End Sub

        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        End Sub

        Private Sub msgbox 訊息內容 , 3+64 , 抬頭 Handles Button2.MouseDown

        End Sub
    End Class

    在    Private Sub msgbox 訊息內容 , 3+64 , 抬頭 Handles Button2.MouseDown       的地方他一直出現"必須有陳述式"或"必須有陳述式結尾"

    這是怎麼回事?

    2010年7月12日 上午 07:33

解答

  • Private Sub msgbox 訊息內容 , 3+64 , 抬頭 Handles Button2.MouseDown    

    End Sub

    這一段完全不符合Sub的宣告方式, 所以編譯器看不懂, 只好告訴你 "必須有陳述式"或"必須有陳述式結尾"


    在現實生活中,你和誰在一起的確很重要,甚至能改變你的成長軌跡,決定你的人生成敗。 和什麼樣的人在一起,就會有什麼樣的人生。 和勤奮的人在一起,你不會懶惰; 和積極的人在一起,你不會消沈; 與智者同行,你會不同凡響; 與高人為伍,你能登上巔峰。
    2010年7月12日 上午 07:50
    版主

所有回覆

  • Hi!

    你的這段程式碼是在寫什麼?

      Private Sub msgbox 訊息內容 , 3+64 , 抬頭 Handles Button2.MouseDown
    
      End Sub
    
    
    

    歡迎參觀我的Blog.NET菜鳥自救會
    微軟MVP與點部落之友經驗交流見面會
    2010年7月12日 上午 07:46
    版主
  • Private Sub msgbox 訊息內容 , 3+64 , 抬頭 Handles Button2.MouseDown    

    End Sub

    這一段完全不符合Sub的宣告方式, 所以編譯器看不懂, 只好告訴你 "必須有陳述式"或"必須有陳述式結尾"


    在現實生活中,你和誰在一起的確很重要,甚至能改變你的成長軌跡,決定你的人生成敗。 和什麼樣的人在一起,就會有什麼樣的人生。 和勤奮的人在一起,你不會懶惰; 和積極的人在一起,你不會消沈; 與智者同行,你會不同凡響; 與高人為伍,你能登上巔峰。
    2010年7月12日 上午 07:50
    版主