本文目录
求一个简单VB程序代码
Private Sub Command1_Click()Command1.Enabled = FalseCommand2.Enabled = TrueLabel1.Visible = TrueForm1.Caption = "单击“隐藏”按钮隐藏文字"End SubPrivate Sub Command2_Click()Command1.Enabled = TrueCommand2.Enabled = FalseLabel1.Visible = FalseForm1.Caption = "单击“显示”按钮显示文字"End SubPrivate Sub Form_Load()Label1.Caption = "Hello"Label1.Visible = FalseCommand1.Caption = "显示"Command2.Caption = "隐藏"Command2.Enabled = FalseForm1.Caption = "单击“显示”按钮显示文字"End Sub
求vb代码,很简单,内详
在vb6.0中新建工程,添加定时器控件。然后程序如下privatedeclarefunctionsetcursorposlib"user32"(byvalxaslong,byvalyaslong)aslongprivatedeclarefunctiongetcursorposlib"user32"(lppointaspointapi)aslongprivatedeclaresubkeybd_eventlib"user32"(byvalbvkasbyte,byvalbscanasbyte,byvaldwflagsaslong,byvaldwextrainfoaslong)privatedeclaresubmouse_eventlib"user32"(byvaldwflagsaslong,byvaldxaslong,byvaldyaslong,byvalcbuttonsaslong,byvaldwextrainfoaslong)privatetypepointapi xaslong yaslongendtypeconstmouseeventf_leftdown=&h3constmouseeventf_leftup=&h4constmouseeventf_middledown=&h30constmouseeventf_middleup=&h40constmouseeventf_move=&h1constmouseeventf_absolute=&h8000constmouseeventf_rightdown=&h8constmouseeventf_rightup=&h10dimaasintegerdimbaspointapiprivatesubtimer1_timer()a=a+1form1.caption=aifamod3=0thenmouse_event-32768ormouseeventf_rightdownormouseeventf_rightup,1,1,0,0’1.5秒按鼠标右键一次ifamod2=0thenkeybd_event90,0,0,0’1秒按"z"键一次keybd_event90,0,2,0endififamod60=0thenkeybd_event115,0,0,0’1分按"f4"键一次keybd_event115,0,2,0endififamod90=0thenkeybd_event116,0,0,0’1分半按"f5"键一次keybd_event116,0,2,0endifif(amod90)-3=0thenkeybd_event119,0,0,0’1分半后3秒按"f8"键一次keybd_event119,0,2,0endifform1.caption=aendsub自己研究吧!希望是你想要的