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·½·¨
Ïà¹ØÎÊ´ð£º
±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......
¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ½â¾ö¡£
Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
Picture1.Left = -HScroll1.Value + bcW ' ......
Private Sub Form_Load()
recs = Adodc1.Recordset.RecordCount 'Çóµ±Ç°¼Ç¼Êý
If recs > 0 Then 'ÒÑÓп¼Éú
Adodc1.Recordset.MoveLast 'ÒÆµ½×îºóÒ»Ìõ¼Ç¼
num = V ......
ÓÃvc±àдµÄdllÔÚdebugģʽºÍreleaseģʽÏÂÆô¶¯vbµÄexe³ÌÐòµ÷ÓÃvcµÄdll¿ÉÒԵõ½ÕýÈ·½á¹û£¬µ«ÊÇÈç¹ûÖ±½ÓË«»÷vbµÄexe³ÌÐòµ÷ÓÃdll±¨´í£¬ÔÚdllÄÚ²¿Ìí¼Ómessageboxºó·¢ÏÖÖ»ÒªÔÚº¯ÊýÄÚ²¿ÉùÃ÷std::stringÀàÐ͵ıäÁ¿¾Í»á³öÏÖÄ ......