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

vbÖÐ×Ö·û´®Ïà¼ÓµÄ¼ÆËãÎÊÌâ

MsgBox Asc("bcd"+"BCD")
ÖÐ"bcd"+"BCD"ÊÇÔõô¼ÆËãµÄ°¡
ΪʲôÊÇ 98
MsgBox Asc("b")
MsgBox Asc("B")

aµÄASCIIÂëµÈÓÚ97
bµÄASCIIÂëµÈÓÚ98

AµÄASCIIÂëµÈÓÚ65
BµÄASCIIÂëµÈÓÚ66

Private Sub Command1_Click()
    m$ = "BCD"
    n$ = "bcd"
    k$ = LCase$(m$)
    j$ = UCase$(n$)
    MsgBox Asc(k$ + j$)
End Sub
Ô­³ÌÐòÊÇÕâÑùµÄ

ΪʲôÊÇ 98°¡ »¹ÓÐcd CD ÄØ

ÒýÓÃ
ASC²ÎÊý˵Ã÷
String
±ØÐè¡£ÈκÎÓÐЧµÄ Char »ò String ±í´ïʽ¡£Èç¹û String ÊÇÒ»¸ö String ±í´ïʽ£¬ÔòÖ»½«×Ö·û´®µÄµÚÒ»¸ö×Ö·ûÓÃÓÚÊäÈë¡£Èç¹û String ÊÇ Nothing »ò²»°üº¬ÈκÎ×Ö·û£¬½«»á³öÏÖ ArgumentException ´íÎó¡£



ÈçÂ¥ÉÏ£ºAsc("bcd"+"BCD")=asc("b")

MsgBox Asc("bcd"+"BCD")
ÖÐ"bcd"+"BCD"ÊÇÔõô¼ÆËãµÄ°¡
ΪʲôÊÇ 98

¡ß "bcd" + "BCD" = "bcd" & "BCD" = "bcdBCD"

¡à Asc("bcd"+"BCD") = Asc("bcdBCD")

¡ß Asc("bcdBCD") = Asc("b")

¡à Asc("bcd"+"BCD") = 98


ÒýÓÃ
MsgBox Asc("bcd"+&


Ïà¹ØÎÊ´ð£º

ΪʲôCдDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷ÓÃ

ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿

1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......

vb´òÓ¡ÎÊÌâ


Printer.ScaleMode = 6
6±íʾºÁÃ×
Printer.PaperSize = vbPRPSA4

'³õÊ¼×ø±ê
x = 1
y = 4


'×î´óµÄÏß¿ð
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌø×ªµ½´íÎóÐÐ

²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.

ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......

VB ÍøÒ³×Ô¶¯µÇ½

Option Explicit

Private Sub Command1_Click()
    WebBrowser1.Navigate "http://mc.qeedoo.com/servers.php"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal ......

vbµÄ³É¹¦Ö®Â· - À©³ä»°Ìâ / ¹²ÏíÈí¼þ£¨×ßÏòº£Í⣩

ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡




û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡

À´½Óµã·Ö

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