VB6でのCheckBoxのCaptionの表示について
VB6でのCheckBoxのCaptionの表示について
VB6の中でCheckBoxを使用しています。
しかし、Caption(表示項目)が毎回異なる為に
プロパティ内で設定することが出来ず、
ソースにて表示させています。
ちなみに複数台にてそのVBで作ったシステムを稼働しています。
それが今までは問題なく表示されていたのですが、
最近になって全ての機械でもないし、毎回ではないのですが、
Captionが表示されないという現象が時々発生するようになりました。
そこで初歩的ではありますがCaptionに項目名を設定する前に
Refreshを書き足しましたが状況は変わりません。
他に原因として考えられることはありますか?
お分かりになる方がいたら回答よろしくお願い致します。
ちなみに上記の「最近になって」という記述ですが
PCの入替と同時に発生するようになりました。
また、PCのOSはXPから7に変更しています。
但し、入替と同時に追加したプログラムではありますが、
全く同じプログラムを以前(XP機)も別の箇所で使用していましたが
このような現象は一度も起きたことありませんでした。
以下にソースを記述します。
---------------------------------------------------------------------------------
Dim T1 As Integer
Dim T2 As String * 7
T2 = Trim(T114) + "/" + Right$(Space$(2) + Format((T115), "00"), 2)
For T1 = 101 To 112 Step 1
フォーム名.Refresh
CH(T1).Caption = Trim(T2)
CH(T1).Enabled = True
T2 = Trim(Mid$(T2, 1, 4)) + "/" + Right$(Space$(2) + Format(Mid$(T2, 6, 2) + 1, "00"), 2)
If Mid$(T2, 6, 2) = 13 Then T2 = Trim(T114 + 1) + "/" + "01"
Next T1
---------------------------------------------------------------------------------
一応、捕捉しますと
CH=CheckBoxのオブジェクト名
T114=西暦が入力されているTextBox(ImText)
T115=月が入力されているTextBox(ImText)
となっております。
お礼
こんにちは、honiyonです。 ご回答有り難う御座います(.. 今日試してみたら、何の問題もなく実行出来ました(汗) 昨日は何をしても動かなかったのに...不思議です。 もし次回同症状に悩まされたら mfukuさんの操作を参考にさせて頂きます(^^;