ActiveXコントロールの日付の表示を変えるには？
解決ActiveXコントロールのプロパティで、6-sbrDateで日付を表示させたのですが、
2003/09/26と表示されているものを、26/09/03と表示するにはどうしたらいいでしょうか？
(Format(Date, "DD/MM/YY ") は使えないですよね??)
> ActiveXコントロールのプロパティで、6-sbrDateで日付を表示させたのですが、
「sbrDate」という事は、おそらく、StatusBarコントロールなのだと想像しますが、
だとすればそれは、コントロールパネルの地域設定に依存します。
> (Format(Date, "DD/MM/YY ") は使えないですよね??)
Styleプロパティを sbrDate のままにしておきたいなら、
実行前に、コントロールパネルを設定しておく必要があります。
コントロールパネルの設定に依存させたく無いのであれば、
Styleプロパティを sbrText に変更しておき、Textプロパティに
Format(Date, "DD\/MM\/YY") の結果を指定するようなコードを
書く必要があるでしょう。
プロパティの「style」で1-sbrSimpleを選んで、
タイマー部分に
StatusBar2.SimpleText = Format(Date, "DD/MM/YY ")
& Format(Time, "HH:MM")
って書いたら、とりあえず表示&更新は出来ました。
ありがとうございます。（とりあえず解決っと。ρ(・_・ )ポチッ）
あと、これらの表示を右寄せにして、できれば区分けして表示したいんですが、
結構手間かかります？
右寄せにはしたいです。
よろしくお願いします。
.SimpleTextを使うのではなく、.Panelsを利用しましょう。
複数のパネルを表示する事は出来ないのでしょうか？
styleを1にすると、1つになるし、
styleを0にすると、内容を変更できません。
そこまではムリでしょうか…？
> styleを0にすると、内容を変更できません。
や、できますよ。
先ほども書きましたが、.Panelsを利用しましょう。
Styleを0にして、
StatusBar2.Panels(3).Style = 1
StatusBar2.Panels(3).Text = Format(Date, "DD/MM/YYYY ")
& Format(Time, "hh:mm")
って書いたら出来ました。
Panels()ってのは、各パネルに対して設定が出来るものだったんですね。
ただ、表示される時刻・日時が濃いグレーになるんですが、何故なんでしょう？？
# 各オブジェクトのプロパティについて、ヘルプで調べましょう。
> ただ、表示される時刻・日時が濃いグレーになるんですが、何故なんでしょう？？
「そのようなコーディングをしているから」です。(^^;)
CapsLockが On ならば、グレーにはならないと思いますよ。
> StatusBar2.Panels(3).Style = 1
この右辺の 1 を、定数を使って書けば、これは
StatusBar2.Panels(3).Style = sbrCaps
と書く事ができます。『Caps』の文字から想像できるかと思いますが、
これはキーボードの CapsLock の状態を示すために使われるスタイルです。
CapsLockが On の時には黒、Offなら淡色で表示されます。
今回の場合、StatusBarのStyleにしても、各PanelのStyleにしても、
デザイン時に設定しておけば、おそらくは十分でしょう。Timerからは、
StatusBar1.Panels(パネル名またはパネル番号).Text
だけを修正すれば良いかと。
なるほそ、Capsがかかっていたわけですか。
フォームのロード時に、
StatusBar2.Panels(2).Style = sbrText
と入れたら、Capsは解除されたようで、ちゃんと黒で表示できるようになりました。
いろいろ解説していただいて、ありがとうございました。
| ツイート |  |