vb ´òÓ¡PictureboxÀïµÄ¿Ø¼þ - VB / ¿Ø¼þ
    
	
	ÎÒÔÚPictureboxÉÏ·ÅÁËLabel¡¢Line¡¢CheckboxÓÉÓÚÊýÁ¿Ì«¶àPictureboxµÄ¸ß¶ÈÒѾ´ïµ½16470£¬Ò²¾ÍÊÇ˵ÊÇA4´óС£¬ÏÖÔÚÎÊÌâÊÇ´òÓ¡µÄʱºòÈ´´òÓ¡ÆÁÄ»ÏÔʾ²¿·Ö£¬ÒòΪÆÁÄ»£¨1024*768£©ÊÜÏÞÖÆÎÞ·¨Íê³ÉÈ«²¿´òÓ¡£¬ÎÒÊÔÁ˺ü¸ÖÖ·½·¨ºÃÊDz»ÖªµÀ¸ÃÔõô´¦Àí£¬ÎÒ¿´¹ý×ÊÁÏ˵¿ÉÒÔͨ¹ý×ø±êÀ´´òÓ¡£¬µ«ÎÒ²»Ì«¶®ÕâЩ£¡ÏëÇë½Ì¸öλÔõô²ÅÄܽ«Æä´òÓ¡Íê³É£¡×îºóÊÇÓдúÂëÒòΪÎÒ¶ÔVB´úÂë²»ÊǺÜÊìϤ£¬»ò·¢¸öÀý×Ó¸øÎÒjisklsw@163.com!ÂúÒâµÄÎÒÔÙ¼Ó100-200·Ö лл£¡¡¿
     Picture2.Height = Picture1.Height
     Picture2.AutoRedraw = True
     BitBlt Picture2.hDC, 0, 0, Picture1.Width / Screen.TwipsPerPixelX, Picture1.Height / Screen.TwipsPerPixelX, Picture1.hDC, 0, 0, vbSrcCopy
     Picture2.AutoRedraw = False
     Picture2.Refresh
     Printer.PaintPicture Picture2.Image, 0, 0
    'Printer.Zoom = 20
     Printer.EndDoc
ÉÏÃæ´úÂëÖ»ÄÜ´òµ½ÆÁÄ»ÏÔʾ²¿·Ö³¬³öµÄ¾Í´òÓ¡²»³öÀ´ÁË
ÎÒÊÔ¹ý·Ö¿ª´òÓ¡µ«È´±ä³ÉÁË´òÓ¡ÁËÁ½¸öÒ³Ãæ£¡ 
²»Òª¾ÐÄàÓÚpicturebox
±ØÒªµÄʱºòרÃÅΪ´òÓ¡Éè¼Æ²¼¾Ö£¬ÔÙÔõô˵£¬ÔÚÒ»¶¨µÄÖ½ÕÅÉϲ»¿ÉÄÜÈÝÄɹý¶àµÄ¶«Î÷¡£
²»Òª¾ÐÄàÓÚpicturebox
±ØÒªµÄʱºòרÃÅΪ´òÓ¡Éè¼Æ²¼¾Ö£¬ÔÙÔõô˵£¬ÔÚÒ»¶¨µÄÖ½ÕÅÉϲ»¿ÉÄÜÈÝÄɹý¶àµÄ¶«Î÷¡£
    
 
	Ïà¹ØÎÊ´ð£º
        
    
    ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
    
        
    
    ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code: 
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
    
        
    
        ¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ÔÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾÁ¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......
    
        
    
    СµÜÓÃVBµ÷EXCEL×÷ͼ
objExlApp.Workbooks.Add
     objExlApp.Charts.Add
     objExlApp.ActiveChart.ChartType = xlLine
     objExlApp.ActiveChart.HasLegend = True
     objExlApp. ......