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 Timer1_Timer() Dim hdc As Long Dim a As POINTAPI Dim quyanse As Long Call GetCursorPos(a) '取得鼠标位置 Text1.Text = a.x Text3.Text = a.y hdc = GetDC(0) '取得整个屏幕的hDC Form1.BackColor = GetPixel(hdc, a.x, a.y) '取 颜色 ReleaseDC 0, hd
'-----发送按钮Click事件子程序----------- Private Sub Fasong_Click() Dim JIHAO(0) As Byte ’机号 Dim head_data(4) As Byte ’5 Byte控制字 Dim end_data(0) As Byte '1 Byte 结束字 JIHAO(0) = Val(Text3.Text) head_data(0) = Val(Text4.Text) head_data(2) = &HEE 'TIMH head_data
Private Sub Command1_Click() X = Text1.Text If Text1.Text = "" Then MsgBox "输入源数据", 0, "" If Option1 = True And Option5 = True Then MsgBox "请选不同的进制", 0, "" If Option2 = True And Option6 = True Then Ms gBox "请选不同的进制", 0, "" If Option3 = True And Opti
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
Dim TempTime As String Private Sub Command1_Click() Dim Ret As String If Trim(Text3.Text) = "" Then Text3.Text = 0 End If TempTime = Timer Ret = EncryptFile(Trim(Text1.Text), Trim(Text2.Text), Trim(Text3.Text)) Debug.Print Timer - TempTime Me.Captio
Private Sub Command1_Click() Dim conn As New ADODB.Connection Dim s As String Dim rs As New ADODB.Recordset Dim telephone As String Dim txtsql As String telephone = Trim(Text1.Text) '**************************************************************** *
