Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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²»Äܵ÷ÓÃ

ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿

1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......

¼ÙÇ°×îºóÒ»ÌûASPµ÷ÓÃVB×é¼þ

ÎÒÓÃ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 ......

Çë½ÌÓÃvb½«txtµ¼ÈësqlµÄÎÊÌâ

ÓÉÓÚÿÔ´ӱðµÄ¹«Ë¾ËÍÀ´Ò»¸ötxtÎļþ£¬¸ñʽÈçÏ£º
   
0023939608011»Æ¸ùÑø                                &n ......

VBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ

ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾ­Í¨¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË&# ......

VB HOOK API

    ¸÷룬ÇëÎʹ³×ÓÊÇÔõôÔËÐеİ¡£¿ÇëÏÈ¿´¿´ÎÒдµÄ´úÂ룺
Public hhook
Private Sub Command1_Click()
hhook = SetWindowsHookEx(2, AddressOf testhook, 0, App.ThreadID)
End Sub
ÒÔϵ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ