- 博客(7)
- 资源 (1)
- 收藏
- 关注
转载 单击托盘图标,显示菜单
Private Sub NotifyIcon1_MouseClick()Sub NotifyIcon1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseClick If e.Button = Windows
2007-09-21 12:31:00 671
原创 倒计时函数
在文本框中,显示 剩余时间Private Sub LeftTime()Sub LeftTime() Dim totalTime As Long = 100 * 60 Dim h As Integer 小时 Dim m As Integer 分钟 Dim s As Integer 秒 If totalTi
2007-09-21 12:21:00 421
转载 屏蔽快捷菜单Alt+F4
屏蔽快捷菜单Alt+F4Protected Overrides Function ProcessCmdKey()Function ProcessCmdKey()Function ProcessCmdKey()Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean If keyDa
2007-09-21 12:10:00 592
转载 全角、半角字符相互转换
C#版本: /// 转全角的函数(SBC case) /// /// 任意字符串 /// 全角字符串 /// ///全角空格为12288,半角空格为32 ///其他字符半角(33-126)与全角(65281-65374)的对应关系是:均相差65248 ///
2007-09-21 11:58:00 491
原创 在磁盘指定路径,创建文件夹及文件
Dim sw As StreamWriter Dim path As String = "C:StdHNCRE " & PN & " program" Dim stuDirectory As DirectoryInfo = Directory.CreateDirectory(path) ‘’创建文件夹 Dim filePath As
2007-09-21 11:06:00 757
原创 连接数据库,返回DataTable的函数
Module ModulePublicModule ModulePublicPublic ConnectionString As String = "workstation id=localhost;packet size=4096;user id=hncrecsu;data source=localhost;persist security info=True;initial catalog
2007-09-21 10:50:00 892
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人