vb picturebox ½ØÍ¼µÄÎÊÌâ
ÎÒÓÐÒ»¸öpicturebox ,Àï±ßÎÒ»ÁËͼÐΣ¬»¹Óпؼþ£¬»¹ÓÐÎÄ×Ö£¬²¢ÇÒpicture±ÈÆÁÄ»´ó£¬´ø¹ö¶¯ÌõµÄ¡£ÇëÎÊÎÒÔõô²ÅÄܹ»°ÑÕâ¸öpictureÉϵÄËùÓж«Î÷±£´æ»òÕß´òÓ¡³öÀ´£¿£¿£¿
ÊÔÒ»ÊÔ: ME.PrintForm ÓÃPrintForm£¬±»ÕڸǵIJ¿·Ö¿Ï¶¨´òÓ¡²»³ö£¬ÎÒÏ뻹ÐèÒªÍ϶¯»¬¿é£¬´úÂë½ØÆÁ£¬ÔÙ´òÓ¡½ØÆÁͼÏñ ÓÃBitbltÓ¦¸Ã¿ÉÒÔ. ¸´ÖÆ£ºBitBlt£¬±£´æ£ºSavePicture£¬´òÓ¡£ºPrinter.PaintPicture ÆäʵºÜ¼òµ¥£¡²»¹ÜץͼҲºÃ£¬»¹ÊÇBitbltÒ²ºÃ£¬¶¼Ö»Äܲ¶×½µ½¿É¼ûÇøÓò¡£ÓÐÒ»¸ö×î¼òµ¥µÄ°ì·¨£º½«Òª×¥µÄͼƬ·Åµ½ÁíÍâÒ»ÕÅPictureBoxÖУ¬AutoSizeºÍAutoRedraw¶¼ÉèΪtrue£¬VisbleÉèΪfalse£¬È»ºóÓÃSavePicture±£´æÎªÎļþ¡£ ±£´æÍêºóÇå³ýͼƬ£ºÓÃCLSÊôÐÔ Ê¹ÓÃBitBlt°ÑͼƬ¿òµÄËùÓÐÄÚÈÝ´æÈëÒ»¸öеÄͼƬ¿ò£¬Õâ¸öͼƬ¿òµÄAutoSizeºÍAutoRedraw¶¼ÉèΪTrue£¬È»ºóÔÙ¶ÔÕâ¸öͼƬ¿ò²Ù×÷£¿ ºÇºÇ£¬Ë¼Â·¶øÒÑ£¬Ã»ÓоßÌå²Ù×÷¹ý¡£¡£¡£ Â¥Ö÷ÎÒÀ´°ïÄãÆ´Ãü¶¥£¡ [color=#FFFFFF] [/color]ÒýÓà ¥Ö÷ÎÒÀ´°ïÄãÆ´Ãü¶¥£¡ up...................... 8Â¥ºÜÇ¿´ó£¡ Ö»ÒªÉèÖÃÁË AutoRedraw ¾Í¿ÉÒÔÓà Image ½øÐдòÓ¡Êä³ö VB code: Option Explicit Private Sub Command1_Click() Printer.PaintPicture Picture1.Image, 100, 100 Printer.EndDoc End Sub Private Sub Form_Load() Picture1.AutoRedraw = True Picture1.ScaleMode = vbPixels Picture1.BackColor = vbWhite Picture1.ForeColor = vbBlack Picture1.Print "Hell
Ïà¹ØÎÊ´ð£º
Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË.. Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html תΪVB.NETÔ´Âë. СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏ ÎÒµÄEMAILÊÇ:4452 ......
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£ ´úÂëÈçÏ£º VB code: Private Function getFile_CMD(filename, filepath) As Bo ......
ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡ ·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡ ¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ Ö±½Óµ÷²éÓþͿÉÒÔÁË Ãæ¶ÔÃÀÅ® ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£© ¾¹È»²»ÊÇzero¡£ ²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»° Õâ¸öÖ»ÄܶÁÎı¾, VB code: Private Sub Command1_Click() Dim WordApp As Object Set WordApp = CreateObject(& ......