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

Çó¼òµ¥µÄvb¼ÆËãÆ÷Ô´³ÌÐò

ÈçÌâ
ºÍ´óÈËÒ²À´Ð´³ÌÐò£¿

²Î¿¼

Æ®¹ý

ÒýÓÃ
²Î¿¼

ÎÒÓöµ½ÎÊÌâÒ»°ãÏÈ °Ù¶ÈËÑ>csdnÉϲéÌû>ʵÔÚûÓУ¬×Ô¼º±à

ÒýÓÃ
ÒýÓà 2 Â¥ caozhy µÄ»Ø¸´:
²Î¿¼

ÎÒÓöµ½ÎÊÌâÒ»°ãÏÈ °Ù¶ÈËÑ>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ÈçºÎ¸øD3DÓÎϷдÆÁ - VB / API

ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......

VB ×Ö·ûÎÊÌâ

  TF1.text = " <_2_ZCHGZBH> " & MSFlexGrid1.TextMatrix(k, 1) & " </_2_ZCHGZBH> "
   

´ó¼ÒºÃ£¬ÎÒÓÃÉÏÃæÒ»¸ö¶«Î÷¸³Öµ  TF1.text = & ......

vb´òÓ¡

ÒªÓÃvb´òÓ¡Ò»ÌõÏߣ¬³¤¶ÈÊÇ100ºÁÃ×Ôõôд£¿
¹Ø×¢

VB code:
Printer.ScaleMode = vbMillimeters
Printer.Line (10, 10)-(110, 10)

    Printer.ScaleMode = vbMillimeters
    Print ......

vbÓëxmlÎÊÌâ

vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£

XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£

Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......

VBÈçºÎÁªÏµÁ½¸ö´°Ì壿

¾ÍÊÇÉè¼ÆÒ»¸ö¼ÆËã»úÄ£Ä⿼ÊÔϵͳ£¬´øÓÐѧÉúºÍ¹ÜÀíÔ±£¬ËùÒԵǼ´°ÌåºÍÖ÷´°ÌåÏë·Ö¿ª£¬µÇ½ѧÉúµÄÏÔʾѧÉúµÄÖ÷´°Ì壬µÇ½¹ÜÀíÔ±ÏÔʾ¹ÜÀíÖ÷´°Ì壬ÎÒÖ»»áÒ»¸ö´°ÌåÓÃÒ»¶Ñ¿Ø¼þ£¬ÏÖÔÚÏíÓжà¸öÖ÷´°Ì壬²»ÖªµÀÔõô×ö£¬Ï£ÍûÇë´ó ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ