Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 / »ù´¡Àà

ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......

vb - VB / »ù´¡Àà

Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ

ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......

vb ÖÐ - VB / »ù´¡Àà

dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®

¿´¿´i ......

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

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

vbÒì²½ÎÊÌâ - VB / »ù´¡Àà

ÏÖÔÚСµÜÔÚÓÃvb6.0±àд³ÌÐò£¬Óöµ½Òì²½µÄÎÊÌ⣬¾ßÌåÈçÏ£º
µã»÷°´Å¥Aʱ£¬µ÷ÓÃÍⲿµÄdll(C++)£¬´ËdllÊÇͬ²½·µ»ØÊý¾Ý¡£´ËʱÈç¹ûÔ¶³ÌδÏìÓ¦£¬ÎҵijÌÐò½çÃæ¾Í»á¿¨ËÀ¡£Òò´ËÎÒÏëµ½ÓÃtimerÀ´ÊµÏÖÒì²½ £¬µ«ÊDz»Çå³þ¾ßÌåµÄÊµÏ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ