vbÔÚ²»Í¬µÄ·Ö±æÂÊϵÄÏÔʾ
ÎÒµÄvbÊÇÔÚ1024*768µÄµÍ·ÖÂÊÉÏ×öµÄ ÏÖÔÚÐèÒª×ªÒÆµ½Ò»¸ö¸ß·Ö±æÂʵĵçÄÔÉÏ£¬½á¹û´°¿ÚÃ÷ÏÔ±äСÁË£¬ÖÜΧ³öÏÖÆäËû±³¾°£¬²»ÄÜÈ«ÆÁ£¬ÇëÎÊÈçºÎ²ÅÄÜ×Ô¶¯³ÉΪȫÆÁÏÔÊ¾ÄØ£¿ ÄѵÀÖ»ÄÜÒ»¸ö¸öµÄ¸Ä±ä¿Ø¼þµÄ³ß´çÂ𣿠лл´ó¼Ò£¡
ÓÐЩ¿Ø¼þ¿ÉÉèÖÃËûµÄalignÊôÐÔÀ´¶Ô¸¶,ÔÙÕÒ¸ösplit¿Ø¼þÓÃÀ´·Ö¸ô
Äã¿´¿´Õâ¸övbexplorerµÄÀý×Ó´úÂë,ËûÀïÃæµÄ¿Ø¼þ¾Í¿ÉÊÊÓ¦´°Ìå´óС±ä»¯,Ò²ÓзָôÌõ
http://btmtz.mvps.org/vbexplorer
¶÷ ÎÒ¿´¿´ ÒòΪÏîÄ¿×îÖÕ»¹Ã»È·¶¨Ó¦ÓÃÔÚ¶àÉÙ·Ö±æÂʵĵçÄÔÉÏ ËùÒÔÀ´»ØÒ»¸ö¸öµÄ¸ÄµÄ»° ȷʵ̫Âé·³ÁË
VB code:
Dim x As Integer, y As Integer
x = Screen.Width / Screen.TwipsPerPixelX
y = Screen.Height / Screen.TwipsPerPixelY
ÏÈ»ñÈ¡¿Í»§»úµÄÆÁÄ»·Ö±æÂÊ¡¡È»ºóÔÙ¸ù¾Ý²»Í¬µÄ·Ö±æÂʸı䴰Ìå´óС»ò²¼¾Ö
¿Í»§»úµÄ·Ö±æÂÊÓ¦¸ÃÊÇ¿ÉÒÔÈËΪµÄÉ趨 ´ÓÊôÐÔÄÇÀï »¹ÓûñÈ¡Â𣿠ֻÊÇ»¹Ã»¶¨×îÖÕ»áÓÃÔÚ¶àÉÙ·Ö±æÂʵĻú×ÓÉÏ
ÐèÒªÐ޸ģ¬×îºÃ½«¿Ø¼þÖØÐÂÅÅÁÐ
Ïà¹ØÎÊ´ð£º
¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡
¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿
2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£
........................¿ÉÒÔÂð
¿ÉÒÔ!
¾À½á£¬
29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
A. ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®
¿´¿´i ......
form1ÖÐÓÐtext1-8£¬ ºÍcommand1
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ
......