Private Function LShift(lValue, iShiftBits)
If iShiftBits = 0 Then
LShift = lValue
Exit Function
ElseIf iShiftBits = 31 Then
If lValue And 1 Then
LShift = &H80000000
Else
LShift = 0
End If
Exit Function
ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
Err.Raise 6
End IfIf (lValue And m_l2Power(31 - iShiftBits)) Then
LShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &H80000000
Else
LShift = ((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits))
End If
End Function
If iShiftBits = 0 Then
LShift = lValue
Exit Function
ElseIf iShiftBits = 31 Then
If lValue And 1 Then
LShift = &H80000000
Else
LShift = 0
End If
Exit Function
ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
Err.Raise 6
End IfIf (lValue And m_l2Power(31 - iShiftBits)) Then
LShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &H80000000
Else
LShift = ((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits))
End If
End Function
解决方案 »
- 关于c#操作配置文件的问题!(目前很纠结SVN配置文件)
- 麻烦各位网友帮我看看这段代码。先谢谢了。
- C#中的datagridview
- 怎样获取MySQL数据并在listview里显示
- 急!急!..........
- 学习C#网络编程
- 关于Flash控件的使用问题
- 怎样知道DataGridView某个单元格被修改了?我需要取出这个单元格的名称。
- 一个关于向DataSet填充大量数据的问题
- c# 一个简单的窗体上有一个按钮,想用另外的程序控制这个按钮 FindWindow()
- 哪有c#从入门到精通光盘下载
- this.Tkehu.Text = myds.Tables[0].Rows[0]["客户名称"].ToString()会出错
http://www.developerfusion.com/tools/convert/vb-to-csharp/