VBÏÔʾÀ©Õ¹µÄASCÂë128-255×Ö·û
ÇëÎÊÈçºÎ½«À©Õ¹µÄASCÂ루128-255£©ÔÚVBÖÐÏÔʾ£¬ÒªÇóForm,text,label,±í¸ñ¿Ø¼þÖж¼ÄÜÏÔʾ£¬ÎÒĿǰµÄ×´¿öÊÇÏÔʾ³É¡°?¡±·ûºÅÁË¡£
ÕâЩ¶«Î÷ÏÔʾ³öÀ´ÊÇɶ°¡,ºÃÏñÄãÒªÏÈÈ·¶¨Ò»ÖÖÓÐÏàÓ¦×ÖÄ£µÄ×ÖÌå
·Microsoft Windows ²¢²»Ö§³ÖÕâЩ×Ö·û¡£
×Ö·û¼¯ (128 – 255)
128 · 160 [space] 192 à 224 à
129 · 161 ?/FONT> 193 á 225 á
130 · 162 ¡é 194 ?/FONT> 226 a
131 · 163 ¡ê 195 ?/FONT> 227 ?/FONT>
132 · 164 ¤ 196 ?/FONT> 228 ?/FONT>
133 · 165 £¤ 197 ?/FONT> 229 ?/FONT>
134 · 166 | 198 ?/FONT> 230 ?/FONT>
135 · 167 § 199 ?/FONT> 231 ?/FONT>
136 · 168 ¨ 200 è 232 è
137 · 169 © 201 é 233 é
138 · 170 a 202 ê 234 ê
139 · 171 ?/FONT> 203 ?/FONT> 235 ?/FONT>
140 · 172 ?/FONT> 204 ì 236 ì
141 · 173 - 205 í 237 í
142 · 174 ® 206 ?/FONT> 238 ?/FONT>
143 · 175 ˉ 207 ?/FONT> 239 ?/FONT>
144 · 176 ° 208 D 240 e
145 ¡® 177 ± 209 ?/FONT> 241 ?/FONT>
146 ¡¯ 178 2 210 ò 242 ò
147 · 179 3 211 ó 243 ó
148 · 180 ¡ä 212 ?/FONT> 244 ?/FONT>
149 · 181 μ 213 ?/FONT> 245 ?/FONT>
150 · 182 ?/FONT> 214 ?
Ïà¹ØÎÊ´ð£º
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ½â¾ö¡£
Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
Picture1.Left = -HScroll1.Value + bcW ' ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®
¿´¿´i ......