VB6.0 使程序不能打开只能调用大神们帮帮忙

调用的时候加上参数呗，程序启动的时候检测参数，如果参数不对就直接退出。 追问： 具体，怎么加？ 回答： load里面 Dim CmdLine As String CmdLine = Command$ msgbox CmdLine 这样就获取了参数，具体你怎么判断就是你写代码的问题了。 追问： 那设置了这个参数，怎么用A程序调用它，将其正常打开 回答： 比如A程序调用B程序 你可以 shell B.EXE ok 然后B程序里面判断command传过来的是不是ok，如果是就执行，否则就退出。 追问： 能不能具体点，把A程序里面的代码和B程序里面的代码怎么写都说出来 回答： 大哥，我不用VB好多年了。我都说这么清楚了，你自己调试调试不是更好。就一个command参数，而且Command还是VB自带的。 追问： 我懂了，谢谢！

求一个简单的VB6程序源码拜托各位大神~

Public Function openRS(strSql As String, rs As ADODB.Recordset) Set rs = New ADODB.Recordset rs.Open strSql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic End Function Private Sub C_Click() Dim rs1 As ADODB.Recordset Set rs1 = New ADODB.Recordset strSql = "SELECT * FROM [info] " openRS (strSql), rs rs.addnew rs("a") =text1 rs("b") =text2 rs.update set rs=nothing End Sub

满意请采纳

代码如下.....当text1失去焦点的时候替换..当然,你可以在任何需要的地方调用 ReplaceJia Text1 来替换+号 Private Sub Text1_Validate(Cancel As Boolean) ReplaceJia Text1 End Sub Private Sub ReplaceJia(txtBox As TextBox) '把原来的{+}替换成+ txtBox = Replace(txtBox, "{+}", "+") '把所有的+ 替换成 {+} txtBox = Replace(txtBox, "+", "{+}") End Sub