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

[Çë½Ì]vbÖÐÊÇ·ñÓиºÊýµÄÊ®Áù½øÖÆ»¥×ªº¯Êý£¿

Çë½Ì¸ßÊÖ£º

HEX$(-600)µÃµ½µÄ½á¹ûÊÇFDA8
µ«ÊÇClng(FDA8)¾ÍÎÞ·¨µÃµ½-600ÁË

ÇëÎÊÕýÈ·µÄ½«¸ºÊýµÄÊ®Áù½øÖÆ×Ö·û´®×ª»»³ÉÊ®½øÖƵķ½·¨£¿£¿

лл~~
ÓÃcint·´×ª
clngµÃµ½ÕýÊýÊÇÒòΪlongÀàÐͱäÁ¿ÊÇËÄ×Ö½Ú³¤£¬Æä>0µÄÖµ·¶Î§Ô¶´óÓÚfda8£»intÐÍÊÇË«×Ö½Ú£¬ÕýºÃ·ûºÏlz˵µÄÊý×Ö·¶Î§¡£

Çë½ÌÔõô´¦Àí£¿
ÎÒÏÖÔÚÖ»ÖªµÀÊ®Áù½øÖƵÄ×Ö·û´®£¬ÈçºÎ·´×ª³É-600?

thanks~~

VB code:
clng(val("&H" & hex(-600)))


VB code:
Dim sj As String
sj = Hex(-600)
Text1 = sj
Text2 = Val("&H" & sj)



³¤ÕûÊý:
VB code:
Private Sub Command1_Click()
Dim sj As String
sj = Hex(-600)
Text1 = sj
Text2 = Val("&H" & sj & "&")
End Sub



VB code:
hex(clng(-600))


vb °Ñ -32768 µ½ +32767 ĬÈÏΪInteger ,6Â¥ д·¨±ê×¼


clng ¿ÉÒÔÖ±½Ó½ÓÊÜ×Ö·û±í´ïʽ

clng£¨"&H" & "FDA8"£©

dim a as Integer,b as long 


Ïà¹ØÎÊ´ð£º

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½Ó - VB / »ù´¡Àà

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
  ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
  ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......

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

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

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

vb - VB / »ù´¡Àà

ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......

vb and tc - VB / »ù´¡Àà

ÇëÎÊÒ»ÏÂvbºÍtcµÄÆ­ÒëÓïÎÊÓÐʲô¾ßÌåµÄÇø±ð¡£
                                      & ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ