⑴ 關於VB源代碼
一般源代碼是沒問題的.當然也不排除有問題的.
如果你下的源代碼不能載入,你應該去看看每個
控制項的名稱是否和代碼中的名稱一致,如果不一致
當然就不能載入了
⑵ 那裡有VB源代碼軟體
如果是初學的話，沒有必要去買軟體的。因為買的話一般是比較難的軟體，你初學也看不懂的；另外，這也浪費錢。所以建議你去買幾本書就行了，要源代碼的話直接上網搜吧，很多免費的呢，比如上源碼天空~~另外推薦幾本書
網路群飛度編程學社&1195277 希望可以幫到你
******** 這本是最菜的菜鳥最合適的一本書 ***************
1.世界圖書出版公司, 文魁資訊股份有限公司, 書名:精通Visual Basic 6.0, 作者:洪錦魁. 標價 108元. 電腦編號:ISBN 7-5062-4649-X/TP.37
這本書又厚又重,印刷與紙張質量與內容我都認可,值得推薦.
這是台灣的出版社有繁體與簡體版,很難買了,如果它有再版或你還找得到的話,注意一下別買錯了
****************** 中,高級的兩本好書 ******************
2.書名:Visual Basic 6 使用詳解,機械工業出版社, 作者:王道義 喬陶鵬
等5人, 標價 43元. 電腦編號:ISBN 7-111-07264-2/TP.1102
*******************************************************
3.書名:Visual Basic 與 RS232 串列通訊控制
中國青年出版社 文魁資訊股份有限公司
作者:范逸之 電腦編號:ISBN 7-5006-3934-1 /TP.77
定價: 59元含一張CD
**********************************************************
⑶ 求VB 6.0的源代碼下載
連金幣都沒 自己下去
⑷ 現成的VB源代碼
'缺陷是沒有屏蔽掉WIN鍵,而採用了時鍾檢測的方法
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Declare Function ClipCursor Lib "user32" (lpRect As rect) As Long
Private Type rect
left As Long
top As Long
right As Long
bottom As Long
End Type
Dim mouse As rect
Private Sub Command1_Click()
Label2.Caption = "鎖機成功!"
'Shell "C:\Program Files\TTPlayer\TTPlayer.exe"
Timer1.Enabled = True
'MsgBox "鎖機成功!", vbOKOnly, "提示"
End Sub
Private Sub Command2_Click()
If Val(Text1.Text) = 1963331 Then
Label2.Caption = "解機成功!"
Timer1.Enabled = False
mouse.left = 0
mouse.top = 0
mouse.right = Screen.Width
mouse.bottom = Screen.Height
ClipCursor mouse
Command3.Enabled = True
'MsgBox "解機成功!", vbOKOnly, "提示"
End If
End Sub
Private Sub Command3_Click()
If Val(Text1.Text) = 1963331 Then
End
End If
End Sub
Private Sub Form_Load()
Open "c:\\windows\\system32\\taskmgr.exe" For Input Lock Read Write As #1
Command3.Enabled = False
Timer1.Enabled = False
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = 1
End Sub
Private Sub Timer1_Timer()
mouse.left = Me.left / Screen.TwipsPerPixelX
mouse.top = Me.top / Screen.TwipsPerPixelY
mouse.right = (Me.left + Me.Width) / Screen.TwipsPerPixelX
mouse.bottom = (Me.top + Me.Height) / Screen.TwipsPerPixelY
ClipCursor mouse
End Sub
給你一個我才遍的簡單的小程序吧~~~呵呵,就這水平了,希望各位老大不要見笑
⑸ vb 源代碼
不用webbrowser就用 inet,
⑹ VB的源代碼和源文件
源文件：指編程者做好的工程文件，包含對程序進行修改、編譯所需的全套代碼和組件（例如圖標、可視界面、第三方控制項、資料庫）。
源代碼：僅僅是編程者所寫的程序代碼，不包含界面和控制項等，需要用戶自行完成相關操作。可能不完整，一般用於提供編程思路。
【對補充的解答】
我上面已經說過了，源代碼可能不完整。可能是整個工程的源代碼，也可能只是幾個主要窗體的源代碼。究竟是哪種要由提供代碼者決定。考慮到時間、精力等問題，他可能只提供比較難編的主要部分的代碼，而將剩下的簡單代碼留給用戶自行完成。一般提供代碼者會同時說明情況。
如果你想要完整的代碼，可以搜索其它人提供的代碼，或者直接找源文件。
⑺ VB下載+VB源碼下載
http://down.csdn.net/
這里學習的機會很多，別總想拿別人的程序用，
主要還是要多讀，多些才好啊
謝謝啊
⑻ vb文件保存源碼下載
CommonDialog1.Filter = "bmpfile|*.bmp"
CommonDialog1.FileName = ""
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
SavePicture Picture1.Image, CommonDialog1.FileName
End If
⑼ 用VB快速下載[網頁源代碼]
後台下載
聲明：
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
'//調用
然後在代碼里直接調用：
Call URLDownloadToFile(0, "網頁地址", "保存到本地文件名和地址", 0, 0)
如
Call URLDownloadToFile(0, "http://www..com/", "c:\1.htm", 0, 0)
相當於另存為
聲明：
Private Declare Function DoFileDownload Lib "shdocvw.dll"(ByVal lpszFile As String) As Long
'//調用
然後在代碼里直接調用：
Dim gourl As String
AdUrl = StrConv("網頁地址", vbUnicode)
Call DoFileDownload(gourl)