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

¹ØÓÚ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ÄÇÑù£¬°Ñ´°ÌåµÄ¹ö¶¯ÌõÏÔʾ³öÀ´£¬²¢ÏìÓ¦¹ö¶¯ÌõµÄ±ä»¯¶øÒƶ¯ËùÓпؼþλÖã®

Â¥ÉϵĴúÂë¿´ÁËÒ»ÏÂûÃ÷°×Òâ˼£¬ÄܽâÊÍÁ½¾äÂ𣺣©

¶÷¿´À´Ã»ÓбȽÏÍêÃÀµÄ·½°¸°¡ °´ËµÕâ¸ö¹¦ÄÜÓ¦¸ÃºÜ³£Óð¡ ÏñƽʱÎÒÃÇÂòµÄÈí¼þ ºÜ¶à¶¼¿ÉÒÔÔÚ²»Í¬µÄ»úÆ


Ïà¹ØÎÊ´ð£º

vb - VB / ·Ç¼¼ÊõÀà

Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o=& ......

vb¶ÁÈ¡xml - VB / »ù´¡Àà

ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xm ......

vb - VB / »ù´¡Àà

xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇʲôÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£

hÊÇxml¸ñʽµÄ×Ö·û´®

ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿

ÎÒÊÇ°Ñh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......

VB µ÷ÓÃInet¿Ø¼þÏÂÔسö´í - VB / ÍøÂç±à³Ì

¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ԭÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾ­Á¬½Óµ½ÏëÒªµÄµØַʱºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......

VBÈçºÎ»ñµÃ±ðµÄ³ÌÐòÉϵıí¸ñÄÚÈÝ£¿ - VB / API

ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£
±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£

ÄÜ°Ñ´úÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ