ªð¦^¦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 : ¡i®É¶¡µLªk¾B¾×¡j©È®É¶¡®ø³u¡Aªá¤F³\¦h¤ß¦å¡A·QºÉ¦U¦¡¤èªk­n¾B¾×®É¶¡¡Aµ²ªG¬O¡G®ö¶O¤F§ó¦h®É¶¡¡A¥B¤@µL©Ò¦¨¡I
ªð¦^¦Cªí ¤W¤@¥DÃD