ÔõÑù±£´æ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²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿
1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......
ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......
Ò»µÀVBС³ÌÐò
ÓÐÁ½¸öÁбí¿òlist1¡¢ list2 ¡£list1Öгõʼ»¯ÓÐ15¸ö²»Í¬µÄ×Öĸ£¬¶ølist2ÖÐÊÇ¿Õ°×µÄ »¹ÓÐÒ»¸ö°´Å¥command1,Ñ¡ÖÐlist1ÖеÄÈÎÒâ¶à¸öÏîÄ¿ È»ºóµã»÷°´Å¥command1,ÔòÔÚlist2ÖÐÏÔʾlist1Öб»Ñ¡ÖеÄÏîÄ¿¡£µ±¶ ......
ÓÉÓÚÿÔ´ӱðµÄ¹«Ë¾ËÍÀ´Ò»¸ötxtÎļþ£¬¸ñʽÈçÏ£º
0023939608011»Æ¸ùÑø & ......
VBÓï¾äÏñÓ¢ÓC++Óï¾äÏñÊýѧ£¬ÎÒÊýѧ±ÈÓ¢ÓïºÃ¡¡
ÓÐЩVBÓï¾ä¸É´à¾ÍÊÇÓ¢Óï¾ä×Ó£¬ËäÈ»ºÜÈÝÒ×¶®£¬µ«ÎÒ²»ÊÇÀÏÍ⣬¶ÔÓ¢ÓïûÓÐÈκÎÇ×ÇиУ¬Ò²¾Í²»¸Ð¾õVB¸üÈÝÒ×£¬Ïà·´C++Óï¾äÂß¼ÐÔ¸üÇ¿£¬ÏñÊýѧÌâËÆµÄ£¬¿´µÄ·´¶øÁ÷ ......