vb.net制作登录框 vb做登陆界面

VB登录窗口制作代码和流程

1、首先，点击菜单栏中的工具按钮，如下图所示。

2、然后点击二级菜单选项按钮，如下图所示。

3、此时将会弹出选项对话框，这时候切换编辑器格式选项卡，如下图所示。

4、然后就可以在这里更改字体大小，如下图所示。

5、更改完毕后点击确定即可成功设置，如下图所示就完成了。

请用vb.net写一个模拟的登录界面

解决方案资源管理器中右键菜单，添加，WINDOWS窗体，弹出的对话框中，左栏已安装的模板中选择WINDOWS FORMS ，右边中找到 登录窗体。添加 。程序会添加一个登录界面。很方便。你试下。

vb net 连接Access 怎么样用binding source制作登录框

Imports System.Data.OleDb

Dim SqlConn As New OleDbConnection

Dim SqlCmd As New OleDbCommand

Dim SqlRd As OleDbDataReader

SqlCmd = New OleDbCommand("SELECT * FROM userlogin WHERE user='"  Trim(txtUser.Text)  "'" and password='"  Trim(txtpass.Text)  "', SqlConn)

SqlRd = SqlCmd.ExecuteReader

If SqlRd.HasRows Then

    Msgbox "OK"

Else

    Msgbox "No"

End If

基于VB.NET的windows窗体程序如何连接sql2008数据库，制作一个登录界面

这个问题好宽泛，简单说下步骤吧：

简单来说，直接连接需要使用SQLConnection、SQLDataAdapter、SQLCommand、Datatable四个控件，先写好连接字符串，然后建立连接，写好SQL语句，通过DataAdapter从数据库读取数据到Datatable。这样只有在SQL服务器中附加数据库才能实现访问。还可以使用DSN实现数据库连接，控件依次更换为ODBCConnection、ODBCDataAdapter、ODBCCommand、datatable、基本步骤和上面说的一样。

SQL语句就是从数据库查用户名对应的密码，将数据从数据库读取到DataTable后，与用户输入的密码比对，相符则登陆成功，否则提示错误。

过程中的细节问题欢迎追问

用vb.net ，后台用access 做一个登录窗口

建个模块vb.net制作登录框， Dim varcnn As OleDb.OleDbConnection ReadOnly Property cnn() As OleDb.OleDbConnection

Get

If varcnn Is Nothing OrElse varcnn.State ConnectionState.Open Then Dim cnstr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=""" My.Application.Info.DirectoryPath "\Contact.mdb"";Persist Security Info=True"

varcnn = New OleDbConnection(cnstr)

varcnn.Open()

End If

Return varcnn

End Get

登录窗体vb.net制作登录框，新建一个就行了。代码Public Class LoginForm1

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click

Using cmd As New OleDb.OleDbCommand("select password from tbuser where userid =?", cnn)

cmd.Parameters.Add("?", OleDbType.VarChar).Value = Me.UsernameTextBox.Text

Dim obj As Object = cmd.ExecuteScalar

If (Not IsDBNull(obj)) AndAlso (obj IsNot Nothing) AndAlso obj = PasswordTextBox.Text Then

Me.DialogResult = Windows.Forms.DialogResult.OK

Else MessageBox.Show("密码不正确！") Return

End If

End Using Me.Close()

End Sub Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click

Me.DialogResult = Windows.Forms.DialogResult.Cancel

Me.Close()

End SubEnd Class 项目属性里点查看应用程序事件，写代码Namespace My ' 以下事件可用于 MyApplication:

'

' Startup: 应用程序启动时在创建启动窗体之前引发。

' Shutdown: 在关闭所有应用程序窗体后引发。如果应用程序异常终止，则不会引发此事件。

' UnhandledException: 在应用程序遇到未处理vb.net制作登录框的异常时引发。

' StartupNextInstance: 在启动单实例应用程序且应用程序已处于活动状态时引发。

' NetworkAvailabilityChanged: 在连接或断开网络连接时引发。

Partial Friend Class MyApplication

Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup

Dim f As New LoginForm1

If Not f.ShowDialog = DialogResult.OK Then

End

End If

End Sub End ClassEnd Namespace

你测试一下吧。

vb.net制作登录框的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb做登陆界面、vb.net制作登录框的信息别忘了在本站进行查找喔。