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


Ïà¹ØÎÊ´ð£º

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

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

VBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ

ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾ­Í¨¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË&# ......

VB »ñÈ¡ÍøÒ³Ô´´úÂë

Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......

vb´òÓ¡ÎÊÌâ

´ó¼ÒºÃ£¬Îʸövb´òÓ¡ÎÊÌâ


printer.print "dsff"
.....
....


Printer.EndDoc


´òÓ¡³É¹¦ºóÎÒ½«Ö´ÐÐ

sqlstr = "update vc_yh set pr=' ÒÑ´òÓ¡ ', ......

vbÖпÉÑ¡²ÎÊýµÄÎÊÌâ

function multi(a as integer,b as integer,optional third)
  dim n as integer
  n = a * b
if not ismissing (third) then
    n = n * thid
end if
multi = n
end fu ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ