vb´òÓ¡ÎÊÌâ
Printer.ScaleMode = 6 6±íʾºÁÃ× Printer.PaperSize = vbPRPSA4 '³õʼ×ø±ê x = 1 y = 4 '×î´óµÄÏß¿ð Printer.DrawStyle = 0 Printer.Line (x, y)-(x + 132.5, y) 'Æðµã×ø±ê-ÖÕµã×ø±ê Printer.DrawStyle = 0 Printer.Line (x + 132.5, y)-(x + 132.5, y + 194) 'Æðµã×ø±ê-ÖÕµã×ø±ê Printer.DrawStyle = 0 Printer.Line (x + 132.5, y + 194)-(x, y + 194) 'Æðµã×ø±ê-ÖÕµã×ø±ê Printer.DrawStyle = 0 Printer.Line (x, y + 194)-(x, y) 'Æðµã×ø±ê-ÖÕµã×ø±ê Îҵijõʼ×ø±êÊÇ1ºÁÃ׺Í4ºÁÃ×£¬µ«ÊÇÎÒ´òÓ¡ÔÚA4Ö½ÉÏÈ·ÊÇ8ºÁÃ׺Í8ºÁÃ×£¬ÎÒÓóßÁ¿ÁË£¬ºÜÆæ¹Ö£¬´ó¼Ò°ïæ¿´¿´Ê²Ã´ÔÒò£¿£¿£¿
ÊÇ·ñÒ³±ß¾àµÄÎÊÌ⣿ »¹ÊǸ㲻¶¨°¡ ´ó¼Ò°ï°ïæ°¡ÒýÓà Printer.ScaleMode = 6 6±íʾºÁÃ× Printer.PaperSize = vbPRPSA4 '³õʼ×ø±ê x = 1 y = 4 '×î´óµÄÏß¿ð Printer.DrawStyle = 0 Printer.Line (x, y)-(x + 132.5, y) 'Æðµã×ø±ê-ÖÕµã×ø±ê Printer.DrawStyle = 0 Printer.Line (x + 132.5, y)-(x + 132.5, y + 194) 'Æðµã×ø±ê-ÖÕµã×ø±ê Printer.DrawStyle = 0 Printer.Line (x + 132.5, y + 194)-(x, y + 194) 'Æðµã×ø±ê-ÖÕµã×ø±ê Printer.DrawStyle = 0 Printer.Line (x, y + 194)-(x, y) 'Æðµã×ø±ê-ÖÕµã×ø±ê Îҵijõʼ×ø±êÊÇ1ºÁÃ׺Í4ºÁÃ×£¬µ«ÊÇÎÒ´òÓ¡ÔÚA4Ö½ÉÏÈ·ÊÇ8ºÁÃ׺Í8ºÁÃ×£¬ÎÒÓóßÁ¿ÁË£¬ºÜ
Ïà¹ØÎÊ´ð£º
ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿ VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿ 1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿ 2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......
ÎÒÓÃVB°´MVCµÄ¹¹¼Üд×é¼þ¹©ASPµ÷Óà BLL²ã VB code: Private Dal As New moonPotato_DAL Public Sub inSertUser(Model As moonPotato_Model) Dal.InSertCls (Model) End Sub ASPÖе÷Óà VB c ......
ÓÉÓÚÿÔ´ӱðµÄ¹«Ë¾ËÍÀ´Ò»¸ötxtÎļþ£¬¸ñʽÈçÏ£º 0023939608011»Æ¸ùÑø &n ......
ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ? ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
¸÷룬ÇëÎʹ³×ÓÊÇÔõôÔËÐеİ¡£¿ÇëÏÈ¿´¿´ÎÒдµÄ´úÂ룺 Public hhook Private Sub Command1_Click() hhook = SetWindowsHookEx(2, AddressOf testhook, 0, App.ThreadID) End Sub ÒÔϵ ......