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
±ØÒªµÄʱºòרÃÅΪ´òÓ¡Éè¼Æ²¼¾Ö£¬ÔÙÔõô˵£¬ÔÚÒ»¶¨µÄÖ½ÕÅÉϲ»¿ÉÄÜÈÝÄɹý¶àµÄ¶«Î÷¡£
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ÔÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾÁ¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......