VBʵʱ½ØÈ¡´°ÌåºóÃæµÄͼ×÷Ϊ´°Ìå±³¾°
Ò²ÊǾÍVB¼Ù͸Ã÷Ч¹û,ºÇºÇ
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Private Sub Form_Load() Me.Hide Me.AutoRedraw = True BitBlt Me.hDC, 0, 0, Screen.Width, Screen.Height, GetDC(0), 0, 0, vbSrcCopy sFile$ = "C:\" & Format(Now, "yyyymmddhhmmss") & ".BMP" SavePicture Me.Image, sFile MsgBox "µ±Ç°ÆÁĻͼÏñÒѾ±£´æµ½" & sFile, 64 End End Sub ½ØÈ¡Ç°£¬½«±¾Éí×îС»¯ http://download.csdn.net/source/987375 ÎÒ·¢µÄÄǸöºÃÏñ²»¶Ô£¬Ò²Ã»×Ðϸ¿´£¬ºÇºÇ http://topic.csdn.net/t/20030725/12/2070709.html 1Â¥´úÂëºÃÏñ²»Ì«ºÏÊÊ ÈýÂ¥µÄ,ÕýÔÚ¿´ ²»ºÏÊÊ˵³öÀ´,ÎÒÔÙ°ïÄãÕÒ ÒýÓà ÈýÂ¥µÄ,ÕýÔÚ¿´ ¿´ÍêÁË,Ò²²»Ì«ÊµÓà ÎÒÔÚ´°ÌåÀï·ÅÁËÒ»¸öflash¿Ø¼þ²¢Éè³É͸Ã÷µÄ£¬ÏÖÔÚÏë°Ñ±³¾°Ò²¸ã͸Ã÷£¬Ö±½Ó͸Ã÷ºÃÏñ×ö²»µ½£¬ËùÒÔÏëµ½ÁËҪʵʱ½ØÆÁ£¬ºÇºÇ£¬ËãÊǷ´°¿Ú͸Ã÷°É ÄÇÊÇÄãû°ÑÎÊÌâ˵Çå³þ Õ¾ÄÚ×Ô¼ºËÑË÷Ò»ÏÂ"͸Ã÷´°Ìå" ÒýÓà ÎÒÔÚ´°ÌåÀï·ÅÁËÒ»¸öflash¿Ø¼þ²¢Éè³É͸Ã÷µÄ£¬ÏÖÔÚÏë°Ñ±³¾°Ò²¸ã͸Ã÷£¬Ö±½Ó͸Ã÷ºÃÏñ×ö²»µ½£¬ËùÒÔÏëµ½Á
Ïà¹ØÎÊ´ð£º
ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿ VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿ 1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿ 2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......
Printer.ScaleMode = 6 6±íʾºÁÃ× Printer.PaperSize = vbPRPSA4 '³õʼ×ø±ê x = 1 y = 4 '×î´óµÄÏß¿ð Printer.DrawStyle = 0 Printer.Line (x, y)-(x + 132.5, y) ......
"insert into user1(name,age) values('" & Text1.Text & "','" & Text2.Text & "' )" ÎÊÌ⣺¶ÔsqlÓï¾äÖе¥¡¢Ë«ÒýºÅÄ£ºý¡£¼ÈÈ» Text1.Text¾Í±íʾ ......
ÌâÄ¿ÃèÊöÓ¦¸Ã²»ÊǺÜ׼ȷ¡£ ÏÖ×´ÊÇ£º¼ÙÈçÒ»¸öÎı¾Îļþ¹²100ÐУ¬ÄÇôÎÒÑ»·´ÎÊý×î´ó¾ÍÊÇ100×100=10000Ï£¬»¨·Ñʱ¼ä·Ç³£¶à£¬ÇëÎÊÓÐûÓа취Äܹ»Ìá¸ß¶ÔÎı¾ÎļþµÄÑ»··ÃÎÊËٶȡ£·ÇÊý¾Ý¿â¼¼Êõ¡£ ÄãҪѻ·×öʲô£ ......
ÓÃVBÔõôֻÕë¶Ôwindows×Ô´øµÄÎļþµÄÓÒ¼üÌí¼Ó²Ëµ¥ È磨.txt .doc) Õâ¸öÊÇÖ»Õë¶ÔÒÔÕâÁ½¸öΪÀ©Õ¹ÃûµÄÎļþ²Ù×÷ Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOT\txtfile\shell\[Ëæ±ãÆðÃû]\command] @= ......