易截截图软件、单文件、免安装、纯绿色、仅160KB

请高手帮我把这段vb代码转换成c#代码?

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 If

If (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
-- line 1 col 9: invalid NonModuleDeclaration


第一句似乎有错误 Private Function LShift(lValue, iShiftBits)

没有人会吗?



函数VB code:
Private Function LShift(lValue, iShiftBits)
为什么没有返回值呢


相关问答:

vb能否把winsock控件封装到dll中

vb将winsock控件封装到dll问题 有什么好的思路? 如果用Socket API呢?
例如,像下面这样封装Winsock控件,行的通?
创建ActiveX dll,添加窗体frmClient,加入WinSock控件wskClient。
类代码:
Option Expli ......

vb查询数据库问题

怎么优化查询的效率,比如我想从100万条记录中每次只查询100条记录的话,那么这条sql语句该怎么实现,注意:语言是VBScript的,
http://www.cnblogs.com/anjou/archive/2007/10/17/926944.html

涉及到算法,goog ......

vb.net 创建access数据表实现一数据库多个数据表?

请各位指点下:程序代码如下mingchen = "C:\文件路径\"
cat = New ADOX.Catalog
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & min ......

急求ASP。NETC#购物车代码

最近在做个网上商城,购物车模块,没有做过,麻烦各位帮忙说下大致说下思路,能发一份源码更好。小弟先谢过各位了;
QQ:413763818;
eamil:swebook@126.com
网上一大堆!

www.51aspx.com

去下 ......

北京 招对日VB工程师

招对日VB工程师
要求二年以上的VB经验
有过对日项目的最好,能看懂日语的
有合适的发简历到邮箱xiaocm2004@163.com

哥们
大连有你的地盘吗?


VB没做过咋整!

VB6倒是没问题,可惜不懂日 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号