¹ØÓÚVBÖеÄÁбí¿òµÄÎÊÌâ
    
	
	Ò»µÀVBС³ÌÐò 
 ÓÐÁ½¸öÁбí¿òlist1¡¢ list2 ¡£list1Öгõʼ»¯ÓÐ15¸ö²»Í¬µÄ×Öĸ£¬¶ølist2ÖÐÊÇ¿Õ°×µÄ »¹ÓÐÒ»¸ö°´Å¥command1,Ñ¡ÖÐlist1ÖеÄÈÎÒâ¶à¸öÏîÄ¿ È»ºóµã»÷°´Å¥command1,ÔòÔÚlist2ÖÐÏÔʾlist1Öб»Ñ¡ÖеÄÏîÄ¿¡£µ±¶à´ÎÑ¡ÖÐlist1ÖеÄͬ¸öÏîĿʱºò£¬±ÈÈçlist1ÖеÄa±»Ñ¡ÖÐÁË3´Î ÄÇôÔÚlist2ÖоÍÓÐ3¸öa. 
 ÎÒÏëÎÊ£ºÔõÑù±àд´úÂëʵÏÖµ±list1ÖеÄÏîÄ¿²»¹Ü±»Ñ¡ÖжàÉٴΣ¬ÔÚlist2ÖÐÏàͬµÄÖ»³öÏÖÒ»´Î£¬¼´ÔÚlist2Öв»Òª³öÏÖÖØ¸´µÄ×Öĸ¡£ÔõÑùʵÏÖÄØ£¿
˼·£ºÔÚcommand1ÖУ¬±»Ñ¡ÖеÄÏîÄ¿´æÈëÊý×é±äÁ¿sDate£¬Ñ»·¸ÃÊý×é±äÁ¿£¬Àï±ßǶÌ×list2µÄÏîÄ¿×öÑ»·£¬Èç¹ûÓÐÏàͬµÄ¾Í²»ÔÙÍùlist2²åÈë 
 dim b as boolean 
 for i =0 to ubound(sDate) 
    for j =1 to list2.ListCount 
       if sDate(i)= list2.list(j) then b=true 
    next j 
    if b=false then 
       list2.AddItem =sDate(i) 
    else 
       b=false 
    end if 
 next i
VB code: 
Private Sub Command1_Click()
    Dim i As Integer, j As Integer
    Dim b As Boolean
    
    For i = 0 To List1.ListCount - 1
        If List1.Selected(i) Then
            b = True
            For j = 0 To List2.ListCount - 1
                If List1.List(i) = List2.List(j) Then
                    b = False
                    Exit For
                End If
            Next j
            If b Then List2.AddItem (List1.List(i))
     
    
 
	Ïà¹ØÎÊ´ð£º
        
    
    ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ, 
 È»ºó¾ÍÖ±½ÓÓúÃÁË. 
 ²»¹ý,Èç ......
    
        
    
    ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
    
        
    
      ÓÃvb×öºÃµÄÈí¼þ£¬ÏëÒª¼ÓÈë×Ô¶¯Òþ²ØµÄ¹¦ÄÜ£¬ÔÚÄÇÌí¼Ó°¡£¬»¹ÓÐÒþ²ØµÄ´úÂëÄÇÓа¡    ½èÓÃһϠ   лÁË
·½·¨1 
 Private Sub Form_Load() 
 Me.Height = 1 * Screen.TwipsPerPixelY 
 Me ......
    
        
    
    VBÖÐcallbacke function ÈçÏ£º 
 Public Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As Long) As Long 
     Dim slength As Long, WndTitle As String ' title bar text length an ......
    
        
    
    ±£´æ³öµÄExcelÊý¾ÝÎļþ£¬ÏëÔÚ³ÌÐòÖоÍת»¯³ÉÊýÖµÀàÐÍ 
 Äܹ»ÔÚ´ò¿ªExcelÎļþºó£¬ 
 Äܹ»Ö±½ÓÀûÓÃÊý¾Ý»Í¼£¬¶ø²»ÐèÒªÔÙ´Îת»¯Êý¾ÝÀàÐÍ 
 ³ÌÐòÖеÄÊý¾ÝÊÇ´æ·ÅÔÚ¶þάÊý×éÀïµÄ£¬È»ºóÔÙ±£´æÔÚExcelÖÐ 
 Çë½Ì´óÏÀÃÇ£¬¸ ......