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

vbµ½vb¡£netµÄÎÊÌ⣬¹ØÓÚFileGetObject

vbÖÐÓÐÒ»¶Î´úÂë¶Áȡһ¸öÎļþ£¬È»ºó¶ÁÈ¡µ½Ò»¸öÀàÀïÃæ£¨Ò»¸öÀàµÄʵÀý£©ÓÃFileGetObjectʵÏÖ
ÄÇôÔÚvb.netÖÐÈçºÎʵÏÖ£¿
vb.netÓÐFileÀ࣬StreamReaderÀ࣬ºÜ¼òµ¥¡£¿´¿´Îĵµ¼´¿É»á

ÁíÍâFileGetObjectÈÔÈ»¿ÉÒÔ¼ÌÐøÊ¹ÓÃ
http://msdn.microsoft.com/en-us/library/y1swwyc4.aspx

ʹÓÃStreamReader¿ÉÒÔÖ±½Ó¶Áµ½Ò»¸öÒѶ¨ÒåµÄʵÌåÀàÀïÃæÂ룿


vb µÄÔ´´úÂë

Dim fn As Integer
  fn = FreeFile
  Dim n As Long
 
  n = Len(m)  'mÊÇÒ»¸öʵÌåÀàµÄʵÀý
  Open sFileName For Binary As #fn
  Get #fn, , m
  Close #fn

ÈçºÎת»»µ½vb.net?

up

Õâ¸ö¾ÍÊÇ´«ËµÖеÄÔËÐÐʱ״̬±£´æ£¿vb.netËÆºõûÓн²¹ýÕâÒ»¿Î°¡¡£¾ÍËãÄãÄܰÑfn¶Á»ØÀ´£¬±àÒëÆ÷¹À¼ÆÒ²²»ÔÊÐíÄãCType(fn,Class1)°É£¬ºÇºÇ

×Ô¼º½â¾ö£¬Ê¹ÓÃFileGet·½·¨


Ïà¹ØÎÊ´ð£º

VBÖÐÔõôÑùÔÚ±í¸ñÖÐÐÞ¸Ä×ÖÌ壿 - VB / »ù´¡Àà

±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......

VB iniÎļþдÈë ¶ÁÈ¡ - VB / »ù´¡Àà

¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......

VB µÄ PictureBOX ¿Ø¼þ»æÍ¼ÎÊÌâ - VB / ¿Ø¼þ

³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ­½â¾ö¡£
  Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
  Picture1.Left = -HScroll1.Value + bcW ' ......

Çóvb´óϺ¿´Ò»Ï°¡£¡£¡£¡

Private Sub Form_Load()
  recs = Adodc1.Recordset.RecordCount 'Çóµ±Ç°¼Ç¼Êý
  If recs > 0 Then 'ÒÑÓп¼Éú
  Adodc1.Recordset.MoveLast 'ÒÆµ½×îºóÒ»Ìõ¼Ç¼
  num = V ......

VB µ÷Óà vc ±àдµÄdll - C/C++ / C++ ÓïÑÔ

ÓÃvc±àдµÄdllÔÚdebugģʽºÍreleaseģʽÏÂÆô¶¯vbµÄexe³ÌÐòµ÷ÓÃvcµÄdll¿ÉÒԵõ½ÕýÈ·½á¹û£¬µ«ÊÇÈç¹ûÖ±½ÓË«»÷vbµÄexe³ÌÐòµ÷ÓÃdll±¨´í£¬ÔÚdllÄÚ²¿Ìí¼Ómessageboxºó·¢ÏÖÖ»ÒªÔÚº¯ÊýÄÚ²¿ÉùÃ÷std::stringÀàÐ͵ıäÁ¿¾Í»á³öÏÖÄ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ