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

Collectionª«¥ó¨Ï¥ÎªººÃ´b¡H

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-1-21 09:28 ½s¿è

¦^´_ 1# dechiuan999
§AÅܼƪº«¬ºA³]©w¤£¹ï
  1.     Dim myCnt    As String
  2.     Dim myKey    As Variant  '¥i¥H¬O¼Æ¦r©Î¦r¦ê
  3.     '§Y®Éµøµ¡ªº¤º®e: Item 7 : "291_´çÃä" : Variant/String
  4.     '¯Á¤ÞÁä-> Variant  ,Key->String
  5.     myKey = 7                          '«ü©wItem
  6.     myCnt = myClc.Item(7)
  7.     MsgBox myCnt
  8.     myCnt = myClc(7)
  9.     MsgBox myCnt
  10.     myKey = "´çÃä"                      '«ü©wKEY
  11.     myCnt = myClc(myKey)
  12.     MsgBox myCnt
  13.     myCnt = myClc.Item(myKey)
  14.     MsgBox myCnt
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤H¤£©È¿ù¡A´N©È¤£§ï¹L¡A§ï¹L¨Ã¤£Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD