找VB高手当师傅，有报酬。
新手想学VB编程，找一位有时间、想为国家作贡献的高手当师傅~有意者+Q1578232695 来着注明~谢啦 --------------------编程问答-------------------- 境界比较低,只想着报酬,没敢想为国家作贡献. --------------------编程问答-------------------- 天天忙于建设祖国，基本没空想为国家做贡献。 --------------------编程问答-------------------- 想为国家作贡献的高手当师傅~有意者+Q1578232695 来着注明~谢啦 --------------------编程问答-------------------- 新手还是别学vb了 --------------------编程问答-------------------- 有意者+Q1578232695 来着注明~谢啦 --------------------编程问答-------------------- 楼主是男娃，有意者+Q1578232695 来着注明~谢啦。 --------------------编程问答-------------------- 报国就免了，报酬就可以！经济建设嘛！ --------------------编程问答-------------------- 温州高铁出事后，为国家干活的程序员都小心了，无证不能上岗，否则出事后，会被抓 --------------------编程问答-------------------- 为国家 我表示压力很大 --------------------编程问答-------------------- 有谁想学VB的可以找我'┏〓〓〓〓〓〓〓〓〓 SaveHwndPic,start 〓〓〓〓〓〓〓〓〓┓
'［定义］：
Private Declare Function PrintWindow Lib "user32" (ByVal SrcHwnd As Long, ByVal DesHDC As Long, ByVal uFlag As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal Hwnd As Long, lpRect As RECT) As Long '取得窗体位置的函数
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
'［简介］：
'快速截图并保存图片
Function SaveHwndPic(Hwnd As Long, SaveFileName As String, Picture1 As PictureBox) As Boolean
'[mycode_id:1969],edittime:2011-8-18 上午 09:22:36
On Error GoTo Err
Dim R As RECT
GetWindowRect Hwnd, R
Picture1.Width = (R.Right - R.Left) * Screen.TwipsPerPixelX
Picture1.Height = (R.Bottom - R.Top) * Screen.TwipsPerPixelY
PrintWindow Hwnd, Picture1.hDC, 0
Picture1.Refresh
SavePicture Picture1.Image, SaveFileName
SaveHwndPic = True
Exit Function
Err:
MsgBox Err.Description
End Function
'┗〓〓〓〓〓〓〓〓〓 SaveHwndPic,end 〓〓〓〓〓〓〓〓〓┛
--------------------编程问答-------------------- --------------------编程问答-------------------- 我需要一个函数，描述如下：
'功能描述：可以按照指定要求打印钞票
'函数名:printMoney
'入口参数：
' 1.intAmount 类型为integer，表示单张钞票金额
' 2.lngCount 类型为long，表示印刷张数
' 3.strType 类型为enum，表示钞票种类，具体参考枚举类型money_type的定义（美元、英镑、欧元等，除人民币）
'返回值:类型为boolean，true表示打印成功，false表示打印失败
价格好商量，支付宝交易 --------------------编程问答-------------------- 我需要一个函数，描述如下：
'功能描述：可以按照指定要求打印钞票
'函数名:printMoney
'入口参数：
' 1.intAmount 类型为integer，表示单张钞票金额
' 2.lngCount 类型为long，表示印刷张数
' 3.strType 类型为enum，表示钞票种类，具体参考枚举类型money_type的定义（美元、英镑、欧元等，除人民币）
'返回值:类型为boolean，true表示打印成功，false表示打印失败
价格好商量，支付宝交易 --------------------编程问答-------------------- 还有新手想学 VB的 这年头，稀罕了~~~ --------------------编程问答--------------------
你太有才了…… --------------------编程问答-------------------- 我都是为钱小李的，从来不敢为国 --------------------编程问答-------------------- VB code
'功能描述：可以按照指定要求打印钞票
'函数名:printMoney
'入口参数：
' 1.intAmount 类型为integer，表示单张钞票金额
' 2.lngCo……
这个函数可以开发的 --------------------编程问答--------------------
最重要的目的：打印出来后要能用得掉的…… --------------------编程问答--------------------
--------------------编程问答--------------------
'回应楼主
private function ReponseLz() as String
dim s as string
s="VB是个对语言界很有贡献的语言"+vbcrlf
s=s+"但是C#已经全盘继承了VB的所有优点"+vbcrlf
s=s+"劝楼主学C#"
return s
end sub
拼音啊拼音,万恶的拼音.....我的CPU分析了半天才分析出来..............
--------------------编程问答--------------------
老兄，还在找师傅啊，说说什么报酬吧 --------------------编程问答--------------------
你能分析出来已经非常不错了。我到现在还没分析出来呢。可能算死机了。
补充：VB , 非技术类
