Çó¼òµ¥µÄvb¼ÆËãÆ÷Ô´³ÌÐò
ÈçÌâ
ºÍ´óÈËÒ²À´Ð´³ÌÐò£¿
²Î¿¼
Æ®¹ý
ÎÒÓöµ½ÎÊÌâÒ»°ãÏÈ °Ù¶ÈËÑ>csdnÉϲéÌû>ʵÔÚûÓУ¬×Ô¼º±à
ÎÒÓÃGoogle
ÍÆ¼öÒ»¸ö:
http://zhidao.baidu.com/question/98674146.html
MSDNµÄÀý×ÓÀïÓÐCalcÀý³Ì£¬¿ÉÒÔÖ±½Óµ÷Ó㬳ÌÐòÈçÏ£º
VB code:
' ------------------------------------------------------------------------
' °æÈ¨ËùÓÐ (C) 1994 Microsoft Corporation
'
' Äú¿ÉÒÔÃâ·ÑÒÔÈκη½Ê½Ê¹Óá¢Ð޸ġ¢¸´ÖƲ¢·Ö·¢ÄúÈÏΪÓÐÓõÄ
' ʾÀýÓ¦ÓóÌÐòÎļþ (»òÈκÎÐ޸ĹýµÄ°æ±¾)¡£Microsoft ¶ÔÈκÎ
' ʾÀýÓ¦ÓóÌÐòÎļþ²»×öÈκα£Ö¤£¬²»¸ºÈκÎÔðÈκÍÒåÎñ¡£
' ------------------------------------------------------------------------
Option Explicit
Dim Op1, Op2 ' Ô¤ÏÈÊäÈë²Ù×÷Êý¡£
Dim DecimalFlag As Integer ' СÊýµã´æÔÚÂð£¿
Dim NumOps As Integer ' ²Ù×÷Êý¸öÊý¡£
Dim LastInput ' ָʾÉÏÒ»´Î°´¼üʼþµÄÀàÐÍ¡£
Dim OpFlag ' ָʾδÍê³ÉµÄ²Ù×÷¡£
Dim TempReadout
' C (È¡Ïû) °´Å¥µÄ Click ʼþ¹ý³Ì
' ÖØÐÂÉèÖÃÏÔʾ²¢³õʼ»¯±äÁ¿¡£
Private Sub Cancel_Click()
Readout = Format(0, "0.")
Op1 = 0
Op2 = 0
Form_Loa
Ïà¹ØÎÊ´ð£º
´ó¼ÒºÃ£¬Îʸövb´òÓ¡ÎÊÌâ
printer.print "dsff"
.....
....
Printer.EndDoc
´òÓ¡³É¹¦ºóÎÒ½«Ö´ÐÐ
sqlstr = "update vc_yh set pr=' ÒÑ´òÓ¡ ', ......
TF1.text = " <_2_ZCHGZBH> " & MSFlexGrid1.TextMatrix(k, 1) & " </_2_ZCHGZBH> "
´ó¼ÒºÃ£¬ÎÒÓÃÉÏÃæÒ»¸ö¶«Î÷¸³Öµ TF1.text = & ......
ÌâÄ¿ÃèÊöÓ¦¸Ã²»ÊǺÜ׼ȷ¡£
ÏÖ×´ÊÇ£º¼ÙÈçÒ»¸öÎı¾Îļþ¹²100ÐУ¬ÄÇôÎÒÑ»·´ÎÊý×î´ó¾ÍÊÇ100×100=10000Ï£¬»¨·Ñʱ¼ä·Ç³£¶à£¬ÇëÎÊÓÐûÓа취Äܹ»Ìá¸ß¶ÔÎı¾ÎļþµÄÑ»··ÃÎÊËÙ¶È¡£·ÇÊý¾Ý¿â¼¼Êõ¡£
ÄãҪѻ·×öʲô£ ......
ÎÒÓÃC#дÁËÒ»¸öCOM¡£
ÆäËûÓУ²¸öÀ࣬һ¸öÀà¾ÍÊÇÆÕͨ·½·¨¡£µ÷ÓÃûÎÊÌâ¡£
ÁíÒ»¸öÀàÊÇÓû§¿Ø¼þ¡£ÎÒÔÚVBÖÐÈçºÎ°ÑÄǸö¿Ø¼þÏÔʾ³öÀ´£¿
VBµ÷COMÖУ¬COM ÊǸö¿Ø¼þ¡£
лл¸ßÊÖÖ¸µã¡£
......