VB¶ÁÈ¡Îļþ£¨MΪµ¥Î»£©
ÎÒÓÃVB×Ô´øµÄTextBox¿Ø¼þ£¬
Option Explicit
Private Type De '¿é¶¨Òå
FSize(1 To 1024) As Byte
End Type
Private Sub Command1_Click()
Dim F As De
Dim N As Integer
Open "C:\WINDOWS\NOTEPAD.EXE" For Binary As #1
Get #1, , F
Close #1
For N = 1 To 1024 Step 1
Text1.Text = Text1.Text & Hex(F.FSize(N))
Next N
End Sub
»ñÈ¡µ½µÄNOTEPAD.EXEµÄÊ®Áù½øÖÆÊý¾Ý²»È«£¬ÕâÊÇΪʲô£¿
ÊÇTextBox¿Ø¼þµÄ´óСÏÞÖÆÂ𣬻¹ÊÇÎҵĴúÂëÓÐÎÊÌ⣿
´ó¼Ò°ïæ·ÖÎöһϺÃÂð£¿Ð»Ð»£¡
ÊÇTextBox´óСÓÐÏÞÖÆ£¬»»RichtextboxÊÔÊÔ
ºÜÔã¸âµÄÏë·¨¡£¡£¡£
×Ö·û´®Á¬½ÓºÍ¶Áд¿Ø¼þÊôÐÔ¶¼ÊǷdz£ÂýµÄ²Ù×÷¡£
FSize(1 To 1024)--Byte Êý×é±¾ÉíµÄ³¤¶ÈÒ²ÓÐÏÞ¡£
µ±È»²»È«ÁË£¬ÄãÖ»¶ÁÁË1024b
´ó¼ÒÓкÃÒ»µãµÄ˼·Âð£¿
ÄóöÀ´·ÖÏíһϣ¬ÎÒÔÚÍøÉϲéÁ˺þã¬Ã»ÕÒµ½Ê²Ã´ÓмÛÖµµÄ¶«Î÷£¬
´ó¼ÒÄܸøÎÒÒ»¸öʵÀýÂð£¿
Ïà¹ØÎÊ´ð£º
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
µÚÒ»´Î½Ó´¥CrystalReport
¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó.
ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл!
¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......
¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡
¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿
2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£
........................¿ÉÒÔÂð
¿ÉÒÔ!
¾À½á£¬
29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
A. ......
ÓÐûÓÐFOR VB Ë®¾§±¨±íµÄÊé»òÊǵç×ÓÎĵµ°¡£¿ÓÐÐÅÏ¢µÄÅóÓѸæËßÏ ллÁË
ÎÒҲûÕÒµ½
Èç¹ûÄãÓÐ FOR ÆäËü µÄÎĵµ£¬Ò²¿ÉÒԲο¼°É£¡
¡®µÀÀí¡¯ÊÇÒ»Öµģ¬Ö»ÊÇ¡°±í´ï·½Ê½¡±²»Í¬¶øÒÑ¡£
mark
pls learn from ba ......
Ö»»áVB£¬µ±¹ý1ÄêµÄVB³ÌÐòÔ±
ÏÖÔÚÏëÓëʱ¾ã½ø£¬Ñ§ÄÄÃÅÓïÑÔºÃÄØ
vb.net ,C# ,Java, »¹ÊÇVC++?
ÄÄÃÅÄܹ»¿ìËÙµÄÉÏÊÖ£¬²¢×ªÐÍ£¿
C#£¬winform»òwebform¶¼¿ÉÒÔ
vb.net
VC++
ÒýÓÃ
VC++
Âé·³ÄÜ˵¸öÀíÓÉô¡£¡£¡ ......