vb6でCultureInfoオブジェクトをSet

質問

vb6でCultureInfoオブジェクトをSetしたいのですが、うまくできません。
Visual Basic 6.0 SP6
WindouwsXP　Professional
Microsoft .NET Framework 2.0

参照設定でmscorlibを追加し、下記コード作成。

Dim calendar as Calendar
Dim culture as CultureInfo
Dim format_info as DateTimeFormatInfo

Set calendar = New JapaneseCalendar
Set culture = New CultureInfo("ja-JP") ←ここでエラー（Newキーワードの使用法が不正です。）
Set format_info = New DateTimeFormatInfo
format_info = culture.Datetimeformat
format_info.Calendar = New JapaneseCalendar()
…

最終的には元号コード1～4の元号名を自動で取得したいと思っています。
（新元号対策として）
そもそも、vb6ではCultureInfoクラスは使えないのでしょうか？
それとも、違う方法で元号自動Getできるんでしょうか？
どなたか教えて頂けたら幸いです。。。

回答No.1

piroin654

vb6での新元号の取得は、マイクロソフトが例えば、vb6の
修正プログラムを出すか、あるいはOSの修正プログラム
を出すかで、それぞれvb6で対応できるのかにかかっていると
思います。
まだ、vb6については修正プログラムを出しているようなので
対応してくれるかもしれませんが、元号については不明です。
その時になってみないとわからないのではないでしょうか。

もし、対応できないならば、ファイルなり、あるいはクラスで
データを保持して処理をするとか、あるいは、Format関数で
処理するなりして対応するしかないと思います。

vb6のあるマシンにはNET Framework を入れていないので、
確認できませんが、海外の、

http://www.danielmoth.com/Blog/call-net-from-vb6.aspx

によると、mscoree　も参照して、NET環境を設定する必要が
あるように記述されています。

vb6でのカレンダー類といえば、

DateTimePicker
MonthCalendar

がありますが、これでは使い道がないとか？

お礼

ご回答、ありがとうございました。

VB2008では自動取得できたので、
VB6でも同じ事ができればと思っているのですが。。。
なかなかうまくいかないものですね。

＞http://www.danielmoth.com/Blog/call-net-from-vb6.aspx
＞
＞によると、mscoree　も参照して、NET環境を設定する必要が
＞あるように記述されています。

こちらで、試してみたいと思います。

＞DateTimePicker
＞MonthCalendar
＞がありますが、これでは使い道がないとか？

こちらは試していませんが、
できるかどうか、いろいろ探ってみます。