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”)

全文阅读 »