Re: [VB6 ] 關於MsgBox用法
※ 引述《ashinplay (..............)》之銘言：
: 我這學期才開始碰VB
: 有點小問題想請教版上高手
: MsgBox "應找金額為" & total & "元" & Chr(13) & "以下為找零明細" & Chr(13) &
: Chr(13) & "一千" & money(0) & "張" & Chr(13) & "一百" & money(1) & "張" &
: Chr(13) & "五十" & money(2) & "個" & Chr(13) & "十元" & money(3) & "個" &
: Chr(13) & "五元" & money(4) & "個" & Chr(13) & "一元" & money(5) & "個"
: 如上...
: 這是最後的顯示部份
: 為了要換行....
: 一定只能這樣寫嗎？？
: 覺得這樣寫好麻煩
: 有沒有比較簡易的寫法呢？
Chr(13) 是不正確的，windows的換行符號一定要13(cr)+10(lf)
strMsg = "應找金額為" & total & "元" & vbCrLf
strMsg = strMsg & "以下為找零明細" & vbCrLf & vbCrLf
Dim unit(1)
unit(0) = Split("一千,一百,五十,十元,五元,一元", ",")
unit(1) = Split("張,張,個,個,個,個", ",")
For i = 0 To UBound(unit(0))
strMsg = strMsg & unit(0)(i) & money(i) & unit(1)(i) & vbCrLf
Next
MsgBox strMsg
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半點癡情遺留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多悽悽慘慘的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 210.58.156.43
※ 編輯: fumizuki 來自: 210.58.156.43 (03/26 09:21)
推
03/26 14:57, , 1F
03/26 14:57, 1F
討論串 (同標題文章)
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
