Private Sub Command1_Click() If Text1.Text = "admin" And Text2.Text = "admin" Then Form1.Hide Form3.Show Else If Text1.Text = "admin" Then MsgBox ("你输入的密码有误") Text2.Text = "" Text2.SetFocus Else MsgBox ("你输入的帐号不存在") Text1.Text = "" Text1.SetFocus En
Private Sub Command1_Click() If Text1.Text = "1" And Text2.Text = "1" Then Form1.Visible = False Form2.Visible = True Else MsgBox "密码有误或用户不存在，请重试!" Text2.Text = "" End If End Sub Private Sub Command2_Click( ) Text1.Text = "" Text2.Text = "" End Sub
Private Sub Form_Load() 'This takes a while - let me entertain you... Form2.Show Form2.Refresh 'Fill each of the strings objects with the codes for the predefined Coordinate systems StrsPCS.PopulateWithProjectedCoordSys StrsGCS.PopulateWithGeogra ph
Dim cn As New ADODB.Connection Dim sr As New ADODB.Recordset Dim jibie As Integer cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=(我的student表）;Data Source=(你的服务器名字)" sr.Open "select * from TABLE1 w h
vb编写的简单学生成绩查询系统 Sub pingbi3() Form10.Command4.Visible = False End Sub Sub pingbi1() Form2.修改.Visible = False Form2.添加.Visible = False Form2.删除.Visible = False End Sub Sub pingbi2() Form10.Command2.Visible = False End Sub Private Sub 管理员_Click() Unlo
vb 程序实例 适合初学者学习 在VB6.0中，每个应用程序都是从窗体(Form)开始的，窗体是构成用户接口的所有控件的容器。录活运用窗体的各项属性和操作，可以为用户设计出赏心悦目的操作界面。 1.窗体以当前屏幕分辨率全屏显示 在应用程序的编制调试过程中，用于经常用到菜单、工具条和工具框等辅助工具，一般不将窗体设为全屏显示，以便于操作；另外，当屏幕分辨率改变时，窗体可能不能正常显示，可以在窗体的Load事件中插入下列代码，即可使窗体启动时以当前屏幕分辨率全屏显示： Private Sub F
