1、强制类型转换:
CByte(),CInt(),CLng(),CStr()
直接乘或者除2^n,注意 / 和 \ 的区别,/ 会保留小数,\ 会舍去小数部分,在移位时记得用 \。
或者用一下移位函数:
2、移位:
'1.逻辑左移
Public Function SHL(ByVal OPR As Byte,n As Integer) As Byte
Dim BD As Byte
Dim I As Integer
BD = OPR
For i = 1 To n - 1
BD = (BD And &H7F) * 2 '将D7位屏蔽左移,防止字节溢出
Next i
CF = BD And &H80 '判断D7位是否进位
SHL = (BD And &H7F) * 2
End Function
'2.逻辑右移
Public Function SHR(ByVal OPR As Byte,n As Integer) As Byte
Dim BD As Byte
Dim I As Integer
BD = OPR
For i = 1 To n - 1
BD = BD \ 2 '右移
Next i
CF = BD And 1 '判断D0位是否进位
SHR = BD \ 2
End Function
4、判断Check的选中与否,注意它的Value不是True和False,而要用0、1、2。
5、对于一个窗口而言,改变ScaleMode可以改变窗口里的控件的计量单位,但是
窗口本身的Left、Top、Width、Height的单位还是Twip。