| 投稿日 | ： 2004/07/27(Tue) 16:38 |
| 投稿者 | ： たてまつ |
| ＵＲＬ | ： |
| タイトル | ： Re^3: 0（ゼロ）を取得する方法を教えてください |
ご面倒をおかけして申し訳ありません。
If〜thenの処理はsubプロシージャが入り組んでいますので
すごく簡単にピックアップしてみたのですが
これでよろしいでしょうか？
変数名が日本語で、大変恥ずかしいのですが
お願いいたします。
Public 子_1 As Integer '子の年齢
Public 子_2 As Integer
Public 子_3 As Integer ここまで標準モジュールです
ここからフォーム1です
Private Sub 試算_Click()
子_1 = Val(ko1.Text)
子_2 = Val(ko2.Text)
子_3 = Val(ko3.Text)
If 子_1 <= 18 And 子_2 = Empty And 子_3 = Empty Then
kisogoukei.caption = "0"
End if
End Sub
Private Sub Command1_Click()
Unload Me
Form2.Show
End Sub
これを実行し、テキストボックスのko1に0を入力すると
子_1は0歳であるということを取得しました。
（kisogoukei.caption = "0"ができました）
（再テストしたところ、前のメッセージと異なってしまいました。申し訳ありません）
ko1のテキストボックスと、kisogoukeiのラベルは同じフォーム1内にあります。
次に、フォーム2へ
If 子_1 <= 18 And 子_2 = Empty And 子_3 = Empty Then
Image1.Visible = True 'デフォルトはFalse
End if
この結果は、form1のko1の値が1以上であれば、Image1を表示してくれますが
0だと表示できません。
といった感じです。
フォーム1でのifの結果は、フォーム2で使用することはなく
フォーム1と同じ条件判断をして
表示させるものは別指定しています。
お手数をおかけしますが
どうぞよろしくお願いいたします。