VB--02

VB编程技巧与控件应用

原创于 2021-10-09 16:31:57 发布 · 330 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vb6

1。布尔类型转换成0和1

eg：
声明变量：Public ShowMe As Boolean
转换成0和1 ： IIf(Frmfilter.ShowDetail, 1, 0)

2.VB中不允许传入null值，所以有参数是null值时，
要提前处理掉，可以利用isnull函数转换

可以在SQL部分，提前做处理，将null值转化为 0或 ‘’
可以在VB处理，

eg：
IIf(isnull（rs(5)）, 0, rs(5)) 
IIf(isnull（rs(5)）, '', rs(5))

3.VSFlexGrid控件
想要随意拖动列，属性AllowUserResizing，改为3：flexResizeBoth
即可
4.对于时间的函数

'参照这个弄其他的日期控件--原理：日期变更的时候重新设置另一个日期控件的最大值或最小值
Private Sub DTPicker1_Change()
DTPicker2.MinDate = DTPicker1.Value
End Sub
Private Sub DTPicker2_Change()
DTPicker1.MaxDate = DTPicker2.Value
End Sub
Private Sub DTPicker3_Change()
DTPicker4.MinDate = DTPicker3.Value
End Sub
Private Sub DTPicker4_Change()
DTPicker3.MaxDate = DTPicker4.Value
End Sub
Private Sub Form_Load()
DTPicker2.MinDate = "1999 / 1 / 1"
DTPicker1.MaxDate = "9999 / 12 / 31"
DTPicker4.MinDate = "1999 / 1 / 1"
DTPicker3.MaxDate = "9999 / 12 / 31"
End Sub

5.VB里sql代码的书写

eg：sql语句如下:

EXEC PROC_TEST 'TEST1','TEST2',1

则：对应VB的书写如下：

StrSql = " EXEC PROC_TEST '" & TEST1 & "','" & TEST2 & "','" & IIf(ShowMe, 1, 0) & "'"

'Private Sub Form_Load() '加载窗体
''Combo1.Text
''Combo1.ListIndex = 1
'End Sub

7.视图—监视窗口

8.VSFlexGrid控件
VSFlexGrid1.FixedRows = 1

9.image 控件
属性 DragMode ：表示该对象的拖动模式,
取值为：
0 Manual(手动)
1 Automatic(自动)