VBƽ⡱ʱƵĳҳѧԺ缼 ͼͼ ϵͳ ָ  칫 ý嶯 վӪ ֤ ҳ 
 web  Ϸ QQ 
      վ     

ǰλã  򿪷  VB  VBƽ⡱ʱƵĳ 
VBƽ⡱ʱƵĳ
ڣ200767 ߣ 鿴:[  С] 

  Dim OldDate As Date עͣϵͳ 

  Private Sub Command1_Click() 
  If Not Data1.Recordset.EOF Then עͣݿӼ¼򲻶 
  Date = Data1.Recordset(2) עͣϵͳʱ 
  Call ShellExecute(0, vbNullString, Data1.Recordset(1), vbNullString, 
  vbNullString, vbOK) עͣⲿ 
  Me.Enabled = False עͣ 
  Timer1.Enabled = True עͣʱʱ 
  End If 
  End Sub 

  Private Sub Command2_Click() 
  End עͣرձϵͳ 
  End Sub 

  Private Sub DBGrid1_BeforeUpdate(Cancel As Integer) 
  If MsgBox("¼ı", vbYesNo + vbQuestion) <> vbYes Then Cancel = True 
  עͣǷݿ 
  End Sub 

  Private Sub DBGrid1_ButtonClick(ByVal ColIndex As Integer) 
  On Error GoTo errdeal עͣ򿪴 
  CommonDialog1.CancelError = True עͣϵͳԻ 
  CommonDialog1.ShowOpen עͣϵͳԻ 
  If CommonDialog1.filename <> "" Then DBGrid1.Text = CommonDialog1.filename 
  עͣдҪĳϢ 
  errdeal: 
  End Sub 

  Private Sub Form_Load() 
  OldDate = Date עͣϵͳʱ 
  Call Parameter עͣȡϵͳʱĲ 
  End Sub 

  Private Sub Timer1_Timer()Ӻָ 
  If Format(Time, "HH:MM:SS") < "00:00:05" Then OldDate = OldDate + 1 
  עֹͣڽӽʱʱڻָ 
  Date = OldDate עָͣϵͳʱ 
  Me.Enabled = True עָͣ 
  Timer1.Enabled = False עͣʱʱ 
  If Check1.Value = 1 Then End עͣǷرձϵͳ 
  End Sub 

  Private Sub Parameter() עͣϵͳ 
  If Command <> "" Then 
  עͣӦ 
  Data1.RecordSource = "Select * From [StartProgram] Where []=עͣ" & 
  Trim(Command) & "עͣ" 
  Data1.Refresh 
  If Not (Data1.Recordset.EOF And Data1.Recordset.BOF) Then 
  Me.Hide עͣرϵͳ 
  Check1.Value = 1 עͣùرձ־ 

  Command1_Click עͣϵͳִ¼ 
  Else 
  עͣδҵ 
  MsgBox "ûд", 16, Me.Caption עͣʾ 
  End עͣر 
  End If 
  End If 

  һҳ [1] [2] [3] һҳ 
  Ʊҳַͱ⣬͸QQ/Msnĺһ

  VBƽ⡱ʱƵĳ £
  VBƽ⡱ʱƵĳ
  VBƽ⡱ʱƵĳ 
  һƪ:VB5 ˸
  һƪ:VB     ʱ  ֵ
  رվرֹתصר¿תأעԭʼ
  .°Ȩԭʼ.ڱվתµĸ˺վǱʾл⡣վת
  صаȨϵ༭Ա,ǾԸ. תעԴhttp://www.hackhome.com
ƷƼ
ȵTOP10
  VB+Accessͼϵͳ 
  VBʱͱܵ 
  ؼС洰С仯仯 
  VBѧ±ܼӴ 
  VBʹDirectXļ̳ 
  VBʹEXCEL 
  VBݿԴ60ʵ 
  180VBͼνԴʵ 
  API޸עģ 
  VB쳬Ի˵ 
  ͨſؼMSCommʹ 
  WINDOWSϢ˵ 
  16תʮ, 16תɶƵ 
  vsprintӡʵ 
  webbrowser 2ղأ 
  VB6DataGridʵͨõӱ 
  FindWindow 
  VB̳ ڶ£ؼѧϰ 
  VB6.0ͼ 
  VB֮·ý 
رƼ
  ǳVB.Net Windows Form 
  ׹Ʊ˰ʼ 
  VisualBasic 6еĺִ 
  Զȡû½ƣٽ֤ 
  APIָĿ¼ļ 
  VBݿԴ60ʵ 
  VBIEԶ尴ť 
  VBMS OfficeCOM 
  Visual Basicװ 
  WebComputingADOܽᱨ 
  vsprintӡʵ 
  VBʵһ򵥵ESMTPͻ 
  webbrowser 2ղأ 
  SetForegroundWindow 
  API޸עģ 
  VB쳬Ի˵ 
  WINDOWSϢ˵ 
  ؼС洰С仯仯 
  VBʱͱܵ 
 | () | Ȩ |  | Ϣ Copyright 2003-2007  All Rights Reserved. 
  ICP05018371 53 
