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

ÔõÑù±£´æVBµÄcomboboxµÄlistÖµ£¿

form1 ÖУ¬ÎÒÔÚText1ÀïÊäÈë1111111111

Dim str1 As String
Private Sub Command1_Click()
str1 = Me.Text1.Text
Combo1.AddItem str1
End Sub

µãCommand1£¬¾Íдµ½Combo1µÄ ÏÂÀ­²Ëµ¥ÀïÈ¥ÁË¡£
µ«Í˳öform1ºó£¬ÔÙload form1, ÏÂÀ­²Ëµ¥ÀïûÓÐÁË1111111111¡£
ÇëÎÊÔõÑù±£´ælistÖµ
¼Ó¸ö public collection ÔÚ bas À¼Ç¼ ËùÓÐµÄ combo1µÄ£¬
load form1 ʱ£¬ÖØÐ¼ӡ£

Äã¿ÉÒÔÓÃ數據±í來´æ儲ListÖµ£¬當Load時£¬從數據±í¼Ó載List內ÈÝ¡£

Äã±Ø須ÔÚ´°體關閉時£¬°ÑComboµÄList項´æ儲ÏÂ來£¬Äã¿ÉÒÔ´æ儲µ½數據±í£¬Ò²¿ÉÒÔ´æ·Åµ½ÎļþÖУ¬È»ááÔÚ´°體¼Ó載時£¬ÔÙ從´æ儲µÄµØ·½¼Ó載這ЩList項¡£

Dim str1 As String
Private Sub Command1_Click()
str1 = Me.Text1.Text
Combo1.AddItem str1

'DÔÚÕâÀïÔÙÔö¼Ó´úÂë±£´æstr1ÖÁÎļþÖÐ,Ï´μÓÔØ´°Ìåʱ,ÔÙ´ÓÎļþÖжÁ³öÖµÔö¼Óµ½combo1ÖÐ

End Sub


дµ½Êý¾Ý¿âÀÿ´Î´ÓÊý¾Ý¿âÀï¶Á

    Dim cn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim SqlStr As String
    cn.CursorLocation = adUseClient
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database


Ïà¹ØÎÊ´ð£º

ΪʲôCдDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷ÓÃ

ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿

1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......

¹ØÓÚASP.net(vb)²¥·Å¼à¿ØÂ¼ÏñµÄÎÊÌâ

ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......

¹ØÓÚVBÖеÄÁбí¿òµÄÎÊÌâ

Ò»µÀVBС³ÌÐò
ÓÐÁ½¸öÁбí¿òlist1¡¢ list2 ¡£list1Öгõʼ»¯ÓÐ15¸ö²»Í¬µÄ×Öĸ£¬¶ølist2ÖÐÊÇ¿Õ°×µÄ »¹ÓÐÒ»¸ö°´Å¥command1,Ñ¡ÖÐlist1ÖеÄÈÎÒâ¶à¸öÏîÄ¿ È»ºóµã»÷°´Å¥command1,ÔòÔÚlist2ÖÐÏÔʾlist1Öб»Ñ¡ÖеÄÏîÄ¿¡£µ±¶ ......

¹ØÓÚÓÃvb´¦ÀítxtµÄÎÊÌâ

ÓÉÓÚÿÔ´ӱðµÄ¹«Ë¾ËÍÀ´Ò»¸ötxtÎļþ£¬¸ñʽÈçÏ£º
   
0023939608011»Æ¸ùÑø                                & ......

ΪʲôÎҸоõVB·´±ÈVCÄÑѧ¡­¡­

VBÓï¾äÏñÓ¢ÓC++Óï¾äÏñÊýѧ£¬ÎÒÊýѧ±ÈÓ¢ÓïºÃ¡­¡­

ÓÐЩVBÓï¾ä¸É´à¾ÍÊÇÓ¢Óï¾ä×Ó£¬ËäÈ»ºÜÈÝÒ×¶®£¬µ«ÎÒ²»ÊÇÀÏÍ⣬¶ÔÓ¢ÓïûÓÐÈκÎÇ×ÇиУ¬Ò²¾Í²»¸Ð¾õVB¸üÈÝÒ×£¬Ïà·´C++Óï¾äÂß¼­ÐÔ¸üÇ¿£¬ÏñÊýѧÌâËÆµÄ£¬¿´µÄ·´¶øÁ÷ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ