¹ØÓÚÓÃvb´¦ÀítxtµÄÎÊÌâ
ÓÉÓÚÿÔ´ӱðµÄ¹«Ë¾ËÍÀ´Ò»¸ötxtÎļþ£¬¸ñʽÈçÏ£º
0023939608011»Æ¸ùÑø 1000 0100100 E
0025069060011»ÆÕñÔ« 4440 0100200 Y
0038270387011ÕÔÈÙÐÂ 1680 0100300 Y
0024431448011»Æ¹ÛÅó 360 0100400 Y
0023759723011Àî¹ØÕ× 600 0100500 Y
ÎÒÏëÏÈ°ÑtxtÎļþ´¦Àí³ÉÿÁÐÓÃÒ»¸ö¿Õ¸ñ·Ö¿ª£¬·½±ãµ¼ÈësqlÊý¾Ý¿â£¬±¾À´ÏëÓà Mid º¯Êý´¦Àí£¬µ«ÊÇÎÒ²»ÄÜÈ·¶¨ËÍÀ´µÄtxtÎļþ¸ñʽһÑù£¬ÓÈÆäÊÇÿÁÐÖ®¼äµÄ¿Õ¸ñÊý£¬Èç¹û²»Í¬¾Í»á³öÎÊÌâÁË¡£
Çë½Ìϸ÷λÎÒÓ¦¸ÃÓÃʲô·½·¨¿ÉÒÔ´¦Àí£¬Âé·³´ó¼Ò°ÑÀý×Ó´úÂëҲдÏ£¬ÎÒvb±È½Ï²ËµÄ£¬ºÇºÇ
do while(instr(s," ")>0)
s=replace(s," "," ")
loop
ÓÃÕýÔòÓ¦¸Ã·½±ãµã£
Ïà¹ØÎÊ´ð£º
ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿
1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......
Printer.ScaleMode = 6
6±íʾºÁÃ×
Printer.PaperSize = vbPRPSA4
'³õʼ×ø±ê
x = 1
y = 4
'×î´óµÄÏß¿ð
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
ÎÒÖªµÀÔÚVBÖе÷ÓÃϵͳµÄ¼ÆËãÆ÷ ¿ÉÒÔÓÃshell
¿ÉÊÇÒªÊÇÒªÇó¸ßµã µ÷Óúó Ö±½Ó¼ÆËã ²¢°Ñ¼ÆËã½á¹ûÏÔʾÔÚÎı¾¿òÀï
±ÈÈç ÔÚµã»÷°´Å¥1 µ÷ÓüÆËãÆ÷ °ÑÖ¸¶¨µÄ¶þ½øÖÆת»»Îª16½øÖÆ ²¢ÏÔʾÔÚ text1
×ÔÒÑ×öÒ»¸ö¼ÆËãÆ÷~ ......
Ò»µÀVBС³ÌÐò
ÓÐÁ½¸öÁбí¿òlist1¡¢ list2 ¡£list1Öгõʼ»¯ÓÐ15¸ö²»Í¬µÄ×Öĸ£¬¶ølist2ÖÐÊÇ¿Õ°×µÄ »¹ÓÐÒ»¸ö°´Å¥command1,Ñ¡ÖÐlist1ÖеÄÈÎÒâ¶à¸öÏîÄ¿ È»ºóµã»÷°´Å¥command1,ÔòÔÚlist2ÖÐÏÔʾlist1Öб»Ñ¡ÖеÄÏîÄ¿¡£µ±¶ ......
ÓÃvbµÄpicture¿Ø¼þ¿ÉÒÔ¼ÓÔØpicture¿Ø¼þ,ÀýÈç
Set Picture1.Container = Picture3
ÕâÑù¾Í°ÑPicture1¼ÓÔص½ÁËPicture3ÉÏ,ÄÇôÔõô´ÓPicture3жÔصôPicture1ÄØ?
Çë¸÷λÅóÓÑ°ïæ!лл!!
×öÁËÒ»¸öÊÔÑé,½«Pictur ......