易截截图软件、单文件、免安装、纯绿色、仅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 / 基础类

VB怎样获得鼠标处的超级连接呢？
  在WebBrowser控件中有这样一个事件:StatusTextChange(index As Integer, ByVal Text As String)
  它的Text参数正是鼠标处的超级连接,但问题是如果我的浏览器正� ......

vb 中 - VB / 基础类

现在我想根据treeview上每个节点的权限，没有权限的节点不能被选中，而且成灰色，怎么实现，在线等。。。
这个？。。。
貌似没法。
试试能不能改某些node的颜色，记录下上次的nodeclick里的node。
下次点击的如� ......

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读取xml - VB / 基础类

现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xm ......

vb 中 - VB / 基础类

dim a as string,b as string，c as string
a="工程编号,单位工程名称,分部工程编号"
b="单位工程名称"
c="单位"
怎么才能判断出a字符串中存在b字符串，而不存在c字符串

看看i ......
© 2009 ej38.com All Rights Reserved. 关于E健网 | 联系我们 | 站点地图 | 赣ICP备09004571号