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

vb¶ÁÈ¡Îı¾¿ò×Ö·û - VB / »ù´¡Àà

ÎÒÖ»ÖªµÀ×Ö·û´®³¤¶È£¨Ó¢ÎÄΪ£±£¬ÖÐÎÄΪ£²£©ºÍλÖã¨ÔÚÁíÒ»¸ö×Ö·û´®×ó±ß£©¡£ÔõÑùÈ¡ËüÃÇ׼ȷȡ³öÀ´£¿
mid(text1,λÖÃ,³¤¶È)

Èç¹ûÊÇ×Ö·û´®µÄ×î×ó±ß,¿ÉÒÔÓà left(×Ö·û´®,³¤¶È),·ñÔòÓÃ1Â¥µÄ

ÕâÁ½¸ö³¤¶ÈÊDz»ÏàµÈµÄ

mid(×Ö·û´®,λÖÃ,³¤¶È)

ÒýÓÃ
ÕâÁ½¸ö³¤¶ÈÊDz»ÏàµÈµÄ


Ôõô»¹Á©¸ö£¿Ã»ÓÐÃ÷°×

±ÈÈç×Ö·ûÊÇabcd1234ÎÒÃÇÄãÃÇ
ÎÒÖªµÀ³¤¶ÈÊÇ10£¬¶ÔÓ¦abcd1234ÎÒ£¬¶ø²»ÊÇabcd1234ÎÒÃÇ¡£

VB code:
if Ó¢ÎÄ then
mid(text1, λÖÃ, ³¤¶È)
elseif ÖÐÎÄ then
mid(text1, λÖÃ, ³¤¶È * 2)
end if


ÒýÓÃ
±ÈÈç×Ö·ûÊÇabcd1234ÎÒÃÇÄãÃÇ
ÎÒÖªµÀ³¤¶ÈÊÇ10£¬¶ÔÓ¦abcd1234ÎÒ£¬¶ø²»ÊÇabcd1234ÎÒÃÇ¡£


vb ºÍÄãµÄ¹æÔòÒ»Ñù£¬Äã¿ÉÒÔ²âÊÔ

Instr
Mid

ÒýÓÃ
ÒýÓà 6 Â¥ hyjavahy µÄ»Ø¸´:
±ÈÈç×Ö·ûÊÇabcd1234ÎÒÃÇÄãÃÇ
ÎÒÖªµÀ³¤¶ÈÊÇ10£¬¶ÔÓ¦abcd1234ÎÒ£¬¶ø²»ÊÇabcd1234ÎÒÃÇ¡£


vb ºÍÄãµÄ¹æÔòÒ»Ñù£¬Äã¿ÉÒÔ²âÊÔ


´íÁË

ÕâÑù×ö
VB code:
Private Sub Command1_Click()
Text1.Text = "abcd1234ÎÒÃÇÄãÃÇ"
MsgBox StrConv(MidB(StrConv(Text1.Text, vbfromUnicode), 1, 10), vbUnicode)

End Sub


ÒýÓÃ


Ïà¹ØÎÊ´ð£º

¹ØÓÚVB DIM ds as new DataSetÎÊÌâ - VB / »ù´¡Àà

DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.

datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......

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 - VB / »ù´¡Àà

Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ

ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......

vb - VB / »ù´¡Àà

xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£

hÊÇxml¸ñʽµÄ×Ö·û´®

ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿

ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......

VBÈçºÎ»ñµÃ±ðµÄ³ÌÐòÉϵıí¸ñÄÚÈÝ£¿ - VB / API

ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£
±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£

ÄܰѴúÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ