過去ログ

                                Page     374
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼構造体の初期化  truth 02/11/21(木) 15:55
   ┣Re:構造体の初期化  JuJu 02/11/21(木) 16:28
   ┗Re:構造体の初期化  角田 02/11/21(木) 19:18

 ───────────────────────────────────────
 ■題名 : 構造体の初期化
 ■名前 : truth
 ■日付 : 02/11/21(木) 15:55
 -------------------------------------------------------------------------
   以下のような形式でユーザ定義型の構造体を作成しました。何度も使用するのでその都度初期化を行いたいのですが、簡単にできる方法はないでしょうか。

Type A
  YMD as String  
  MENKYO as String
End Type

Type B
  NAME as String
  SEXKBN as String
  BIRTH as String
  MENKYO(10) as A
End Type

Private C as B
 ───────────────────────────────────────  ■題名 : Re:構造体の初期化  ■名前 : JuJu <juju-bbs@su-u.com>  ■日付 : 02/11/21(木) 16:28  -------------------------------------------------------------------------
   truthさん、こんにちはぁ

>以下のような形式でユーザ定義型の構造体を作成しました。何度も使用するのでその都度初期化を行いたいのですが、簡単にできる方法はないでしょうか。

どんな値に初期化するのですか?
初期値を格納している変数を予め用意して、

Private C as B
Private InitC as B ' 初期化用

C = InitC

で一気に代入することができます。
ではではぁ
 ───────────────────────────────────────  ■題名 : Re:構造体の初期化  ■名前 : 角田  ■日付 : 02/11/21(木) 19:18  ■Web : http://www.h3.dion.ne.jp/~sakatsu/index.htm  -------------------------------------------------------------------------
   こんにちは。
初期値を代入するサブルーチンを用意するのも手です。
Private C as B
Call InitSub(C)

Sub InitSub(ByRef AA As B)
 'この中で、各要素に初期値を代入
End Sub
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 374