vb.net注册控件代码 vb编写软件注册

VB.NET activex 控件注册问题

在VBA中，在调用控件前写入shell +注册控件语句。

成都创新互联公司网站建设公司，提供网站设计、网站建设，网页设计，建网站，PHP网站建设等专业做网站服务;可快速的进行网站开发网页制作和功能扩展；专业做搜索引擎喜爱的网站，是专业的做网站团队，希望更多企业前来合作!

如果我理解正确的话，有下列方法

方法一：在VBA模块中加入Shell("regsvr32.exe /s " strSystemFolder "Winsock.ocx")   自己改一下变量。本人较早前用过的方法。

方法二：将所有注册组件写进.bat批处理文件中，并加入开机自动运行，或用shell去运行.bat

方法三：微软官方support

最后一段简单翻译一下：RegComCtl32和UnRegComCtl32是用户自定义名称；例中组件是默认在windows/system路径下，如果不在该路径下，请自己添加；DllRegisterServer注意字母大小写。

求一份VB.NET的注册页面的代码

创建完相应的用户名，密码控件之后，输入以下代码：

Imports System.Data.OleDb

Public Class Form1

Private Sub cmdok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdok.Click

Dim m_username As String

Dim m_userpwd As String

Dim cmd_result As MsgBoxResult

Dim m_da As New OleDbDataAdapter

Dim m_ds As New DataSet

Dim m_command As New OleDbCommand

Dim strsql As String

m_username = txtusername.Text

m_userpwd = txtuserpwd.Text

strsql = " select * from user_info where username='" m_username "' and userpwd='" m_userpwd "'"

OleDbConnection1.Open()

m_command.CommandType = CommandType.Text

m_command.CommandText = strsql

m_command.Connection = OleDbConnection1

m_da.SelectCommand = m_command

m_da.Fill(m_ds, "user_info")

If m_ds.Tables("user_info").Rows.Count 0 Then

cmd_result = MsgBox("欢迎登录", MsgBoxStyle.OKOnly, "提示")

Else

MsgBox("登录失败，请确认用户名和密码")

End If

End Sub

End Class

vb.net 注册问题

改为：

sql = "insert into 表1 values(用户名='" TextBox1.Text "' ,密码='" TextBox2.Text "')"