VB 6.0 ±éÀú×Ö·û´® - VB / »ù´¡Àà
ÎÒÏÖÔÚÓÐÒ»¸ö×Ö·û´®Îª 101010 µÄ×Ö·û´®£¬ÏÖÔÚÎÒÒªÇó°ÑËû±éÀú³öÀ´£¡£¡½á¹ûΪ
1
0
1
0
1
0
ÏÖÔÚÎÒµÄ˼·Êǽ«Õâ¸ö×Ö·û´®×ª»»³ÉÊý×飬ȻºóÔÚ½«ËüÓÃÑ»·µü´ú³öÀ´£¡£¡
ÎÒÏÖÔÚµÄÎÊÌâÊDz»ÖªµÀÔõôÑùÄܽ«Ëüת»¯³ÉÊý×飡£¡ÎÒ¿´Á˺ܶàÏà¹Øº¯Êý¿ÉÊǶ¼Ã»Óнâ¾ö
Íü¸÷λ¸ßÊÖÏàÖú
µ±È»ÎÒÕâ¸ö˼·»òÐí²»ÊÇΨһµÄ£¡Èç¹û¸÷λ¸ßÊÖÓбðµÄ°ì·¨¿ÉÒÔ°ïÎÒʵÏÖÒ²·Ç³£µÄ¸Ðл£¡£¡
ÎÒÏÖÔںܼ±µÄÓÃÕâ¸öÁË£¡£¡
лл£¡£¡£¡£¡
VB code:
dim j() as integer
dim i as integer
dim h as string
i=1
h=101010
for i=1 to len(h)
j=MID(h,i,1)
next i
VB code:
Private Sub Command1_Click()
Dim a As String£¬i as integer
a = "101010"
For i = 1 To Len(a)
Print Mid(a, i, 1)
Next
End Sub
VB code:
Private Sub Command1_Click()
Dim str As String
str = "101010"
Dim b() As Byte
b = StrConv(str, vbfromUnicode)
Dim i As Long
For i = 0 To UBound(b)
Debug.Print b(i), Chr(b(i))
Next
End Sub
Ïà¹ØÎÊ´ð£º
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
A 3
A 4
B 6
... ......
vb WebBrowser СÎÊÌ⣬Çë½Ì£º
WebBrowserÀïµÄÍøÖ·Ìø×ªºó£¬ÔõôȡµÃÌø×ªºóµÄÒ³ÃæµÄURLµØÖ·
¶¥Ï¶¥ÏÂ
ÒýÓÃ
BeforeNavigate2
ºÃÏñûÓÐÕâ¸ö°É vb6.0
BeforeNavigate2
Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£
......
ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£
±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£
ÄܰѴúÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com ......