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

ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......

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

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

¿´¿´i ......

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

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

VBµ÷ÓÃEXCEL»æÍ¼£¬ÈçºÎÐÞ¸ÄXÖá×ø±ê - VB / »ù´¡Àà

СµÜÓÃVBµ÷EXCEL×÷ͼ
objExlApp.Workbooks.Add
  objExlApp.Charts.Add
  objExlApp.ActiveChart.ChartType = xlLine
  objExlApp.ActiveChart.HasLegend = True
  objExlApp. ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ