asciiÂëÔÚvbÀïµÄ´æ´¢ÀàÐÍ
asciiÂëÔÚvbÀïµÄ´æ´¢ÀàÐÍÊÇÄĸö??
VB code:
Private Sub Form_Load()
MsgBox TypeName(Asc("a"))
End Sub
ByteÀàÐÍ
×îºóÎÒ½ÌÄãÒ»¸öAsciiºÍUniCodeµÄÈ˹¤×ª»»°ì·¨¡£
ÒÔ4¸ö¿Õ¸ñΪÀý£º
Ascii±àÂ룺
20 20 20 20
UniCode±àÂ룺
20 00 20 00 20 00 20 00
²úÉú×Ö·û´®¡°1234¡±µÄ³ÌÐò£º
Ascii±àÂ룺
Dim Bytes() As Bytes
For x =0 To 3
i = x
Bytes(i) = 49 + x
Next
Õâ¸öʱºò£¬Bytes()ÊÇAscii±àÂëµÄ×Ö·û´®¡°1234¡±¡£µ«ÄãÏëת»»³ÉVBϵÄString£¬ÐèÒªÕâÑù¡£
String1 = Bytes()
Debug.print String1 'ÏÔʾÂÒÂ룬ÒòΪString1ÊÇAscii±àÂ룬¶ø²»ÊÇUniCode±àÂë¡£
String2 = StrConv(Bytes(), vbUniCode)
Debug.print String2 'ÏÔʾ"1234"
UniCode±àÂ룺
Dim Bytes() As Bytes
For x =0 To 3
i = x * 2
Bytes(i) = 49 + x
Next
String1 = Bytes()
Debug.print String1 'ÏÔʾ"1234"
ѧϰ
СÏÉÃÃ
Ïà¹ØÎÊ´ð£º
login.aspx.vb:
Public ReadOnly Property nameT() As String
Get
Return TextBox1.Text
&nb ......
ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
´ó¼ÒºÃ£¬Îʸövb´òÓ¡ÎÊÌâ
printer.print "dsff"
.....
....
Printer.EndDoc
´òÓ¡³É¹¦ºóÎÒ½«Ö´ÐÐ
sqlstr = "update vc_yh set pr=' ÒÑ´òÓ¡ ', ......
TF1.text = " <_2_ZCHGZBH> " & MSFlexGrid1.TextMatrix(k, 1) & " </_2_ZCHGZBH> "
´ó¼ÒºÃ£¬ÎÒÓÃÉÏÃæÒ»¸ö¶«Î÷¸³Öµ TF1.text = & ......
ÌâÄ¿ÃèÊöÓ¦¸Ã²»ÊǺÜ׼ȷ¡£
ÏÖ×´ÊÇ£º¼ÙÈçÒ»¸öÎı¾Îļþ¹²100ÐУ¬ÄÇôÎÒÑ»·´ÎÊý×î´ó¾ÍÊÇ100×100=10000Ï£¬»¨·Ñʱ¼ä·Ç³£¶à£¬ÇëÎÊÓÐûÓа취Äܹ»Ìá¸ß¶ÔÎı¾ÎļþµÄÑ»··ÃÎÊËÙ¶È¡£·ÇÊý¾Ý¿â¼¼Êõ¡£
ÄãҪѻ·×öʲô£ ......