|
|
|
|
摘要：
VB有2种方式可以加载程序进入系统进程:1.使用纯API方式.下回再写,太麻烦~~~2.使用控件NTSVC.OCX加载现在简单说说如何使用NTSVC.OCX首先在VB工程中加载部件NTSVC.OCX,在窗体中放置该控件.设置NTService1的几个属性:DisplayName(该属性的含义是在服务中显示的名字)ServiceName(该属性的含义是服务的名字,设置它后,我们可以使用控制台命令来开... 阅读全文
posted @ 2007-04-14 16:57 pegger 阅读(1414) 评论(1) 推荐(0) 编辑
摘要：
Const CSIDL_ADMINTOOLS As Long = &H30 '（用户）\开始菜单\程序\系统管理工具Const CSIDL_ALTSTARTUP As Long = &H1D '未本地化的启动Const CSIDL_APPDATA As Long = &H1A '（用户）\应用程序的数据Const CSI... 阅读全文
posted @ 2007-04-14 16:55 pegger 阅读(743) 评论(0) 推荐(0) 编辑
摘要：
Join函数的参数为一个数组和分隔符（分隔符可选），它把数组的所有元素导入到字符串，元素间用分隔符分隔，并返回该字符串。例如，下面的代码将返回字符串：1,2,3,4,5。 Dim TestArr(0 To 4) As VariantTestArr(0) = 1TestArr(1) = 2TestArr(2) = 3TestArr(3) = 4TestArr(4) = 5debug.prin... 阅读全文
posted @ 2007-04-14 16:54 pegger 阅读(1145) 评论(0) 推荐(0) 编辑
摘要：
Rem 转移输入焦点的声明Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "Set... 阅读全文
posted @ 2007-04-03 10:24 pegger 阅读(1127) 评论(0) 推荐(0) 编辑
摘要：
1. 到 http://dev.mysql.com/downloads/mysql/5.0.html 下载 MySQL 5.0：mysql-5.0.27-win32.zip2. 到 http://dev.mysql.com/downloads/connector/net/5.0.html， 下载 MySQL Connector/Net 5.0： mysql-connector... 阅读全文
posted @ 2007-04-02 18:08 pegger 阅读(240) 评论(0) 推荐(0) 编辑
摘要：
Option ExplicitPrivate Declare Function SendMessage()Function SendMessage& Lib "user32" Alias "SendMessageA" _(ByVal hwnd As Long, ByVal wMsg As Long, _ByVal wParam As Long, lParam As Any)Private Cons... 阅读全文
posted @ 2007-03-22 19:50 pegger 阅读(1130) 评论(0) 推荐(0) 编辑
摘要：
Private Declare Sub ClipCursor()Sub ClipCursor Lib "user32" (lpRect As RECT)Private Declare Sub GetClientRect()Sub GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT)Private Declare Sub Cl... 阅读全文
posted @ 2007-03-22 16:05 pegger 阅读(555) 评论(1) 推荐(0) 编辑
摘要：
Private Declare Function GetCursorPos()Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As LongPrivate Declare Sub GetClientRect()Sub GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As ... 阅读全文
posted @ 2007-03-22 16:01 pegger 阅读(271) 评论(0) 推荐(0) 编辑
摘要：
Clipboard.Clear
Clipboard.SetText "这里换成你要发送的字符串"
SendKeys "^v" 阅读全文
posted @ 2007-03-21 18:45 pegger 阅读(509) 评论(0) 推荐(0) 编辑
摘要：
解决屏幕倒置的方法，肯定有一种管用
1.按Ctrl+Alt+向上箭头
2.直接调整屏幕分辨率. 阅读全文
posted @ 2007-03-21 16:19 pegger 阅读(1745) 评论(1) 推荐(0) 编辑
摘要：
比如你的电脑要在22:00关机，可以选择“开始→运行”，输入“at 22:00 Shutdown -s”，这样 阅读全文
posted @ 2007-03-10 15:23 pegger 阅读(583) 评论(1) 推荐(0) 编辑
摘要：
/**//// /// image to byte[] /// public byte[] BytesToImage(Image ImgPic) { if (ImgPic!=null) { MemoryStream Stream = new MemoryStream(); model.Photo.Save(Stream, System.Drawi... 阅读全文
posted @ 2007-03-10 15:19 pegger 阅读(429) 评论(0) 推荐(0) 编辑
摘要：
'方法一Public Sub ExecuteSQLScriptFile()Sub ExecuteSQLScriptFile(cn as ADODB.Connection,sqlFile As String)Dim strSql As String, strTmp As StringOpen sqlFile For Input As #1strSql = ""Do While Not EOF(1)L... 阅读全文
posted @ 2007-03-10 15:16 pegger 阅读(405) 评论(1) 推荐(0) 编辑
摘要：
/// ///备份数据库到本地磁盘 /// public bool BackUp(string BackUpFile) { try { //第一步：在服务器上创建临时文件夹 ExecuteSql(@"master..xp_cmdshell 'md C:\temp'"); Execute... 阅读全文
posted @ 2007-03-10 15:15 pegger 阅读(812) 评论(1) 推荐(0) 编辑
摘要：
backup log 数据库名称 with no_log
dbcc shrinkfile (数据库日志文件逻辑名称)
例如 阅读全文
posted @ 2007-03-10 15:12 pegger 阅读(246) 评论(0) 推荐(0) 编辑
摘要：
转自:
http://www.cnblogs.com/foundation 阅读全文
posted @ 2007-03-09 10:38 pegger 阅读(543) 评论(0) 推荐(0) 编辑
摘要：
大多数的单据都需要有个单据号。有的单据号就是顺序编号如：000001，000002……。有的单据号是有一定意义的，如我遇见过的一个需求：单据号共12位，1位帐套号（区分使用单位的），1位单据标识号（表示该单是什么单，如：E表示订货单，X表示销售单），2位年号（05表示2005年），2位月号，2位日号，4位编号（按当天的顺序，最大9999，超过9999的就用9999表示）
JE0505070001就表示某某单位2005年5月7日的第一单订货单。用编程实现这个要求当然不算太难，不过要将单据号生成方法放到存储过程中去就要费点心思了。 阅读全文
posted @ 2007-03-09 10:12 pegger 阅读(302) 评论(0) 推荐(0) 编辑 |
|
河南恒友科贸有限公司 电话 ：0371-53733453 传真：0371-65388972 地址：郑州市郑花路8号 E-mail：hengyousoft@QQ.com |