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

[µo°Ý] inputbox + select case ºÃ°Ý

¤j¤j¦n  
case 0  ÁÙ¬O­n«O¯d
«ö¨ú®ø®É¬Oªð¦^ "" ªÅ¥Õ­È

Sub TA()
re: x = InputBox("½Ð¿é¤J¹wÂsÄý¤§¹q¸£", , "½Ð¿é¤J¼Æ¦r <¨Ò¦p 1 > ©Î¿é¤J 0 ¨ú®ø")
Select Case x
Case 0, ""
Case 1
Shell "D:\vncviewer.exe 111.99.67.64 /password cimeng"
Case 2
Shell "D:\vncviewer.exe 111.99.67.84 /password cimeng"
Case Else
MsgBox "½Ð­«·s¿é¤J"
GoTo re
End Select
End Sub

TOP

        ÀR«ä¦Û¦b : ½_ÁJµ²±o¶V¹¡º¡¡A¶V·|©¹¤U««¡A¤@­Ó¤H¶V¦³¦¨´N¡A´N­n¶V¦³Á¾¨Rªº¯ÝÃÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD