Xqlab’s Blog

Do While Not EOF(1)
    On Error Resume Next
    Line Input #1, NextLine
    Lines = Lines & NextLine & Chr(13) & Chr(10)
Loop

1.单选框（Option）和复选框（Check）的Value值是不一样的：
  单选框是True（选择）和False（未选）
  复选框是0（未选），1（选择），2（不可用）

2.清空列表框所有内容的方法：Combo1.Clear，而不用combo1.removeitem

3.换行的方法：
  “……” + vbCrLf + “……”
  “……” & vbNewLine & “……”

4.数据类型转换的细节：
  Str() 转换后会有个空格在前面
  CStr() 转换后前面不会有空格

5.定义二维数组在VB.NET中勿忘加上逗号：
  Dim a(,) as string

6.控件的Tab键顺序是可以设置的：修改TabIndex的值

7.窗体的最大化和最小化是可以不激活的：修改MaxButton或MinButton的值为False即可

8.让日历控件在打开时默认显示当前日期的方法：
  在窗体的Form_Initialize()中设置Calendar1 = Date即可

9.日期格式化的零：
  Format(Date, “yyyy_m”) 显示为 2009_5
  Format(Date, “yyyy_mm”) 显示为 2009_05

  但10，11，12月份没有区别

10.数据库查找中只需在关键字两边加上“%”即可实现模糊查找（Jet连接数据库）

　　API函数在VB中得到了充分的运用，同时也让无数VB爱好者沉溺于其中。以下是俺最近收集的一些API函数在VB中应用的实例，现在分享出来，希望大伙有用。不过老实说，在VB中的API感觉不是很好~
　　
　　1、如何让窗体总在最前面？
　　
　　*API函数声明
　　Declare Function SetWindowPos Lib “user32″ ( ByVal hwnd As Long, ByVal　 hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
　　注释：常量声明
　　Private Const SWP_NOSIZE = &H1
　　Private Const SWP_NOMOVE = &H2
　　Private Const HWND_TOPMOST = -1
　　Private Const HWND_NOTOPMOST = -2
　　注释： 在某个form里写：
　　SetWindowPos me.hWnd,WND_TOPMOST,0,0,0,0, SWP_NOMOVE 注释：或下面
　　SetWindowPos me.hWnd,WND_TOPMOST,0,0,0,0,　SWP_NOSIZE
　　 全文阅读 »

本示例显示用 Format 函数做格式化输出的不同用法。对于日期分隔号（/），时间分隔号（:），以及 AM/ PM 等文本而言，其真正的显示格式会因计算机上的国际标准不同而有所差异。在开发阶段，日期与时间是以短日期的格式，配合代码的国际标准来显示的。而在运行时，短日期则是根据系统的国际标准而定，而系统的国际标准和代码的国际标准可能并不相同。本示例中是假设国际标准为 English/United States。

MyTime 及 MyDate 在开发环境下，使用系统的短日期设置显示出来的。

Dim MyTime, MyDate, MyStr
MyTime = #17:04:23#
MyDate = #January 27, 1993#

‘ 以系统设置的长时间格式返回当前系统时间。
MyStr = Format(Time, “Long Time”)

‘ 以系统设置的长日期格式返回当前系统日期。
MyStr = Format(Date, “Long Date”)

全文阅读 »

线程的创建与管理

　　用来创建和维护线程的基类是System.Threading.Thread类。它能够创建并控制线程，设置其优先级并获取其状态。它拥有Start, Stop, Resume, Abort, Suspend和Join (wait for)等方法操纵线程，还可以通过如Sleep, IsAlive,IsBackground, Priority, ApartmentState和ThreadState等方法查询和设置线程状态。最直接的创建线程的方法是创建一个新的线程类实例，并使用AddressOf语句为要运行的线程传递任务。

以下代码将名为myTask的子过程作为单独的线程运行：

Dim Thread1 As New System.Threading.Thread(AddressOf myTask)
Thread1.Start

　　类似的，使用Thread类的Sleep方法可以阻滞当前线程，使用Suspend方法可以挂起线程，使用Resume可以重新启动挂起的线程，使用Abort方法可以停止一个线程，使用Join方法可以使当前线程等待其它线程运行结束。

  全文阅读 »

一个无敌的万能删除命令：

DEL /F /A /Q \\?\%1
RD /S /Q \\?\%1

另寸为*.bat

将要删除的文件直接拖放到该批处理上.

就可以删除了

这个太流行了，不过我发现网上有些别有用心的人在里面加语句了，比如*.exe，真是很无聊！

说说使用方法吧（估计都会）：

　 在电脑屏幕的左下角按“开始→程序→附件→记事本”，把下面的文字复制进去,点“另存为”，路径选“桌面”，保存类型为“所有文件”，文件名为“清除系统LJ.bat”，就完成了。记住后缀名一定要是.bat，ok！双击它就能很快地清理垃圾文件，大约一分钟不到。

批处理文件：

全文阅读 »

全文阅读 »