VB 如何將TEXT 傳回MSG BOX??－ralph50的部落格

遠古封神online好玩線上遊戲註冊網址：http://fs.cmwebgame.com/index/home.shtml?member=af000017132

＝＝＝＝＝＝本站特別聲明＝＝＝＝＝＝＝
＝＝＝本文推薦的遊戲並非官方網站＝＝＝
＝＝單純為快速註冊遊戲的連結網址＝＝＝
請各位網友不要誤會本站推薦的遊戲連結是官網！

在此特別聲明！望各位朋友不要誤會了！祝各位遊戲愉快！

先向樹哥大大說抱歉, 因為必須用圖對照物件位置, 只好用回答的

剛好有 2008 所以換我改成 2008 版好了.

物件名稱先比對下圖

全部程式碼如下

Public Class Form1
    Dim optstr As String, chk As String
    Dim optv As Integer, sum As Integer, i As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        sum = 0
        chk = ""

        If RadioButton4.Checked = True Then
            chk = "wii + 矽膠套 7990"
            sum = 7990
        ElseIf RadioButton5.Checked = True Then
            chk = "wii + 手把 12300"
            sum = 12300
        ElseIf RadioButton6.Checked = True Then
            chk = "wii + fit 13580"
            sum = 13580
        End If

        If CheckBox1.Checked = True Then
            chk = chk & vbNewLine & "方向盤 550元"
            sum = sum + 550
        End If
        If CheckBox2.Checked = True Then
            chk = chk & vbNewLine & "色差端子880元"
            sum = sum + 880
        End If

        chk = chk & vbNewLine & "--------------------------" & vbNewLine & "總計: " & sum & "元"

        MsgBox(chk)
    End Sub

End Class