有关VB界面设计的问题
Private Sub Command1_Click()Dim conn As New ADODB.Connection, rs As New ADODB.Recordsetconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=数据库名称;Persist Security Info=False"strSQL = "select * from use where 学号='" & Text1.Text & "'"rs.Open strSQL, conn, 3, 3If Text2.Text = rs.Fields("密码") ThenUnload Meif rs.fields("类别")="管理员" thenForm2.Showelseif rs.fields("类别")="学生" thenform3.showend ifElseMsgBox "用户名密码错误"End Ifrs.Closeconn.CloseEnd Sub没密码的库可以这么做有密码西药提前告诉
vb.net界面设计
'主窗口为form2, form1为登陆窗口,上面有2个text、1个command控件Private Sub Command1_Click() Static n If Text1 = "119" Then If Text2 = "911" Then Form2.Show Unload Me Else MsgBox "密码错误!" Text2 = "" Text2.SetFocus End If Else MsgBox "用户名错误!" Text1 = "" Text1.SetFocus End If n = n + 1 If n = 3 Then Unload Me '错误次数3次End Sub
关于软件界面设计的问题开发好了软件,如何来设计一个漂亮的界面呢...
直接换成WIN7系统界面也就跟着变了,但是你把编写好的程序发送给XP用户界面也就变回来了。
你也可以安装VB.NET,.NET的控件都很漂亮或者使用VB Skin控件,可以导入she格式的皮肤,但是总体非常坑爹,有或多或少的BUG当然,你也可以学学DirectX,直接在窗体上渲染按钮,如上图如果你只是做做小程序,就按照原先的样式来吧
用VB编写制作透明窗体,界面自行设计。
Private Sub Form1_Click(sender As Object, e As EventArgs) Handles Me.ClickMe.Opacity -= 0.2 ' 这里可以改成 0.01 以使单击过程减慢窗体变浅的速度Me.Text = "触发了 Click 事件,继续单击窗体将越来越浅,双击将结束程序"End SubPrivate Sub Form1_DoubleClick(sender As Object, e As EventArgs) Handles Me.DoubleClickEndEnd SubPrivate Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.LoadMe.WindowState = FormWindowState.MaximizedMe.Text = "触发了 Load 事件,单击将使窗体颜色变浅"End Sub
用VB做一个软件界面,怎么实现从登陆界面到主界面的衔接啊?
比如登录界面是Form1,主界面是Form2,那么当在Form1中已经确认用户身份允许使用软件时,可以这样:Form2.ShowUnload Me也就是显示主界面,与此同时关闭登陆界面,这个很好理解吧?其实VB自带的应用程序向导,可以自动帮你生成这样的界面和相应的代码,你无须自己写代码或者只需进行简单的修改即可。
转载请注明出处51数据库 » vb优秀软件界面设计