掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Call文の使い方 (ID:100377)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
すいません、すごい初心者です。 下記のような内容で、call文を使用したいのですが、Text1かText2が空白だった場合、Private Function Chk() ではきちんと動作するのですが、戻ってきてから、エラーになります。そこまでは解ったのですが、ではどうすればよいのかが解らないので、どうかご教授願えませんでしょうか？ (call文を使用して、なるべく短いソースにしたいのです) 宜しくお願いします。 Private Sub tasu_Click() Call Chk Text3.Text = CStr(CDbl(Text1.Text) + CDbl(Text2.Text)) End Sub Private Sub hiku_Click() Call Chk Text3.Text = CStr(CDbl(Text1.Text) - CDbl(Text2.Text)) End Sub Private Sub kakeru_Click() Call Chk Text3.Text = CStr(CDbl(Text1.Text) * CDbl(Text2.Text)) End Sub Private Function Chk() If Text1.Text = "" Then MsgBox "数値を入力" Text1.SetFocus Exit Function ElseIf Text2.Text = "" Then MsgBox "数値を入力" Text2.SetFocus Exit Function End If End Function
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.