VB做的邮件称重拍照记录工具Word文件下载.docx

1、13. 拍照必需的API14. PrivatecapCreateCaptureWindowavicap32.dll15. capCreateCaptureWindowAlpszWindowNamedwStyle16. XYnWidthnHeight17. hWndParentnIDLong）18. 19. PrivateConstWS_CHILD=&H4000000020. PrivateWS_VISIBLEH1000000021. PrivateWM_USERH40022. PrivateWM_CAP_START23. PrivateWM_CAP_EDIT_COPY（WM_CAP_START

2、+30）24. PrivateWM_CAP_DRIVER_CONNECT10）25. PrivateWM_CAP_SET_PREVIEWRATE52）26. PrivateWM_CAP_SET_OVERLAY51）27. PrivateWM_CAP_SET_PREVIEW50）28. PrivateWM_CAP_DRIVER_DISCONNECT11）29. PrivatePreview_Handle30. 31. PrivateSendMessageuser3232. SendMessageAhwndwMsg33. ByValwParamlParamAny）34. =end35. 36. 用

3、GDI+保存图片为JPG、TIFF、PNG、GIF、BMP等格式的API37. PrivateTypeGUID38. Data139. Data2Integer40. Data341. Data4（0To7）Byte42. End43. PrivateGdiplusStartupInput44. GdiplusVersion45. DebugEventCallback46. SuppressBackgroundThread47. SuppressExternalCodecs48. End49. PrivateEncoderParameter50. 51. NumberOfValues52. t

4、ype53. Value54. End55. PrivateEncoderParameters56. count57. Parameter58. End59. 60. PrivateGdiplusStartupGDIPlus（tokeninputbufGdiplusStartupInput,Optionaloutputbuf0）61. PrivateGdiplusShutdowntoken62. PrivateGdipCreateBitmapFromHBITMAPhbmhPalBITMAP63. PrivateGdipDisposeImageImage64. PrivateGdipSaveIm

5、ageToFileFileNameclsidEncoderGUID,encoderParams65. PrivateCLSIDFromStringole32StridGUID）66. PrivateCopyMemoryRtlMoveMemory（DestSrccb67. 68. 69. 公共变量70. DimxlAppExcel.Application71. DimxlBookExcel.Workbook72. DimxlSheetExcel.Worksheet73. 74. DimmodFile,datPath,datFile,datFullName,SerialPort,picPath,O

6、perateMode,TimeOut,TrackUrlString75. DimMaxrow,Total76. DimCurDateDate77. 作为函数的参数变量要单独定义78. DimEmsCode79. 80. 81. 拍摄图片测试82. PrivateSubCmdPicTest_Click（）83. 拍摄图片84. Image1.PictureCapturePicture（Preview_Handle）85. 保存图片86. If0Then87. SavePictureImage1.Picture,App.PathPicTest.bmp88. Else89. MsgBox摄像头无效，

7、请检查！,vbOKOnly,iamlaosong90. End91. SavePicPicTest.jpg.jpg92. 93. End94. 95. 96. 初始化97. PrivateForm_Load（）98. 界面初始化，显示版本信息99. Form1.Caption-邮政速递安徽省分公司Ver:iamlaosong-20160706100. 101. LabNumber.Caption102. 读取参数103. modFileGetIniStr（Modfile重量记录模板.xls）104. datPathDatpathApp.Path）数据保存路径105. TimeOutTimeOu

8、t0串口通信超时，0表示不设置超时106. Dir（datPath,vbDirectory）vbNullString107. MkDir创建文件夹108. 109. Right（datPath,1）110. 111. Httphttp:/10.3.10.83/ems/112. WebBrowser1.VisibleTrue113. WebBrowser1.Navigate114. 115. SerialPortDeviceCOM1116. OperateModeMode1117. 设置串口118. SetComm119. 摄像头初始化120. SetViedo121. End122. 123.

9、 日期调整124. PrivateCmdDate_Click（IndexInteger）125. Index126. 1127. 128. -129. 130. 131. End132. 133. 开始扫描称重，如当天的记录文件存在，则继续添加134. PrivateCmdBegin_Click（）135. 136. SetCreateObject（Excel.Application创建EXCEL对象137. 检查记录文件138. datFileFormat（CurDate,yyyymmdd139. datFullName140. Dir（datFullName,vbNormal）141. F

10、ileCopy将源文件的内容复制到目的文件中。142. 143. 检查图像目录144. picPathPic145. Dir（picPath,146. 147. 148. 149. 150. 打开记录文件151. xlApp.Workbooks.Open（datFullName）打开文件152. xlApp.Visible设置EXCEL对象可见（或不可见）153. xlBook.Worksheets（表名设置活动工作表154. 155. xlBook.Worksheets（1）156. MaxrowxlSheet.Cells（65536,2）.End（xlUp）.Row157. xlBook.

11、ReadOnly158. xlBook.Close159. xlApp.Quit结束EXCEL对象160. Nothing释放xlApp对象161. 文件已打开，请先关闭！162. 163. 164. 打开串口165. MSComm1.InBufferCount清除接收缓冲区166. NotMSComm1.PortOpen167. 打开通信端口168. 169. 打开输入框170. TxtCode.Enabled171. TxtWeight.Enabled172. CmdDate（0）.VisibleFalse173. CmdDate（1）.Visible174. 175. TxtCode.T

12、ext176. TxtWeight.Text177. CmdEnd.Enabled178. LabState.Caption邮件记录：179. LabNumber.FontSizeLabState.FontSize2180. 181. 182. TxtCode.SetFocus183. 184. 185. End186. 187. 188. 退出（按回车）重量文本框记录一条邮件信息189. PrivateTxtCode_KeyPress（KeyAscii190. DimErrBoolean191. 192. KeyAscii13193. 194. ChkCode.ValueChecked195

13、. 判断号码是否规范196. Len（EmsCode）197. ChkMailCode（EmsCode）检查邮件号码是否正常（正常时返回True）198. 199. 200. 201. 202. 经校验，邮件号码有误！203. 204. ChkMailDuplicate（EmsCode）205. 206. 经检查，邮件号码重复！207. TxtCode.SelStart208. TxtCode.SelLengthLen（TxtCode.Text）209. 210. Exit211. 212. 213. 214. 215. 216. 217. 218. 219. 220. 221. CmdGetweight_Click222. 223. 224. CmdGetweight.SetFocus225. 226. 227. End228. 229. 退出（按回车）重量文本框记录一条邮件信息-用于手工录入重量230. PrivateTxtWeight_KeyPress（KeyAscii231. 232. 保存一条记录233. 234. xlSheet