VBÊÓÆµ¼ô¼£¿£¿½øÀ´ÇÆÇÆ·· - VB / »ù´¡Àà
ÓÐÒ»¸öWMV¸ñʽµÄÊÓÆµ£¬ÏëÓÃVB×ö¼ô¼£¬ÊÓÆµ×ܹ²³¤1·ÖÖÓ£¬ÎÒÖ»Òª0Ãëµ½20µÄÕâÒ»¶ÎÊÓÆµ զŪ°¡£¿ ÓÐʲôºÃµÄ½¨ÒéÂ𣿡·
ûÈ˶¥ ×Ô¼º¶¥ ÓÃMCI»òÓÃÊÓÆµ´¦ÀíÈí¼þÒýÓà VB code Option Explicit Private Sub Command1_Click() Dim a() As Byte Dim l As Long l = Int(FileLen("C:\12.WMV") / 3) Open "C:\12.WMV" For Binary As #1 a = InputB(l, 1) Close #1 Open "C:\13.¡¡ ÊÓÆµÒ²¿ÉÒÔÕâô¸ã £¿£¿£¿£¿ ÒýÓà VB code Option Explicit Private Sub Command1_Click() Dim a() As Byte Dim l As Long l = Int(FileLen("C:\12.WMV") / 3) Open "C:\12.WMV" For Binary As #1 a = InputB(l, 1) Close #1 Open "C:\13.¡¡ »¹ÕæÄÜÕâôŪ ÎҸղŰÑÄÃÁËÒ»¸ö30ÃëµÄʵÑéÁËһϷ··¼ô¼ÍêÁ˾ÍÊ£ÏÂ8ÃëµÄÄÚÈÝÁË µ«ÊÇ´Ó±©·çÓ°Òô¿´µÄ»°ÈÏΪ»¹ÊÇ30Ãë··µ«Êǵ½Á˵Ú8Ãë¾ÍÍ£ÁË ÎļþÓÉÔÀ´µÄ443K±ä³ÉÁË148K ÎÒÒªÊÇÏë½ØÈ¡µÚ10Ãëµ½µÚ20ÃëµÄզŪ°¡£¿ http://engineer-j.appspot.com ¶«Î÷ÒѾŪºÃÁË ÎÒÉÏ´«µ½ÁËÕâÀ ÊÇÎÒµÄСÖ÷Ò³ ɶ¶¼Ã»Óоͼ¸¸ö³ÌÐòºÍÓÎÏ·
Ïà¹ØÎÊ´ð£º
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË ´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ ´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£ »Ø¸´ ......
DIM ds as new DataSet ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿ ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ. datasetÊÇADO.NET¶ÔÏó Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click MouseWait() Dim ClearTempTabelSQL As String 'If Not ......
Private Sub Command1_Click() Dim MyString() As String Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£ ReDim MyString(LOF(1) - 1) Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´ ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......