㈠ VB如何把連續的圖片變成視頻,要VB源代碼
先把圖片命名好,比如 01.02.03.04……
然後載入圖片的文件路徑,也就是說你可以用filelist控制項,顯示文件夾裡面的所有圖片,然後用timer控制項載入圖片,注意:一般每秒10張就基本上可以連起來了!
㈡ VB 看圖 希望給原代碼 最好是原文件 謝謝
首先,先按照題目的要求擺放好控制項,如圖:
代碼
好了,至此,代碼已經編寫完了,按下」F5「測試下吧!
因為代碼量比較少,所以就不上傳源碼了,照著敲吧!要是真想要的話就私信我或者在評論下留下你的郵箱,我好發你。
㈢ 如何用vb得到網頁的源代碼
1 先載入網頁:
Private Sub Form_Load()
WebBrowser1.Navigate "http://..com/question/123877723.html"
End Sub
2 載入完成後取字元串到文本框:
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim doc As Object, objhtml As Object
Dim strhtml As String
On Error GoTo errorsub
Me.Caption = WebBrowser1.LocationName & " 載入完成"
If MaxWebNum <= 0 Then
Set doc = WebBrowser1.Document
Set objhtml = doc.body.createtextrange()
If Not IsNull(objhtml) Then
strhtml = WebBrowser1.Document.body.innertext
Text1.Text = strhtml
End If
End If
Exit Sub
errorsub:
Text1.Text = "錯誤!!!"
End Sub
㈣ VB求源碼做成像下列圖片一樣的程序
Private Sub Text1_Change()
s = List1.List(Val(Text1.Text) - 1)
For i = 0 To List1.ListCount - 1
If List1.ListCount = 1 Then Exit For
If List1.List(i) <> s Then
List1.RemoveItem (i)
i = i - 1
End If
Next
s = List2.List(Val(s) - 1)
For i = 0 To List2.ListCount - 1
If List2.ListCount = 1 Then Exit For
If List2.List(i) = s Then
MsgBox i
Else
List2.RemoveItem (i)
i = i - 1
End If
Next
End Sub
㈤ VB畫圖板的源代碼
我在VB中製做了一個畫圖板,想做一個撤消的按鈕,但是不知道怎麼做,求助高手
定義個數組,存儲操作,數組的大小就是可以撤消的次數。每進行一次畫圖
㈥ 一個VB程序全部源代碼在哪看
不知道你說的這個VB程序是編譯後的可執行文件還是源程序,如果是源程序,那麼你用VB打開其工程文件就能看到了。如果是可執行文件,那對不起,你要看到代碼那就很難了,要是隨隨便便就能看到軟體的代碼,那麼所有程序員的飯碗就都是紙糊的了
㈦ VB編寫的程序源代碼
這一段有趣的VB代碼:
打開VB6.0
在工程里
加三個按鍵:
Command1
(你可以另命名大)
Command2
Command3
在--視圖--代碼窗口裡---加下面代碼
---運行
Command1
關機
Command2
注銷
Command3
取消
代碼:
Private
Sub
Command1_Click()
shell"shutdow
-s"
End
Sub
Private
Sub
Command1_Click()
shell"shutdow
-l"
End
Sub
Private
Sub
Command1_Click()
shell"shutdow
-a"
End
Sub
㈧ 簡單益智游戲的VB源代碼及圖解,急求!!!!
VB九宮數字拼圖游戲
只提供思路
1、用隨機函數生成9個數字分別保存在數組變數中;
2、如果用picturebox作為圖片的容器,要定義picturebox滑鼠事件,當滑鼠在picturebox上按下的時候保存picturebox當前的坐標值,滑鼠移動到新位置並彈起時再次保存當前的滑鼠值;
3、定義區域,將區域分為9塊,步驟一中的坐標值在9個區域之一時,編寫函數判斷原坐標值在區域與新坐標值所在區域是否可以移動到,如果可以就將新區域的坐標值賦予picturebox