js代码如下: <script language="javascript" type="text/javascript"> function logout(){ if (confirm("您确定要退出控制面板吗?")) top.location = "../Login.aspx"; // top 该变更永远指分割窗口最高层次的浏览器窗口.如果计划从分割窗口的最高层次开始执行命令,就可以用top变量. return
procedure TForm1.FormActivate(Sender: TObject); var i: Integer; begin btn8.Enabled:=False; do begin Sleep(); btn8.Caption := Format('请认真查看(%d)', [I]); //ShowMessage(IntToStr(i)); then btn8.Enabled:=True; Application.ProcessMessages; end; end; Applica
最近遇到三个人问关于VB写网页服务器的问题,所以今天抽时间写一下,演示其实没有多复杂. 代码里自定义的方法只有四个,没有公共变量绕来绕去,该注释的也都注释了. 想扩展更复杂的功能,就需要自己补脑HTTP协议. 新建一个VB工程,界面及控件如下: 文本框控件名不变,两个按钮的Name分别是 启动服务 和 关闭服务.然后粘贴以下代码进去: (↓↓↓点+展开代码~.~) Option Explicit '最大连接数 '启动初始化和按钮代码 Private Sub Form_Load() Dim i A