用Mathematica导出透明背景的gif动画

2016-12-31

undefined

Table[Export[NotebookDirectory[] <> ToString[t] <> ".png", 
RemoveBackground[
Plot[Sin[x + t], {x, 0, 2 Pi}, Background -> None(*RGBColor[0,153,
255,1.0]*)]
]
]
, {t, 0, 5, 0.1}]
g = {}; Table[AppendTo[g, Import[NotebookDirectory[] <> ToString[t] <> ".png"]], {t, 0, 5, 0.1}]; Export[NotebookDirectory[] <> "sin.gif", g, "TransparentColor" -> White]


这个就是根据无影东瓜生成的无背景的图形 自己下载可以看下 谢谢大神

http://tieba.baidu.com/p/4981705057?pid=104102691302&cid=0#104102691302&qq-pf-to=pcqq.group

贴吧没权限 没办法只能发这里了

获得拖放的文件路径

2016-12-31

VB.NET实现拖放文件到textbox获取文件路径的方式比用文件对话框更方便和炫酷一些。下面是实现的代码。

当然首先要开启拖放允许:

 TextBox1.AllowDrop = True

然后是响应DragEnter事件,其代码如下所示:

Private Sub TextBoxDragEnter(sender As Object, e As DragEventArgs) Handles TextBox1.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            Dim files As String()
            Try
                files = CType(e.Data.GetData(DataFormats.FileDrop), String())
                Me.TextBox1.Text = files(files.Length - 1)
            Catch ex As Exception
                MessageBox.Show(ex.Message)
                Return
            End Try
        End If
 End Sub

OK,可以试一下了^_^

Home