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

vbÔõô±íʾһ¸ö×Ö·û - VB / »ù´¡Àà

vbÔõô±íʾһ¸ö×Ö·û°¡£¿Èç¹ûÊÇC,¿ÉÒÔд³É'a',vbÀïÔõôд°¡£¿Ð´³É"a"Âð£¿ÄDz»¾Í³É×Ö·û´®ÁË?Ö»ÄÜд³Échr(97)Âð£¿
»¹ÓÐÒ»Ð©ÌØÊâ×Ö·ûÔõô±íʾ£¿ÏñË«ÒýºÅ,Ö»ÄÜдchr(34£©Âð£¿Èç¹ûÎÒÏëд³É\",Ó¦¸ÃÔõôд£¿
Ë«ÒýºÅ dim dq as string
dq=""""
VB×Ö·û´®=×Ö·û

Private Sub Form_Load()
a = "asdf"""
Debug.Print a

End Sub


Dim A As Characters
A = "C"

ÒýÓÃ
Dim A As Characters
A = "C"

ÎÒÎʵÄÊÇVB6

ÒýÓÃ
Ë«ÒýºÅ dim dq as string
dq=""""
VB×Ö·û´®=×Ö·û

Èç¹û±íʾtab£¬Äܲ»ÄÜд³É\tµÄÐÎʽ£¬Ó¦¸ÃÔõôд£¿

ÒýÓÃ

Èç¹û±íʾtab£¬Äܲ»ÄÜд³É\tµÄÐÎʽ£¬Ó¦¸ÃÔõôд£¿

chr(9)
»ò
vbTab

dim A as byte
A=Asc("a")

¿ÉÒÔÓÃ×Ö½Ú±äÁ¿£¬»ò×Ö½ÚÊý×éÀ´´¦ÀíÄãÏëÒª¶«Î÷£¬ÓÃʱÔÙÓÃchrת»»¡£


ÒýÓÃ
vbÔõô±íʾһ¸ö×Ö·û°¡£¿Èç¹ûÊÇC,¿ÉÒÔд³É'a',vbÀïÔõôд°¡£¿Ð´³É"a"Âð£¿ÄDz»¾Í³É×Ö·û´®ÁË?Ö»ÄÜд³Échr(97)Âð£¿
»¹ÓÐÒ»Ð©ÌØÊâ×Ö·ûÔõô±íʾ£¿ÏñË«ÒýºÅ,Ö»ÄÜдchr(34£©Âð£¿Èç¹ûÎÒÏëд³É\",Ó¦¸ÃÔõôд£¿

ΪʲôҪд³É¡°\¡±ÄØ£¿CÕâÑùÊÇû°ì·¨µÄ°ì·¨£¬ÒòΪ¡°\¡±Îª×ªÒå·û¡£
VB¿ÉÒÔÓÃByte±íʾchar£¬µ«²»ÈçcharµÄÁé»î£¬byteÖ»Äܸ³0-255Ö®¼äµÄÖµ£¬¶øÃ»ÓÐ'a'Ö®ÀàµÄÐÎʽ¡£


Ïà¹ØÎÊ´ð£º

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 / ·Ç¼¼ÊõÀà

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

VBµ÷ÓÃEXCEL»æÍ¼£¬ÈçºÎÐÞ¸ÄXÖá×ø±ê - VB / »ù´¡Àà

СµÜÓÃVBµ÷EXCEL×÷ͼ
objExlApp.Workbooks.Add
  objExlApp.Charts.Add
  objExlApp.ActiveChart.ChartType = xlLine
  objExlApp.ActiveChart.HasLegend = True
  objExlApp. ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ