Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

vbÖÐÈçºÎËæ»úѡȡ³µÅƺŠ- VB / ¿Ø¼þ

¢ÙÒªÇóÓÃVisualBasic6.0ÌṩµÄϵͳº¯Êý¼°³£Óÿؼþ£¬½áºÏѧϰ¹ýµÄ³£ÓÃËã·¨Íê³ÉÉè¼Æ¡£
¢ÚÔÚÉè¼Æ³ÌÐòµÄ¹ý³ÌÖУ¬ÒªÇó»áʹÓð´Å¥(commandbutton)¡¢×éºÏÁбí¿ò(combo)£¬Îı¾¿ò(text)¡¢±êÇ©(label)¡¢¿ò¼Ü(frame)¡¢¸´Ñ¡¿ò(check)µÈ»ù±¾¿Ø¼þµÄÊôÐÔ¡¢·½·¨ºÍÏà¹ØÊ¼þ¡£
¢ÛÒªÇóÔÚ³ÌÐòÖÐÄܹ»Ëæ»úÉú³ÉÒ»¸öÊý×Ö×Ö·û´®¡£×Ö·û´®µÄ³¤¶È¡¢¶ÔijЩλµÄÌØÊâÒªÇ󣨱ØÐë¾ß±¸³¤¶ÈÉèÖá¢×îºóһλÊÇ·ñ¿ÉÒÔΪ¡°4¡±¡¢ÈÎһλÊÇ·ñ¿ÉÒÔΪ4¡¢¾üÓÃÅÆÕÕ¡¢¾¯ÓÃÅÆÕÕÕâЩ×î³£¼ûÒªÇ󣩿ÉÓÉÓû§ÉèÖã¬×îÖÕÉú³É·ûºÏÒªÇóµÄ»ú¶¯³µ³µÅƺÅÏÔʾ¸øÓû§¡£
¢ÜÒªÇóʹÓÃÑ­»·Ëã·¨±£Ö¤Ã¿´Îµ¥»÷Ñ¡ºÅ°´Å¥±ØÄܲúÉúÒ»¸ö·ûºÏÒªÇóµÄºÅÂë¡£

Äãµ½µ×ÏëÎÊʲô£¿²»»áÊÇÉÏÃæµÄÈ«²»¶®°É£¿

Õâ¸öÈ˺ÃÏñûÓÐѧ¹ýVB¡£¢Ù¢ÚÍêÈ«ÊÇvb»ù´¡£¬Ò»¸ö³ÌÐòÐèÒªÕâô¶à¶«Î÷Âð£¿

ÕâÊǵÀ×÷ÒµÌâ

àÅ ÊǵÀ×÷ÒµÌ⣬¾ÍÊÇûɶ˼· £¡£¡

Ï£Íû´ó¼ÒÖ¸µ¼Ò»Ï £¬ÎÒ¸ÕѧVBû¶àÉÙÈÕ×Ó£¬»ù±¾ÉÏ»¹Ã»Õ¦ÈëÃÅÄØ£¡£¡


Private Sub Combo1_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then 'ASCIIÂëÖÐenter¼üֵΪ13£¬ÒâΪ°´ÁËenter¼ü
  Combo1.AddItem Combo1.Text, 0 '½ÓÊÕÊäÈëµÄºÅÂë
  Combo1.SelStart = 0 'ÉèÖÃÆðʼ×éºÏ¿òµÄλÖÃ
  Combo1.SelLength = Len(Combo1.Text) 'ÉèÖÃ×éºÏ¿òµÄ³¤¶È
   
  End If
  If KeyAscii = 27 Then 'ASCIIÂëÖÐescape¼üֵΪ27
  If Combo1.ListIndex <> -1 Then
  Combo1.RemoveItem Combo1.ListIndex 'ÒÆÈ¥Ñ¡Ïî
  End If
  End If
End Sub

Private


Ïà¹ØÎÊ´ð£º

vbµÄÀàÖÐʹÓÃ×Ô¶¨ÒåÀàÐÍÊý¾ÝµÄÎÊÌâ - VB / »ù´¡Àà


ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......

vb - VB / ·Ç¼¼ÊõÀà

Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o=& ......

vb²Ù×÷excel - VB / »ù´¡Àà

ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
  A 3
  A 4
  B 6
  ... ......

vbÉú³ÉEXE - VB / »ù´¡Àà

form1ÖÐÓÐtext1-8£¬ ºÍcommand1 
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ ......

vbÖÐunicodeÂë,ÈçºÎת»»³ÉÎı¾ - VB / »ù´¡Àà

ÓÃVB±à³Ì¶ÁÈ¡¶ÌÐÅ,µÃµ½Ò»´ó¶Ñunicode±àÂë,Çë½ÌÈçºÎת»»³ÉÎı¾
ÀýÈç:¶ÁÈ¡¶ÌÐźó(»ªÎª900C»òTC35i),´®¿ÚµÃµ½ÈçÏÂÊý¾Ý:
+CMGL: 17,"REC UNREAD","8615007557713",,"10/03/30,09:37:15+32&qu ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ