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

ÔÚÏߵȣ¡vb ¹ØÓÚÊý×é±ä»¯µÄά¶È - VB / »ù´¡Àà

¾ÍÊÇÎÒ¶¨ÒåÊý×é
dim a£¨1 to 2£¬1 to b£©as long

ÆäÖÐbÒ»¸ö¶¯Ì¬µÄÖµ

ÎÒÏëʵÏÖÕâ¸ö¹¦ÄÜ£¬µ«ºÃÏñvb²»Ö§³Ö¶ÔÊý×éά¶ÈÕâÖÖ·½Ê½µÄдÈë¡£

²»ÖªÄÄλ´ïÈËÓа취ʵÏÖ£¬Ð»Ð»£¡ 

ÎÒÊdzõѧ£¬Çë´ó¼Ò¶à¶à°ï棬ÏÈлл´ó¼ÒÁË¡£



ÏÈллÄú£¡ÎÒÕâ¾ÍÈ¥ÊÔÊÔ£¡

VB code:
Dim a() As Long, b As Long
ReDim a(1 To 2, 1 To 20) 'Èç¹ûÔ­Ïȶ¨Òå¹ý
b = 30
ReDim Preserve a(1 To 2, 1 To b) 'ÓÃPreserve¿ÉʹÊý×éÊý¾Ý²»±»¶ªÊ§


¶þάÊý×é²»ÄÜÄÇô¶¨Ò嶯̬Êý×飬»¹ÊÇÓÃREDIM°É£¬ÏÈÈ·¶¨ÄãÒªÌî½øÈ¥µÄÊý¾ÝÐÐÁÐ

ÒýÓÃ

VB code
Dim a() As Long, b As Long
ReDim a(1 To 2, 1 To 20) 'Èç¹ûÔ­Ïȶ¨Òå¹ý
b = 30
ReDim Preserve a(1 To 2, 1 To b) 'ÓÃPreserve¿ÉʹÊý×éÊý¾Ý²»±»¶ªÊ§



Ïà¹ØÎÊ´ð£º

vbµÄÀàÖÐʹÓÃ×Ô¶¨ÒåÀàÐÍÊý¾ÝµÄÎÊÌâ - VB / »ù´¡Àà


ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......

vb - VB / »ù´¡Àà

ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£

²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

vb - VB / »ù´¡Àà

ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......

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 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ