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 û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£
±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£
ÄܰѴúÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com ......