Private Const WS_CHILD = H40000000
創(chuàng)新互聯(lián)公司專業(yè)為企業(yè)提供比如網(wǎng)站建設(shè)、比如做網(wǎng)站、比如網(wǎng)站設(shè)計、比如網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計與制作、比如企業(yè)網(wǎng)站模板建站服務(wù)，十載比如做網(wǎng)站經(jīng)驗(yàn)，不只是建網(wǎng)站，更提供有價值的思路和整體網(wǎng)絡(luò)服務(wù)。
Private Const WS_VISIBLE = H10000000
Private Const WM_CAP_START = H400
Private Const WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10
Private Const WM_CAP_SET_SCALE = WM_CAP_START + 53
Private Const WM_CAP_SET_PREVIEWRATE = WM_CAP_START + 52
Private Const WM_CAP_SET_PREVIEW = WM_CAP_START + 50
Private Declare Function capCreateCaptureWindowA Lib "avicap32.dll" ( _
ByVal lpszWindowName As String, _
ByVal dwStyle As Long, _
ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Integer, _
ByVal hWndParent As Long, ByVal nID As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
Private Sub Form_Load()
'建立采集窗口（不顯示窗口，處理后顯示到PIC控件）
uwndc = capCreateCaptureWindowA("", WS_VISIBLE Or WS_CHILD, 0, 0, 320, 240, Me.hWnd, 0)
'連接
SendMessage uwndc, WM_CAP_DRIVER_CONNECT, 0, 0
'Scale開
SendMessage uwndc, WM_CAP_SET_SCALE, True, 0
'顯示刷新MS
SendMessage uwndc, WM_CAP_SET_PREVIEWRATE, 40, 0
'用予覽方式顯示(特殊需要，不顯示予纜）
SendMessage uwndc, WM_CAP_SET_PREVIEW, True, 0
End Sub
上述代碼就可以實(shí)現(xiàn) 但是要注意相應(yīng)的控件是否存在 不存在的 你自己畫出來
Visualbasic代碼編輯器沒有這個功能，但可以用第三方的編輯軟件Emedit來實(shí)現(xiàn)這個功能。
1、用Emedit打開*.frm文件。
2、點(diǎn)工具，當(dāng)前配置屬性，然后勾選顯示行號即可。
根據(jù)個人的經(jīng)歷談?wù)剛€人感想
我一開始學(xué)的是VB，但學(xué)會后，也就是樓主你的樣子，后來學(xué)C，覺得C太垃圾了，這可能和VB的簡單形成對比，C語言學(xué)會后就再也沒用，后來直接由VB升級到VB.NET，的確，如同樓主所說，.NET是比較簡單，但是有個后遺癥，是現(xiàn)在我都煩的，就是編譯的軟件必須要在有.NET的電腦上運(yùn)行，XP是不帶.NET的，而且，版本還的相對，如果用.NET4.0編的，在4.0以下版本電腦上運(yùn)行很可能就出錯，并且，如果你要打包的話也可以，就是把軟件打包成安裝包，然后附帶.NET環(huán)境，但缺點(diǎn)就出來了，.NET3.5完整安裝包235M，因?yàn)樗艘韵滤邪姹?，還好.NET4.0只有50M左右，因?yàn)樗话ㄒ韵掳姹?，但總之?NET就是簡單了編程，但復(fù)雜了使用，軟件得打包，不像VB，編好后直接打開EXE就可以了。所以就麻煩了，舉些例子，以前用VBA編OFFICE的宏，打開OFFICE就可以編，編好后就存為XLSM就可以了，現(xiàn)在用.NET就成了VSTO了，編好后，不和文檔在一起，是分開的DLL，如果要運(yùn)行，條件為，1，.NET環(huán)境，2，OFFICE,3，VSTO相比以前只需要OFFICE復(fù)雜了N倍，而且編輯時也需要VS（動不動就幾G）才行，相比以前只要有OFFICE就可以區(qū)別也很大，同樣，CAD的嵌入開發(fā)也是一樣的。
所以總體來說，越底層的語言越底層的API越好用，越通用，越高級的越不通用，所以現(xiàn)在我開發(fā)軟件我都煩了，要是一個小軟件幾百K~M，再附帶個.NET就好幾百兆，用的時候還得安裝才能用，又不是什么大軟件有必要這么做么，還有.NET不是萬能的，有些地方也得用API，而且.NET其實(shí)也挺復(fù)雜，難的地方不比API簡單，其實(shí)就感覺是封裝好了的API而已。
至于數(shù)據(jù)庫，的確.NET連接比較簡單
至于學(xué)C？那就不用了，因?yàn)?NET的支持 C#,C++,VB,J#，只要會其中一種就可以了（而且你只要會其中一門，是能看懂另一門的，比如我雖然編輯C#可能要出錯，但C#代碼我是幾乎全部能看懂的，網(wǎng)上查資料也能看懂其他語言的），大部分是學(xué)C的升級用C#.NET,VB的升級成VB.NET，你沒必要把它當(dāng)成另一中語言來學(xué)，語法是基本一樣的。只是從一開是學(xué)C的比較多，就成了C#的比較多而已了，至于語言，我不想做語言攻擊，其實(shí)都是有用的，就是看自己習(xí)慣不，比如我就不習(xí)慣C。
我也不想說VB好還是VB.NET好，其實(shí)是看你用途，我只是至今沒發(fā)現(xiàn)什么網(wǎng)上的軟件是.NET編輯的，一些軟件比如CAD，OFFICE安裝時安裝了.NET，其實(shí)都不是它們是基于.NET編輯的，而是為了支持.NET的嵌入式開發(fā)，你所看到的軟件，比如QQ，迅雷，你看他們帶.NET了嗎？要是.NET好，他們干嘛不用，答案是因?yàn)椴环奖?，因?yàn)閄P系統(tǒng)一般是沒有.NET的，連WIN7內(nèi)嵌的.NET都不支持最新的.NET，也就是你用什么版本編的就得安裝相應(yīng)版本，那也要求對方電腦也得跟著升級，而API是不用升級著走的~
所以，你要編的軟件在其他電腦上用，VB+API吧,如果你要個人電腦上用，VB.NET吧，如果你編小軟件vb+api吧，如果你要大型軟件就VB.NET吧，所以，你自己選吧。
希望給你的意見能對你有好處，現(xiàn)在深夜11點(diǎn)了，我也改睡了，拜拜！~
祝你學(xué)習(xí)愉快！
對了，還有點(diǎn)，比如CAD2007不支持.NET3.5以上的編程，而且.NET編好的EXE或者DLL是可以用專門的軟件打開看你源代碼的，也就是反編譯，這對于加密（可以看你的加密方法）就很麻煩了（據(jù)說采用什么辦法可以解決）。
一個月。vb.net開發(fā)軟件試用期為一個月。VB.NET是一種簡單，現(xiàn)代面向?qū)ο蟮挠嬎銠C(jī)編程語言，是由微軟開發(fā)。將.NETFramework和公共語言運(yùn)行庫的強(qiáng)大功能相結(jié)合。
系統(tǒng)故障。系統(tǒng)故障導(dǎo)致vb.net工程添加引用時找不到microsoftspeec，是需要等待系統(tǒng)恢復(fù)的，此軟件是一種簡單，現(xiàn)代，面向?qū)ο蟮挠嬎銠C(jī)編程語言，它由微軟開發(fā)，將NETFramework和公共語言運(yùn)行庫的強(qiáng)大功能相結(jié)合。
給你個工程自己看...
運(yùn)行后可以看到自己...
點(diǎn)按鈕保存到c:\1.bmp
重慶分公司
重慶分公司
