どうしたらコマンドボタンを押す度、文字を『追加表示』出来るようになるのでしょうか？ (ID:119680)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

LESIAさん早速のお応えありがとうございます！
出来ちゃいました♪
完成品見て改めて思いますがArreyとかポインターとか全く使われてません。
全く持って初心者ですね。

今回、悩んだ点は：
①  文字追加表示の仕方（モジュールレベルってのがあったのですね☆）
②  小数点の桁の指定  （FormatNumber〜って定義があったのですね☆）
③  改行の定義は  "vbCrLf"
でした☆

私のVB、初作品となりましたので、超初心者向けにとっても分かりやすい、シンプルなコードばかりでお恥ずかしいようですが、公開しちゃいます♪
誰かの役に少しでも立てると嬉しいです☆

+++++++++++++++++++++++++++++++++++++
Source Code公開！
+++++++++++++++++++++++++++++++++++++
Option Explicit

Private strMOJI As String
Private dblMin As Double
Private dblUnits As Double
Private dblAccumulatedUnits As Double

Private Sub cmdCancel_Click()
End
End Sub

Private Sub cmdOK_Click()

'=======================================
'Min Section
'=======================================

dblMin = Val(txtMin.Text)
'↑小数点の桁を指定する定義『FormatNumber』を使う時、これはデフォルトで'元から数字に定義されている為、
'だから↓こんな風にLONGとかの変数値に入れちゃ意味ない！
'lngUnits = FormatNumber((lngMin / 60), 2)
dblUnits = (dblMin / 60)
dblAccumulatedUnits = dblAccumulatedUnits + dblUnits

'=======================================
'Contents Section
'=======================================
strMOJI = strMOJI & vbCrLf & txtMoji.Text & vbCrLf & ">>> Min: " & FormatNumber((dblMin), 2) & "  Units: " & FormatNumber((dblMin / 60), 2) & vbCrLf & "*------------------------*" & vbCrLf

'=======================================
'Output
'=======================================

txtOutput.Text = "===============================" & vbCrLf & txtJCInumber.Text & vbCrLf & "===============================" & vbCrLf & strMOJI & bCrLf & "TOTAL UNITS:  " & FormatNumber((dblAccumulatedUnits), 2)

End Sub

←解決時は質問者本人がここをチェックしてください。

戻る