PowerBuilder QRCode API Generator
source code example w_main from window
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 |
forward global type w_main from window end type type cb_1 from commandbutton within w_main end type type sle_text from singlelineedit within w_main end type type sle_blocksize from singlelineedit within w_main end type type st_1 from statictext within w_main end type type st_2 from statictext within w_main end type type p_1 from picture within w_main end type end forward global type w_main from window integer width = 1998 integer height = 1496 boolean titlebar = true string title = "PowerBuilder QRCode API Generator" boolean controlmenu = true boolean minbox = true boolean maxbox = true boolean resizable = true long backcolor = 67108864 string icon = "AppIcon!" boolean center = true cb_1 cb_1 sle_text sle_text sle_blocksize sle_blocksize st_1 st_1 st_2 st_2 p_1 p_1 end type global w_main w_main type prototypes Subroutine MakeQRCode(string ucData, long nDataLen,long nErrLevel,long nMask, integer nBarEdition, string szBmpFileName, long nScale) library "MakeQRBarcode.dll" alias for "Make;Ansi" end prototypes on w_main.create this.cb_1=create cb_1 this.sle_text=create sle_text this.sle_blocksize=create sle_blocksize this.st_1=create st_1 this.st_2=create st_2 this.p_1=create p_1 this.Control[]={this.cb_1,& this.sle_text,& this.sle_blocksize,& this.st_1,& this.st_2,& this.p_1} end on on w_main.destroy destroy(this.cb_1) destroy(this.sle_text) destroy(this.sle_blocksize) destroy(this.st_1) destroy(this.st_2) destroy(this.p_1) end on type cb_1 from commandbutton within w_main integer x = 1591 integer y = 140 integer width = 334 integer height = 104 integer taborder = 20 integer textsize = -10 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" string text = "Generator" end type event clicked;String ls_file,ls_text ls_text = sle_text.text ls_file = 'C:\barcode.bmp' filedelete(ls_file) p_1.picturename = "" MakeQRCode(ls_text, LenA(ls_text), 1, 0, 0, ls_file,dec(sle_blocksize.text)) p_1.picturename = ls_file end event type sle_text from singlelineedit within w_main integer x = 379 integer y = 40 integer width = 1541 integer height = 88 integer taborder = 10 integer textsize = -10 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 string text = "https://pblib.com" borderstyle borderstyle = stylelowered! end type type sle_blocksize from singlelineedit within w_main integer x = 379 integer y = 144 integer width = 283 integer height = 88 integer taborder = 20 integer textsize = -10 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 string text = "5" borderstyle borderstyle = stylelowered! boolean righttoleft = true end type type st_1 from statictext within w_main integer x = 82 integer y = 156 integer width = 297 integer height = 64 integer textsize = -10 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long backcolor = 67108864 string text = "Blocksize:" alignment alignment = right! boolean focusrectangle = false end type type st_2 from statictext within w_main integer x = 82 integer y = 44 integer width = 297 integer height = 64 integer textsize = -10 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long backcolor = 67108864 string text = "Text:" alignment alignment = right! boolean focusrectangle = false end type type p_1 from picture within w_main integer x = 82 integer y = 288 integer width = 1842 integer height = 1068 boolean originalsize = true boolean focusrectangle = false end type |
Find Projects On Github click here
Good Luck!
Subscribe
Login
0 Comments
Oldest