VB的一些小问题总结

发布时间：2020-12-17 08:10:43 所属栏目：百科来源：网络整理

导读：1、强制类型转换： CByte(),CInt(),CLng(),CStr() 2、移位：直接乘或者除2^n，注意 / 和的区别，/ 会保留小数，会舍去小数部分，在移位时记得用。或者用一下移位函数： '1.逻辑左移 Public Function SHL(ByVal OPR As Byte,n As Integer) As Byte D

1、强制类型转换：

CByte(),CInt(),CLng(),CStr()

2、移位：

直接乘或者除2^n，注意 / 和的区别，/ 会保留小数，会舍去小数部分，在移位时记得用。

或者用一下移位函数：

'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

3、Picture把AutoSize设为True后会自适应图像大小，此时图片框的Width和Height都会比实际图片大4个像素。注意是4个像素，如果单位是Twip的话就会大4*15=60。

4、判断Check的选中与否，注意它的Value不是True和False，而要用0、1、2。

5、对于一个窗口而言，改变ScaleMode可以改变窗口里的控件的计量单位，但是窗口本身的Left、Top、Width、Height的单位还是Twip。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!