ÓÃvbµÄ´úÂë±àд¼ôÇаå,ÊÇÓÃÀ´¼ôÇÐͼƬµÄ
ÓÃvbµÄ´úÂë±àдһ¸öÄܼôÇÐͼƬµÄ¼ôÇаå!!
ÀýÈç:ÓÃ×Ô¼º±àµÄ¼ôÇаå´úÌæÏÂÃæµÄ¼ôÇаå
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_PASTE = &H302
Private Sub Command1_Click()
Clipboard.SetData LoadPicture("c:\1.bmp") 'Clipboard¾ÍÊǼôÇаå ,ÓÃ×Ô¼º±àµÄ¼ôÇаå´úÌæËü
SendMessage RichTextBox1.hwnd, WM_PASTE, ByVal 0&, ByVal 0& '
End Sub
ѧϰ£¬Ñо¿Ò»Ï¡£¶¥
ÈçÐèÒªÔĶÁ¸Ã»Ø¸´£¬ÇëµÇ¼»ò×¢²áCSDN!
Ïà¹ØÎÊ´ð£º
vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?
°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌøתµ½´íÎóÐÐ
²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.
ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......
ÓÃVBÔõôֻÕë¶Ôwindows×Ô´øµÄÎļþµÄÓÒ¼üÌí¼Ó²Ëµ¥ È磨.txt .doc)
Õâ¸öÊÇÖ»Õë¶ÔÒÔÕâÁ½¸öΪÀ©Õ¹ÃûµÄÎļþ²Ù×÷
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\txtfile\shell\[Ëæ±ãÆðÃû]\command]
@= ......
.netÀïÃæÓÐûÓÐÏñvbÀïµÄrichtextbox¿Ø¼þ°¡£¿
Óеġ£Ãû×ÖÒ²²î²»¶à¡£RichEdit »òÕß RichTextBox¡£
winfromÏîÄ¿Öй¤¾ßÏäÓеİÉ
webformûµÄ£¬Ö»ÓÐwinÓÐ
web¿ÉÒÔÓÃfckedit
ÒýÓÃ
webformûµÄ£¬Ö»ÓÐwinÓÐ ......