¹ØÓÚvb±àдµÄÈí¼þÔÚ²»Í¬·Ö±æÂÊϵÄÏÔʾ - VB / »ù´¡Àà
    
	
	ÎÒÓÃvbÔÚ1680*1050µÄ·Ö±æÂÊϱàºÃÁËÈí¼þ¡£ÎÒµÄÈí¼þÏÖÔÚÊÇÈ«ÆÁÏÔʾµÄ¡£¼ÙÈçÓû§µÄÏÔʾÆÁ²»ÊÇÕâ¸ö·Ö±æÂʵϰ£¬ÈçºÎ×öµ½¶¼ÄÜÍêÕûµÄÏÔʾÎÒµÄÈí¼þÄØ£¿
Ï£Íû´ó¼Ò¸øÓèÖ¸µã£¬»á¾¡¿ì½áÌù¸ø·Ö¡£Ð»Ð»£¡
Õâ¸ö±È½ÏÂé·³£¬Èç¹ûÄã³ÌÐò½çÃæÉϵĿؼþ±È½Ï¼òµ¥µÄ»°£¬ÊÔÊÔÕâ¸ö£¬ÎÒÓùý£¬µ«Ò²²»ÊǺܺÃÓá£Äã¿ÉÒÔÔÚÍøÉÏbaiduһϣ¬µ«Ã»ÓкÜÍêÃÀµÄ£¬ºÇºÇ£¬Èç¹ûÄãÕÒµ½Á˱ðÍüÁ˸æËßÎÒÒ»Éù
VB code: 
Private Sub Form_Load()
For Each Control In Controls
Control.Tag = Join(Array(Control.Left, Control.Top, Control.Width, Control.Height))
Next
Tag = Join(Array(Width, Height))
End Sub
Private Sub Form_Resize()
Dim sF, sC
sF = Split(Tag)
For Each Control In Controls
sC = Split(Control.Tag)
Control.Move Width / sF(0) * sC(0), Height / sF(1) * sC(1), Width / sF(0) * sC(2), Height / sF(1) * sC(3)
Next
For Each Control In Controls
Control.Tag = Join(Array(Control.Left, Control.Top, Control.Width, Control.Height))
Next
Tag = Join(Array(Width, Height))
End Sub
VB6ÖжÔÏó´°¿ÚÀïµÄ³ß´ç¶¼ÊÇ£¢´òÓ¡³ß´ç£¢£¬ÊÂʵÉϺÍÎÒÃÇÆ½Ê±¿¼ÂÇµÄÆÁÄ»³ß´çÊÇÁ½ÂëÊ£®
Â¥Ö÷˵µÄÔڽϴóµÄ£¢1680*1050µÄ·Ö±æÂÊ£¢Ï°ÚÂú¿Ø¼þµÄ´°Ì壬µ½Ð¡·Ö±æÂÊÏ¿ÉÄÜÏÔʾ²»ÍêÈ«£®¶Ô¸¶ÕâÖÖÇé¿ö£¬±È½Ï¼òµ¥µÄ·½°¸ÊÇÏñVCLÄÇÑù£¬°Ñ´°ÌåµÄ¹ö¶¯ÌõÏÔʾ³öÀ´£¬²¢ÏìÓ¦¹ö¶¯ÌõµÄ±ä»¯¶øÒƶ¯ËùÓпؼþλÖã®
Â¥ÉϵĴúÂë¿´ÁËÒ»ÏÂûÃ÷°×Òâ˼£¬ÄܽâÊÍÁ½¾äÂ𣺣©
¶÷¿´À´Ã»ÓбȽÏÍêÃÀµÄ·½°¸°¡  °´ËµÕâ¸ö¹¦ÄÜÓ¦¸ÃºÜ³£Óð¡ ÏñƽʱÎÒÃÇÂòµÄÈí¼þ ºÜ¶à¶¼¿ÉÒÔÔÚ²»Í¬µÄ»úÆ
    
 
	Ïà¹ØÎÊ´ð£º
        
    
    xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
    
        
    
    ÏÖÔÚСµÜÔÚÓÃvb6.0±àд³ÌÐò£¬Óöµ½Òì²½µÄÎÊÌ⣬¾ßÌåÈçÏ£º
µã»÷°´Å¥Aʱ£¬µ÷ÓÃÍⲿµÄdll(C++)£¬´ËdllÊÇͬ²½·µ»ØÊý¾Ý¡£´ËʱÈç¹ûÔ¶³ÌδÏìÓ¦£¬ÎҵijÌÐò½çÃæ¾Í»á¿¨ËÀ¡£Òò´ËÎÒÏëµ½ÓÃtimerÀ´ÊµÏÖÒì²½ £¬µ«ÊDz»Çå³þ¾ßÌåµÄÊµÏ ......
    
        
    
      ϵͳÔÚ¶ą̀µçÄÔÉÏÔËÐУ¬¾ÍÔÚÆäÖÐһ̨µçÄÔÉϲúÉú¡±ÄÚ´æÒç³ö¡°¡£
   ÿ̨µçÄÔ²Ù×÷ϵͳ ÅäÖö¼Ò»ÑùµÄ¡£¡£ÇëÎÊÊÇʲôÔÒò£¿
(1)ÓÃÁËÉè¼Æ²»ÍêÉÆµÄ¿Ø¼þ£¬¿Ø¼þ±¾ÉíÓÐÎÊÌ⣬»òÕß²»Ç¡µ±µØÊ¹ÓÃÁËapiº¯Êý¡£
(2)ÎÞÏÞµÄ ......