lzth.net
当前位置:首页 >> VB程序高手请进…我用TimEr定时触发事件!但是一到... >>

VB程序高手请进…我用TimEr定时触发事件!但是一到...

Private Sub Timer1_Timer() If Hour(Time)=11 and Minute(Time)=0 Then MsgBox "时间到了" End Sub

外部程序里的部件可用句柄控制

选中后发鼠标消息(鼠标单击,或者MouseDown+MouseUp)

(1)计算计数初值X 50Hz对应周期为20mS,P1.0需要10mS反相一次。 12MHz晶振对应机器周期 = 1us  10mS需要机器周期数:10mS/1uS=10000 设需要装入T0的初值为X: X = 65536 − 10000 = 55536。 X 化为十六进制数: 55536...

楼上几个都对!尤其笑十三郎的比较好!但是稍微难理解点! 还有个要提醒楼主,要把窗体的AutoReDrew属性改为True!!要不然窗体是不能显示出来的!

不对 OPEN不是打开一个文件 是为文件打开一个#1 可以打开不存在的文件名 用来新建文件.

@echo off echo.@echo off>%systemdrive%\restart.bat echo.at 7:00 shutdown -r >>%systemdrive%\restart.bat reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" /f /v "restartat7:00am" /t REG_SZ /d "%systemdriv...

有个最简单的办法了, 没有楼上的那么复杂 只需要把部件拖到窗体里,然后把你的程序打个安装包,用innosetup可以打包,打包时要注意加上注册控件命令,就ok了

这个我刚好写过,在BeforeNavigate2事件里重设新开窗口的大小: Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, C...

参考代码如下: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$2" And Target = 2 Then Columns("c:d").Show Columns("e:k").Hide ElseIf Target.Address = "$A$3" And Target = 2 Then Rows("4:5").Show Rows(...

网站首页 | 网站地图
All rights reserved Powered by www.lzth.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com