Çó¼òµ¥µÄ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
Ïà¹ØÎÊ´ð£º
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
TF1.text = " <_2_ZCHGZBH> " & MSFlexGrid1.TextMatrix(k, 1) & " </_2_ZCHGZBH> "
´ó¼ÒºÃ£¬ÎÒÓÃÉÏÃæÒ»¸ö¶«Î÷¸³Öµ TF1.text = & ......
ÒªÓÃvb´òÓ¡Ò»ÌõÏߣ¬³¤¶ÈÊÇ100ºÁÃ×Ôõôд£¿
¹Ø×¢
VB code:
Printer.ScaleMode = vbMillimeters
Printer.Line (10, 10)-(110, 10)
Printer.ScaleMode = vbMillimeters
Print ......
vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£
XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£
Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......
¾ÍÊÇÉè¼ÆÒ»¸ö¼ÆËã»úÄ£Ä⿼ÊÔϵͳ£¬´øÓÐѧÉúºÍ¹ÜÀíÔ±£¬ËùÒԵǼ´°ÌåºÍÖ÷´°ÌåÏë·Ö¿ª£¬µÇ½ѧÉúµÄÏÔʾѧÉúµÄÖ÷´°Ì壬µÇ½¹ÜÀíÔ±ÏÔʾ¹ÜÀíÖ÷´°Ì壬ÎÒÖ»»áÒ»¸ö´°ÌåÓÃÒ»¶Ñ¿Ø¼þ£¬ÏÖÔÚÏíÓжà¸öÖ÷´°Ì壬²»ÖªµÀÔõô×ö£¬Ï£ÍûÇë´ó ......