ä¸ãæ¡å½¢ç ç读å
ç¨è¿é®çå£å¼çæ«æ¡ç å·¥å
·çæåå°±ç¥éï¼å®å°±å¦åå¨é®çä¸æä¸æ°åé®ä¸æ ·ï¼åºæ¬ä¸éä»»ä½ç¼ç¨åå¤çãä½å¦æä½ ä½¿ç¨çæ¯å
¶å®æ¥å£çè¯ï¼å¯è½ä½ å°±è¦ä¸ºè¯¥è®¾å¤ç¼åé讯代ç äºã以ä¸æä¸æ®µç®åç25é串å£çæ¡ç 读åå¨é讯代ç ã
Option Explicit
Dim sData As String
Private Sub Form_Load()
With MSComm1
.CommPort = 3 '设为COM3ï¼è¯è¿è¡çç³»ç»èå®ï¼ä½ å¯æä¾ä¸ä¸ªCombox让ç¨æ·éæ©ã
.PortOpen = Trueã'æå¼é讯端å£
End With
End Sub
Private Sub MSComm1_OnComm()
Dim EndPos As Integer
Select Case MSComm1.CommEvent
Case comEvReceive 'å½ææ°æ®ä¼ éè¿æ¥æ¶
sData = sData & Trim(MSComm1.Input)
'æ£ç´¢å车,é常读å¡æºæ¯ç»æ°æ®ç»å°¾é½è¿åä¸ä¸ªå车ä½ä¸ºç»æ符
EndPos = InStr(1, sData, Chr(13))
If EndPos = 0 Then 'å¦ææªç»æ就继ç»åªå
Else '读å®ä¸ç»ã
lblBarCode.Caption = sData 'æ¾ç¤ºä¸ç»æ¡å½¢ç
With lstBarCode
.AddItem Mid(sData, 1, EndPos - 1) 'æ·»å ä¸ç»æ¡å½¢ç å°å表
End With
sData = "" 'æ¸
空
End If
End Select
End Sub
Private Sub cmdEnd_Click()
MSComm1.PortOpen = False 'å
³é端å£
End
End Sub
äºï¼æ¡å½¢ç ççæ
å¨VBä¸ç¼ç¨æ¬æ¥å°±ä¸é¾ã以ä¸å
³äºæ¡å½¢ç çæç代ç ä¹æ¯å¾å®¹æç解ï¼åªé使ç¨ä¸ä¸ªOFFICEçé带ç BarCodeæ§ä»¶å°±å¯ä»¥è½»æ¾æå°åº11ç§ä¸åæ åçæ¡å½¢ç ï¼è¶³ä»¥æ»¡è¶³æ们çè¦æ±ãæ³èµ·æ书æ¶ä¸çä¸æ¬ä¹¦ä¸çä¸ç¯ç¨Turbo Cç¼åæ¡å½¢ç æå°ç¨åºæç« ï¼é¿ç¯å¤§è®ºï¼é£æ¶ä¸ç¥çäºn天ï¼æäºnå°æ¶åç»æä¹ä¸å°½äººæï¼ç°å¨çæ¯å¹¸ç¦å¤äº:)ãåºè¯è¯´å®ï¼å¾åå½æ£é¢ãä¸çæ¡å½¢ç çæç代ç åæå
³è¯´æã
æºä»£ç 主è¦ç±ä¸¤ä¸ªçªä½ï¼frmMain主çªä½åfrmOptionæ¡ç 设置çªä½ï¼å两个模åç»æ(modGetScreen.basãSysDLG32.bas)ãèèå°ç¯å¹
ï¼è¿éåªååºé¨åè¾ä¸ºå
³é®ç代ç ã
æ°å»ºä¸ä¸ªæ åå·¥ç¨ï¼æ·»å ä¸ä¸ªå为(Microsoft Access BarCode
Control9)çæ¡å½¢ç é¨ä»¶ï¼å¹¶æ·»å ä¸ä¸ªæ¡ç æ§ä»¶å°çªå£ï¼å¹¶å°çªå£æ¹å为frmMainï¼å¦å¾æ示ãç±äºæ§ä»¶æ¯è¾å¤ï¼è¿éä¸ä¾¿ç»è¯´ï¼è¯¦ç»å
容请çæºä»£ç ã
模åmodGetScreen.bas代ç å¦ä¸ï¼
Option Explicit
声æBitBltãGetDesktopWindowãGetWindowDCãReleaseDCè¿å 个APIå½æ°ç¥
Public RegUser As Boolean
Sub GetObjImage1(Obj As Object, OwnerForm As PictureBox, Picture1
As PictureBox)
'hDC
Dim hWndDesk As Long
Dim hDCDesk As Long
'åºå表达åé
Dim x As Long
Dim y As Long
Dim w As Long
Dim h As Long
x = Obj.Left Screen.TwipsPerPixelX
y = Obj.Top Screen.TwipsPerPixelY
w = Obj.Width Screen.TwipsPerPixelX
h = Obj.Height Screen.TwipsPerPixelY
hDCDesk = OwnerForm.hdc
'ååºå¾å
Call BitBlt(Picture1.hdc, 0, 0, w, h, hDCDesk, x, y,
vbSrcCopy)
Call ReleaseDC(hWndDesk, hDCDesk)
End Sub
主çªä½frmMain.frmé¨å代ç å¦ä¸ï¼
Private Sub cmdPrint_Click()
'çææ¡å½¢ç å¾å
Dim r As Long, i As Integer, t As String,cfile As
String '临æ¶åé
t = BarCode
For i = 0 To Val(Times) - 1
BarCode1.Value = BarCode + i
DoEvents
Picture1.Refresh
GetObjImage1 BarCode1, Conel, Picture1
If RegUser = False Then 'å¦ææªæ³¨åæ·»å MASKæ è®°
Picture1.PaintPicture Picture2.Picture, 300, 300
End If
If Dir(SavePath, vbDirectory) = "" Then MkDir SavePath
SavePath = SavePath & IIf(Right(SavePath, 1) <> "", "",
"")
cfile = SavePath & BarCode1.Value & ".bmp"
SavePicture Picture1.Image, cfile 'å°æ¡å½¢ç ä¿å为å¾åæ件以便æå°
Next
BarCode = t
End Sub
æ¡å½¢ç 设置çªä½frmOption.frm代ç å¦ä¸ï¼
Option Explicit
'æ¡å½¢ç 设置模å
Private Sub cboBig_Click()
BarCode1.Style = cboBig.ListIndex 'æ¹åæ å
End Sub
Private Sub cboDirection_Click()
BarCode1.Direction = cboDirection.ListIndex 'æ¹åæ¹å
End Sub
Private Sub cboLine_Click()
BarCode1.LineWeight = cboLine.ListIndex 'æ¹å线宽
End Sub
Private Sub cboSmall_Click()
BarCode1.SubStyle = cboSmall.ListIndex 'æ¹åæ ·å¼
End Sub
Private Sub Check1_Click()
BarCode1.ShowData = Check1.Value 'æ¯å¦æ¾ç¤ºæ°æ®
End Sub
Private Sub cmdChange_Click()
'设置é¿ã宽大å°
BarWidth = BarCode1.Height
BarHeight = BarCode1.Width
cmdRefresh_Click
End Sub
Private Sub cmdOK_Click()
'ä¼ éæ¡å½¢ç 设å®å°ä¸»çé¢
With frmMain.BarCode1
.LineWeight = BarCode1.LineWeight
.Style = BarCode1.Style
.SubStyle = BarCode1.SubStyle
.Direction = BarCode1.Direction
.Width = BarCode1.Width
.Height = BarCode1.Height
.ShowData = BarCode1.ShowData
Me.Hide
End With
With frmMain
.Picture1.Width = .BarCode1.Width
.Picture1.Height = .BarCode1.Height
.Conel.Width = .BarCode1.Width
.Conel.Height = .BarCode1.Height
End With
End Sub
Private Sub cmdRefresh_Click()
BarCode1.Width = BarWidth
BarCode1.Height = BarHeight
End Sub
Private Sub Form_Load()
LoadBarInfo
BarWidth = BarCode1.Width
BarHeight = BarCode1.Height
End Sub
Sub LoadBarInfo() 'åå§åé项
LoadBigClass cboBig
LoadSmallClass cboSmall
LoadLineSize cboLine
LoadDirection cboDirection
End Sub
Sub LoadBigClass(cbo As ComboBox) 'æ¡ç æ å
With cbo
.AddItem "UPC-A"
.AddItem "UPC-E"
.AddItem "EAN-13"
.AddItem "EAN-8"
.AddItem "Case Code"
.AddItem "Codabar (NW-T)"
.AddItem "Code-39"
.AddItem "Code-128"
.AddItem "U.S. Postnet"
.AddItem "U.S. Postal FIM"
.AddItem "JP Post"
.ListIndex = 2
End With
End Sub
Sub LoadSmallClass(cbo As ComboBox) 'æ¡ç æ ·å¼
With cbo
.AddItem "Standard"
.AddItem "2-Digit Supplement"
.AddItem "5-Digit Supplement"
.AddItem "POS Case Code"
.ListIndex = 0
End With
End Sub
许å¤äººå¨ç¼åæ°æ®åºåºç¨ç¨åºæ¶ï¼é½æ³è¦å ä¸æ¡å½¢ç åè½å 强工ä½æçï¼å°¤å
¶æ¯éå®ç®¡çï¼å¾ä¹¦é¦ç®¡çè¿ç±»æµé大çåºç¨è½¯ä»¶ï¼ä½ç±äºæ¡å½¢ç ææ¯é¾ä»¥ææ¡ãæ è°åå¤ä»¥åè¿å»çææ¯ç§ç§åå ï¼ä½¿å¾è®¸å¤äººæèå´æ¥ãæ¬æä»ç»çä¸å¥ç®åå®ç¨çæ¡å½¢ç 解å³æ¹æ³ï¼å¸æè½å¸®å©åä½å®å软件系ç»çåè½ã
追é®å
¶å® æå°±æ¯æ³ æä¸å¯ æ¡å½¢ç çå¾çï¼ç¨VB å¤æï¼æ¯å¦åæ¥çæ¡å½¢ç
å
¶å®ä½ 们ä¸é¢çæ¯ä»ä¹çï¼
æ¡å½¢ç å¤æ æ¯ä¸æ¯ï¼é å¾ççåç´ å¤æï¼ ä¸¤ä¸ªåªè¦ç¸ççè¯ï¼å°±å¤æ为true
追çä½ çé®é¢å·²ç»è¶
åºäºæ¡å½¢ç è¯å«çèå´äºã
é åç´ æ¥å¤æä¸¤å¼ å¾çæ¯å¦ä¸æ ·æ¯è¾é¾,ç»ä½ 个æ¹æ³ï¼æå¾çæ ¹æ®æ件çbyte[]çæä¸ä¸ªmd5ç ï¼åå
¥æ°æ®åºï¼éè¿å¯¹æ¯æ°æ®åºä¸çMD5ç æ¥å¤æä¸¤å¼ å¾çæ¯å¦ä¸æ ·çï¼è¿ç§æ¹æ³æ¯è¾å¿«æ·ã
åèèµæï¼www.51saomiao.com