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

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²»Äܵ÷ÓÃ

ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿

1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......

vb´òÓ¡ÎÊÌâ


Printer.ScaleMode = 6
6±íʾºÁÃ×
Printer.PaperSize = vbPRPSA4

'³õʼ×ø±ê
x = 1
y = 4


'×î´óµÄÏß¿ð
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......

vbÖÐsqlÓï¾äÒýºÅÎÊÌâ

"insert into user1(name,age) values('" & Text1.Text & "','" & Text2.Text & "' )"
ÎÊÌ⣺¶ÔsqlÓï¾äÖе¥¡¢Ë«ÒýºÅÄ£ºý¡£¼ÈÈ» Text1.Text¾Í±íʾ ......

VB ÔõôÄÜÌá¸ßÎı¾ÎļþµÄÑ­»·ËÙ¶È

ÌâÄ¿ÃèÊöÓ¦¸Ã²»ÊǺÜ׼ȷ¡£
ÏÖ×´ÊÇ£º¼ÙÈçÒ»¸öÎı¾Îļþ¹²100ÐУ¬ÄÇôÎÒÑ­»·´ÎÊý×î´ó¾ÍÊÇ100×100=10000Ï£¬»¨·Ñʱ¼ä·Ç³£¶à£¬ÇëÎÊÓÐûÓа취Äܹ»Ìá¸ß¶ÔÎı¾ÎļþµÄÑ­»··ÃÎÊËٶȡ£·ÇÊý¾Ý¿â¼¼Êõ¡£
ÄãҪѭ»·×öʲô£ ......

VBÐÞ¸Ä×¢²á±í

ÓÃVBÔõôֻÕë¶Ôwindows×Ô´øµÄÎļþµÄÓÒ¼üÌí¼Ó²Ëµ¥ È磨.txt .doc)
Õâ¸öÊÇÖ»Õë¶ÔÒÔÕâÁ½¸öΪÀ©Õ¹ÃûµÄÎļþ²Ù×÷
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\txtfile\shell\[Ëæ±ãÆðÃû]\command]
@= ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ