锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net窗体双击 vb 双击( 二 )

IT技术selenium


Public Shared Sub Reboot()　DoExitWin((EWX_FORCE Or EWX_REBOOT)) 重新启动计算机End Sub
Public Shared Sub PowerOff()　DoExitWin((EWX_FORCE Or EWX_POWEROFF)) 关闭计算机End Sub
Public Shared Sub LogoOff()　DoExitWin((EWX_FORCE Or EWX_LOGOFF)) 注销计算机End Sub
Dim entTime As Object 保存输入时间Dim xianzaiTime As Object 保存实时时间Dim startTime As Object 保存开始定时时间
注销button 按钮输入code
Private Sub Button _Click(ByVal sender As System Object
ByVal e As System EventArgs) Handles Button ClickLogoOff() 注销计算机End Sub
双击重新启动按钮button 输入code
Private Sub Button _Click(ByVal sender As System Object
ByVal e As System EventArgs) Handles Button Click
Reboot()
End Sub
双击关闭计算机按钮button 输入code
Private Sub Button _Click(ByVal sender As System Object
ByVal e As System EventArgs) Handles Button Click　startTime = TimeOfDay　If Not IsDate(TextBox Text) Then 用IsData函数判断输入的时间格式MsgBox( 你所输入的不是时间格式 ! 错误 )　ElseentTime = TimeValue(TextBox Text)　End If　Timer Enabled = True启动定时器　Me WindowState = System Windows Forms FormWindowState Minimized最小化窗体
End Sub
如图
图
双击timer 控件如图
图
输入代码
Private Sub Timer _Tick(ByVal sender As System Object
ByVal e As System EventArgs) Handles Timer Tick　xianzaiTime = TimeOfDay　If RadioButton Checked Then
If DateDiff(Microsoft VisualBasic DateInterval Second
xianzaiTime entTime)Then 用DateDiff函数判断是否到时间了
End IfEnd If
PowerOff() 关闭计算机End Sub
好了 基本上一个定时关机程序就完成了 接下来加一个超级链接吧！当然对于高手来说可能是废话 但是对于新手来说这也是必备的 这个超级链接当然是我们最喜欢的天极网开发频道了
先创建一个Label控件吧 把它托到窗体上 将text属性设置为天极网开发频道如图
图
接下来需要输入代码了 双击窗体Form
进入Public Class Form 事件
代码
Private Declare Function ShellExecute Lib shell dll
Alias ShellExecuteA (ByVal hwngnd As Integer
ByVal lpOperation As String ByVal lpFile As String
ByVal lpParameters As String ByVal lpDirectory As String
ByVal nShowCmd As Integer) As Integer
如图
图
双击刚才添加的label属性text:（天极网开发频道）中输入以下代码
Private Sub Label _Click(ByVal sender As System Object
ByVal e As System EventArgs) Handles Label ClickShellExecute( open CStr( ) CStr( ) )
End SubEnd Class
OK！全部搞定 按F 键运行如图 所示 选择相应选项后点击（关闭计算机启动定时器按钮）就可以了 现在程序将按照你所设定的时间而启动关闭计算机选项
lishixinzhi/Article/program/net/201311/12366
VB.NET中，如何动态创建非模态窗体，类似于QQ一样 ， 双击一个头像会弹出一个窗口 。做一个窗体模板，假设是Form2
Dim x as New Form2
x.Show()
如果弹出窗口较多，x可以用动态数组替代
vb.net双击控件到代码,翻过来怎么根据代码对应控件?并无快捷方式，记住控件名称，
然后在From1[设计]的属性面板最上方的下拉框中寻找该控件，
查看Location.X, Location.Y的值，就知道它在哪个位置了 。
至于代码是属于哪个控件的事件处理的，在窗体设计器中顶部可见 。
当编辑Label1的代码时，顶部会显示控件名称和事件名称 。
vb.net datagridview 双击弹出表单1个偷懒的写法，
使用父窗口使用BindSource做为中间数据源绑定
子窗口添加一个带参构造函数 xxform(Bindingsource bs1);
并使用DataBindins.add函数添加数据绑定

推荐阅读


上一篇：tcl电视什么连接有线电视的简单介绍

下一篇：轩辕剑7单机游戏，轩辕剑单机游戏系列安卓