vb6源碼
『壹』 要一個vb6源碼
需求控制項：
1.CommonDialog1 對話框
2.command1 打開按鈕
3.command2 保存按鈕
4.Text1 文本框
然後加入如下代碼
Private Sub Command1_Click() '打開按鈕
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
CommonDialog1.Flags = cdlOFNHideReadOnly
CommonDialog1.Filter = "ush文件(*.ush)|*.ush"
CommonDialog1.FilterIndex = 0
CommonDialog1.ShowOpen
Dim TempFile As Long
Dim LoadBytes() As Byte
TempFile = FreeFile
Open CommonDialog1.FileName For Binary As #TempFile
ReDim LoadBytes(1 To LOF(TempFile)) As Byte
Get #TempFile, , LoadBytes
Close TempFile
Text1.Text = StrConv(LoadBytes, vbUnicode)
Exit Sub
ErrHandler:
' 用戶按了「取消」按鈕
Exit Sub
End Sub
Private Sub Command2_Click() '保存按鈕
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
CommonDialog1.Filter = "ush文件(*.ush)|*.ush"
CommonDialog1.FilterIndex = 0
CommonDialog1.ShowSave
Dim TempFile As Long
Dim SaveBytes() As Byte
SaveBytes = StrConv(Text1.Text, vbFromUnicode)
TempFile = FreeFile
Open CommonDialog1.FileName For Binary As #TempFile
Put #TempFile, , SaveBytes
Close TempFile
Exit Sub
ErrHandler:
' 用戶按了「取消」按鈕
Exit Sub
End Sub
『貳』 VB程序源碼如何使用
你需要安裝vb6.0開發軟體
如果安裝了，就可以直接打開源碼測試了，後綴名是vbp，（就是vb的工程文件）
如果沒有安裝vb6.0，還想打開源碼看程序，那就右擊 用記事本 打開後綴名為frm的文件，他是vb的窗口文件，源碼都在他裡面
一般得源碼是沒有生成exe可執行文件的，那樣文件太多，太大，浪費空間
如果你自己想生成exe可執行文件，那就vb6.0得文件菜單中把文件保存成exe可執行文件就可以了，非常簡單
好運！
『叄』 VB6 點擊按鈕選擇目錄源碼
用commondialog控制項
commondialog.showopen
『肆』 vb6的源代碼打開後窗體是只讀屬性，所有屬性都不能改，怎麼辦
右鍵點擊工程所在目錄（包含工程文件，不要打開目錄），選擇屬性，然後，設置讀寫屬性！
『伍』 vb6 怎樣獲取網頁源碼
這個用INET控制項比較簡單
最簡便的方法：
首先添加一個INET控制項，命名為INET1
添加一個按鈕控制項，command1
添加一個TEXT控制項,用來存放源碼
private sub command1_click()
Text1.Text = Inet1.OpenURL("http://www..com")
end sub
『陸』 求VB6源碼，datagrid控制項從數組讀取數據，並可在datagrid里修改，再保存到數組
基本思路：
1，因為在不同的窗體之間進行操作，所以需要用公共變數進行數據信息的傳遞。
2，根據你修改窗體里的信息，要修改這樣的數據，那麼每條記錄，必須有一個唯一的不可修改的欄位，來保證單擊[確認]按鈕後，能正確修改對應的記錄。
3，返回前一窗體，刷新一下，就可以了。
『柒』 vb6.0源代碼
你這里的RsAddUser是自己聲明的ADODB.Recordset對象
在變數聲明段，你應該可以找到
Dim RsAddUser As ADODB.Recordset
或者是
Private RsAddUser As ADODB.Recordset
而
RsAddUser.State是該對象的一個屬性，用來返回其處於打開或關閉的狀態。
『捌』 VB的源碼和源碼對應的意思
你不會是要個隨便的程序代碼吧？
打開vb6：在窗口上畫一個文本框（text1），畫一個按鈕（command1），雙擊窗體，加入下面的代碼，按F5運行。
'vb中單引號「'」後面的是注釋
Private Sub Command1_Click() '按鈕的單擊事件，單擊按鈕時要做的事放在這里
'以下用到if的兩種格式
If Val(Text1) = 0 Then a = 1 '可以用text1代替text1.text
If Val(Text1) > 0 Then 'if語句，如果...那麼，val是個求值函數，用於將字元串轉化為數字
For i = 1 To Val(Text1.Text) '循環開始，從1一直循環到text1
a = a * i '循環*，求階乘
Next i '下一個i，這里表示i=i+1，並繼續循環
End If 'if的結尾
Text1 = Text1 & "的階乘是：" & a '顯示結果，&表示把字元串連接起來
End Sub
Private Sub Form_Load() '窗體載入事件，在窗體顯示之前做的事
Text1.Text = 5 '初始化text1顯示的值，text1是文本框名稱，.後面的text是屬性
End Sub '一個過程的結束
『玖』 VB6現有完整源代碼如何編譯成程序，急急急！！！有圖
點擊【開始】-【程序】-【Microsoft Visual Basic 6.0 中文版】-【Microsoft Visual Basic 6.0 中文版工具】-【Package & Deployment 向導】，在對話框點擊【瀏覽】，選擇工程文件，然後點擊【打包】，接下來按要求一步一步設置即可。