Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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³¬¼òµ¥form.showµÄÎÊÌâ - VB / ·Ç¼¼ÊõÀà

ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É

ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿

ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......

vb ÖÐ - VB / »ù´¡Àà

ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......

vb - VB / »ù´¡Àà

vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......

vb - VB / ·Ç¼¼ÊõÀà

Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o=& ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ