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 向导】，在对话框点击【浏览】，选择工程文件，然后点击【打包】，接下来按要求一步一步设置即可。