Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 / »ù´¡Àà

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

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

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

vb¶ÁÈ¡ÓÃwordת»»³ÉµÄxmlÀïµÄÊý¾Ý - VB / »ù´¡Àà

Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
  Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......

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

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

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

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

vbÖÐunicodeÂë,ÈçºÎת»»³ÉÎı¾ - VB / »ù´¡Àà

ÓÃVB±à³Ì¶ÁÈ¡¶ÌÐÅ,µÃµ½Ò»´ó¶Ñunicode±àÂë,Çë½ÌÈçºÎת»»³ÉÎı¾
ÀýÈç:¶ÁÈ¡¶ÌÐźó(»ªÎª900C»òTC35i),´®¿ÚµÃµ½ÈçÏÂÊý¾Ý:
+CMGL: 17,"REC UNREAD","8615007557713",,"10/03/30,09:37:15+32&qu ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ