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

½Ð°Ý¦p¦óÅã¥Ü°T®§°ÝÃD

¥»©«³Ì«á¥Ñ luhpro ©ó 2016-4-30 05:12 ½s¿è

¦^´_ 1# chaoyiho
¨º´N¤ñ·Ó¿ì²zÅo:
  1. Sub ¸ß°Ý»P¨¾§b()

  2.   Dim ans As Integer
  3.   ans = MsgBox("±zªºªí®æ¬OXXX¶Ü?", _
  4.   vbYesNo + vbQuestion, "±z¿ï¾Ü¤FXXXªí")

  5.   If ans = vbYes Then
  6.     ans = MsgBox("±zªºªí®æ¬OXXX¶Ü?", _
  7.     vbYesNo + vbQuestion, "±z½T©w³B²zXXXªí¶Ü? ¬O(Y) §_(N)")
  8.     If ans = vbNo Then Exit Sub ' ª½±µ¸õ¥X Sub
  9.   Else
  10.     Exit Sub
  11.   End If
  12.   ' ³£«ö½T©w«áªº³B²z§@·~
  13. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ luhpro ©ó 2016-5-6 23:37 ½s¿è
¦^´_  luhpro
«e½ú©êºp ³o¼Ëªº»yªk¦ü¥G³¯­z¦¡¬O¿ù»~ªº
ans = MsgBox ("±zªºªí®æ¬OXXX¶Ü?" _
vb ...
chaoyiho µoªí©ó 2016-5-3 09:09

«x?
§Ú°õ¦æ°_¨Ó¨S¦³°ÝÃD°Ú?
°ò¥»¤W§Ú¥á¤W¨Óªºµ{¦¡½X³£·|¹ê»Ú°õ¦æ½T»{¹L¥i¦æ,
°£«D§Ú¦³¯S§Oµù©ú¥¼¸g¹ê´ú¹L,
©Î¬Oµ{¦¡¤Ó²³æ ¥ç©Î¬O ®É¶¡¨Ó¤£¤Î°¼.

¦^´_  chaoyiho
...
¦ý¬O
¦pªG¿ï¾Üªº¬O"¬O"
¨º¸Ó«ç»òÅý¥L§PŪ¬O§_¬°­n¤ÀªRªº©T©w®æ¸Õªí³æ©O?
chaoyiho µoªí©ó 2016-5-3 12:23


§ÚµLªk¾ÌªÅ·Q¹³§A©Ò¿×ªº "§PŪ" ¬O¥Î¬Æ»ò±ø¥ó°µ¨Ì¾Ú,
§PŪªº¼Ðªº¤S¬O¬Æ»ò.

§A­n¤£­nªþ¤WÀɮ׬ݬÝ,
¥i¥H¥ý§âÁô¨p©Î­Ó¸ê ¸ê®Æ°u¤©¾B¸n,
©Î¬O§A¯à±Ô­z±o§ó§¹¾ã¸Ô²Ó¤@¨Ç.

TOP

        ÀR«ä¦Û¦b : ¤f»¡¦n¸Ü¡B¤ß·Q¦n·N¡B¨­¦æ¦n¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD