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

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
¶«Î÷ÒѾ­ÅªºÃÁË

ÎÒÉÏ´«µ½ÁËÕâÀ

ÊÇÎÒµÄСÖ÷Ò³

ɶ¶¼Ã»Óоͼ¸¸ö³ÌÐòºÍÓÎÏ·



Ïà¹ØÎÊ´ð£º

ΪʲôÓÃVB¸Ä±ä²»Á˹¤¾ßÀ¸°´Å¤µÄ¿í¶È - VB / ¿Ø¼þ

Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔ­À´µÄÊýÖµÁË

´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£

»Ø¸´ ......

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

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

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

vb crystalreport - .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 ......

vb¶ÁÈ¡ÓÃwordת»»³ÉµÄxmlÀïµÄÊý¾Ý - VB / »ù´¡Àà

Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
  Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......

vb - VB / »ù´¡Àà

Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ

ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ