PrivateDeclareSubSetColorDepthLib"MakePDF417.dll"(ByRefnDepthAsInteger)PrivateDeclareSubGetColorDepthLib"MakePDF417.dll"()PrivateDeclareSubMixTextLib"MakePDF417.dll"(ByValszSrcBmpFileNameAsString,ByValszDstBmpFileNameAsString,ByValszTextAsString,ByVallFontSizeAsInteger,ByVallTxtHeightAsInteger,ByVallHmarginAsInteger,ByVallVmarginAsInteger,ByVallTxtCntOneLineAsInteger)PrivateDeclareSubMakeLib"MakePDF417.dll"(ByRefucDataAsByte,ByValnLenAsInteger,ByValszFileNameAsString,ByValnClumnAsInteger,ByValnErrAsInteger,ByValnHLRatioAsInteger,ByValnHeightAsInteger)PrivateSubButton1_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesButton1.ClickDima()AsBytea=System.Text.UnicodeEncoding.Unicode.GetBytes(StrConv(TextBox1.Text,VbStrConv.None))Make(a(2),UBound(a)-LBound(a)+1,"tmp.bmp",CInt(TextBox2.Text),CInt(TextBox3.Text),CInt(TextBox4.Text),CInt(TextBox6.Text))SetColorDepth(CInt(TextBox5.Text))GetColorDepth()Dimtmp,tmp2AsBitmaptmp=Image.FromFile(Application.StartupPath&"\tmp.bmp")tmp2=NewBitmap(tmp)tmp.Dispose()PictureBox1.Image=tmp2EndSub
1