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

[µo°Ý] §PÂ_¥\¯àªí«ö¶s¦Ó°õ¦æµ{¦¡½X°ÝÃD

¦^´_ 1# reangame

¿ï¾Ü¦¬½L¤é´Áªí³æªºµ{¦¡½X¥i·s¼W¥[¤@­Ó¥þ°ìÅܼơAÀx¦s¬O¨Ó¦Û­þ­Ó«ö¶s¡C

¦p¡i¿ï¾Ü¦¬½L¤é´Á¡jµ{¦¡½X¤W¤è¥[¤W:
  1. Public Enum enumClickOption
  2.   optDefault
  3.   opt¿ï¾ÜªÑ²¼¦¬½L¦æ±¡
  4.   opt¿ï¾ÜªÑ²¼¤ñ¨Ò¸ê®Æ
  5.   opt¿ï¾Ü¤T¤jªk¤H¸ê®Æ
  6. End Enum
  7. Public fromOption As enumClickOption
½Æ»s¥N½X
ÂI¿ï¡i¿ï¾ÜªÑ²¼¦¬½L¦æ±¡¡j, show¤§«e¥[¤W¤@¦æ
  1. Private Sub CommandButton1_Click()
  2.     Unload Me
  3.     ¿ï¾Ü¦¬½L¤é´Á.fromOption =opt¿ï¾ÜªÑ²¼¦¬½L¦æ±¡
  4.     ¿ï¾Ü¦¬½L¤é´Á.Show
  5. End Sub
½Æ»s¥N½X
¨ä¥L«ö¶s¨Ì¦¹Ãþ±À

³Ì«á¡i¿ï¾Ü¦¬½L¤é´Á¡j½T©w®É¡A¦A§PÂ_¸ÓÅܼƨM©w°õ¦æ­þ­Ó¦æ¬°

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD