ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý]¡@Type »P ¦hºû«×°}¦C¤§ Redim

[µo°Ý]¡@Type »P ¦hºû«×°}¦C¤§ Redim

' ¦b type ¸Ìªº¦hºû°}¦C¡A¦b­«·s Redim ¦hºû°}¦C¤j¤p®É¡A·|¥X¿ù¡F½Ð°Ý­n¦p¦ó­×¥¿©O¡H

Public Type  t
   Amount() As Double                     
   PriceAry(1, 1)  as Double  ' ¦³¸ÕµÛ±N¦¹¦æ §ï¦¨ PriceAry()() as Double ©Î PriceAry(,) as Double ¡A³£·|¥X¿ù
End type

Dim  a(2) as t

Public sub s()
   With a(1)
              redim .Amount(10)
              redim .PriceAry(1 to 10, 1 to 10) ' ³o¦æ·|¥X¿ù¡A½Ð°Ý­n¦p¦ó§ïÅÜ°}¦C¤j¤p©O¡H
   End with
End  sub

¤v¸Ñ¨M.

½Ð§ï¥Î PriceAry()  «Å§i¡A¤£ºÞ PriceAry() ³Q Redim ¦h¤Öºû«×°}¦C¡C

TOP

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD