vbÈçºÎ½øÐÐλ²Ù×÷ - VB / »ù´¡Àà
±ÈÈçÎÒÒ»¸ölongÀàÐ͵ıäÁ¿x
ÏÖÔÚÎÒÏë°ÑÕâËĸö×Ö½ÚдÈëµ½Õâ¸ö±äÁ¿
&H1
&H2
&H3
&H4
ʹÓÃÖ¸ÕëµÄ°ì·¨¿ÉÒÔ×öµ½£¬ÎÒÏëÖªµÀÓÐûÓв»Ê¹ÓÃÖ¸ÕëµÄ°ì·¨£¿
·Ç³£¸Ðл£¡
http://www.xbeat.net/vbspeed/c_LongToBit.htm
VB code:
Option Explicit
Dim bytSj(3) As Byte
Dim i As Integer
Dim lngSj As Long
Private Sub Command1_Click()
bytSj(0) = &H11
bytSj(1) = &H2
bytSj(2) = &H3
bytSj(3) = &H4
For i = 0 To UBound(bytSj)
lngSj = lngSj + bytSj(i) * 256 ^ (3 - i)
Next
Text1 = lngSj
End Sub
VB code:
Option Explicit
Private Type bb
b1 As Byte
b2 As Byte
b3 As Byte
b4 As Byte
End Type
Private Type lng
lng As Long
End Type
Private Sub Form_Load()
Dim b As bb
Dim l As lng
b.b1 = &H1
b.b2 = &H2
b.b3 = &H3
b.b4 = &H4
LSet l = b
Debug.Print l.lng
End Sub
Ïà¹ØÎÊ´ð£º
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
ÏÖÔÚСµÜÔÚÓÃvb6.0±àд³ÌÐò£¬Óöµ½Òì²½µÄÎÊÌ⣬¾ßÌåÈçÏ£º
µã»÷°´Å¥Aʱ£¬µ÷ÓÃÍⲿµÄdll(C++)£¬´ËdllÊÇͬ²½·µ»ØÊý¾Ý¡£´ËʱÈç¹ûÔ¶³ÌδÏìÓ¦£¬ÎҵijÌÐò½çÃæ¾Í»á¿¨ËÀ¡£Òò´ËÎÒÏëµ½ÓÃtimerÀ´ÊµÏÖÒì²½ £¬µ«ÊDz»Çå³þ¾ßÌåµÄÊµÏ ......
ÓÐÁ½¸öÎÊÌâ
µÚÒ»¸öÎÊÌ⣺
ÍøÒ³Ô´Âë
<td><select name="question" onchange="showcustomquest(this.value)" tabindex="4"><option value="0">ÎÞ°²È«ÎÊ ......
ϵͳÔÚ¶ą̀µçÄÔÉÏÔËÐУ¬¾ÍÔÚÆäÖÐһ̨µçÄÔÉϲúÉú¡±ÄÚ´æÒç³ö¡°¡£
ÿ̨µçÄÔ²Ù×÷ϵͳ ÅäÖö¼Ò»ÑùµÄ¡£¡£ÇëÎÊÊÇʲôÔÒò£¿
(1)ÓÃÁËÉè¼Æ²»ÍêÉÆµÄ¿Ø¼þ£¬¿Ø¼þ±¾ÉíÓÐÎÊÌ⣬»òÕß²»Ç¡µ±µØÊ¹ÓÃÁËapiº¯Êý¡£
(2)ÎÞÏÞµÄ ......