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

ÔÚVB Öе÷Óö¯Ì¬Á¬½Ó¿â


ÔÚVB Öе÷Óö¯Ì¬Á¬½Ó¿â
 
2001-11-08· · ··yesky
1 2 3 4 5 6 7 8  ÏÂÒ»Ò³
¡¡¡¡×÷ΪһÖÖ¼òµ¥Ò×ÓõÄWindows¿ª·¢»·¾³£¬Visual Basic´ÓÒ»ÍÆ³ö¾ÍÊܵ½Á˹ã´ó±à³ÌÈËÔ±µÄ»¶Ó­¡£Ëüʹ ³ÌÐòÔ±²»±ØÔÙÖ±½ÓÃæ¶Ô·×·±¸´ÔÓµÄWindowsÏûÏ¢£¬¶ø¿ÉÒÔ½«¾«Á¦Ö÷Òª¼¯ÖÐÔÚ³ÌÐò¹¦ÄܵÄʵÏÖÉÏ£¬´ó´óÌá¸ßÁ˱à³ÌЧÂÊ¡£µ«·²ÊÂÓÐÀû±ØÓбס£VBÖи߶ȵķâ×°ºÍÄ£¿é»¯¼õÇáÁ˱à³ÌÕߵĸºµ££¬Í¬Ê±Ò²Ê¹¿ª·¢ÈËԱʧȥÁËÐí¶à·ÃÎʵͲãAPIº¯ÊýºÍÖ±½ÓÓëWindows½»»¥µÄ»ú»á¡£Òò´Ë£¬Ïà±È¶øÑÔ£¬VBÓ¦ÓóÌÐòµÄÖ´ÐÐЧÂʺ͹¦ÄܱÈC/C++»òDelphiÉú³ÉµÄ³ÌÐòÒª²î¡£ÎªÁ˽â¾öÕâ¸öÎÊÌ⣬ÔÚÒ»¸ö´óÐ͵ÄVB¿ª·¢Ó¦ÓÃÖУ¬Ö±½Óµ÷ÓÃWindows APIº¯Êý¼¸ºõÊDz»¿É±ÜÃâµÄ£»Í¬Ê±£¬»¹ÓпÉÄÜÐè Òª³ÌÐòÔ±×Ô¼ºÓÃC/C++µÈ¿ª·¢Ò»Ð©¶¯Ì¬Á¬½Ó¿â£¬ÓÃÓÚÔÚVBÖе÷Óᣱ¾ÎÄÖ÷ÒªÌÖÂÛÔÚ32λ¿ª·¢»· ¾³Visual Basic 5.0ÖÐÖ±½Óµ÷ÓÃWindows 95 APIº¯Êý»òÓû§Éú³ÉµÄ32λ¶¯Ì¬Á¬½Ó¿âµÄ·½·¨ Óë¹æÔò¡£
¡¡¡¡Windows¶¯Ì¬Á¬½Ó¿âÊǰüº¬Êý¾ÝºÍº¯ÊýµÄÄ£¿é£¬¿ÉÒÔ±»ÆäËü¿ÉÖ´ÐÐÎļþ£¨EXE¡¢DLL¡¢OCX µÈ£©µ÷Ó᣶¯Ì¬Á¬½Ó¿â°üº¬Á½ÖÖº¯Êý£ºÊä³ö£¨exported£©º¯ÊýºÍÄÚ²¿£¨internal£©º¯Êý¡£Êä³öº¯Êý¿ÉÒÔ±»ÆäËüÄ£¿éµ÷Ó㬶øÄÚ²¿º¯ÊýÔòÖ»ÄÜÔÚ¶¯Ì¬Á¬½Ó¿âÄÚ²¿Ê¹Ó᣾¡¹Ü¶¯Ì¬Á¬½Ó¿âÒ²ÄÜÊä³ö Êý¾Ý£¬µ«Êµ¼ÊÉÏËüµÄÊý¾Ýͨ³£ÊÇÖ»ÔÚÄÚ²¿Ê¹Óõġ£Ê¹Óö¯Ì¬Á¬½Ó¿âµÄÓŵãÊÇÏÔ¶øÒ×¼ûµÄ¡£½«Ó¦ ÓóÌÐòµÄÒ»²¿·Ö¹¦ÄÜÌáÈ¡³öÀ´×ö³É¶¯Ì¬Á¬½Ó¿â£¬²»µ«¼õСÁËÖ÷Ó¦ÓóÌÐòµÄ´óС£¬Ìá¸ßÁ˳ÌÐò ÔËÐÐЧÂÊ£¬»¹Ê¹Ëü¸ü¼ÓÒ×ÓÚÉý¼¶¡£¶à¸öÓ¦ÓóÌÐò¹²ÏíÒ»¸ö¶¯Ì¬Á¬½Ó¿â»¹ÄÜÓÐЧµØ½Úʡϵͳ×Ê Ô´¡£ÕýÒòΪÈç´Ë£¬ÔÚWindowsϵͳÖУ¬¶¯Ì¬Á¬½Ó¿âµÃµ½ÁË´óÁ¿µÄʹÓá£
¡¡¡¡Ò»°ãÀ´Ëµ£¬¶¯Ì¬Á¬½Ó¿â¶¼ÊÇÒÔDLLΪÀ©Õ¹ÃûµÄÎļþ£¬ÈçKernel32.dll¡¢commdlg.dllµÈ¡£µ«Ò²ÓÐÀýÍ⣬Èç16λWindowsµÄºËÐIJ¿¼þÖ®Ò»GDI.exeÆäʵҲÊÇÒ»¸ö¶¯Ì¬¿â¡£±àд¶¯Ì¬Á¬½Ó¿âµÄ¹¤¾ßºÜ¶à£¬ÈçVisualC++¡¢BorlandC++¡¢DelphiµÈ£¬¾ßÌå·½·¨¿ÉÒԲμûÏà¹ØÎĵµ¡£ÏÂÃæÖ»ÒÔVisual C++5.0ΪÀý£¬½éÉÜһϿª·¢Ó¦ÓÃÓÚVisualBasic5.0µÄ¶¯Ì¬Á¬½Ó¿âʱӦעÒâµÄÎÊÌ⣨±¾ÎÄÖÐËùÓÐÉæ¼°C/C++ÓïÑÔ»ò±àÒë»·¾³µÄµØ·½£¬¶¼ÒÔVC5ΪÀý£»ËùÓÐÉæ¼°VisualBasicµÄµØ·½¶¼ÒÔVB5 ΪÀý£©¡£
¡¡¡¡×÷ΪһÖÖ32λWindowsÓ¦ÓóÌÐòµÄ¿ª·¢¹¤¾ß£¬VB5Éú³ÉµÄexeÎļþ×ÔȻҲ¶¼ÊÇ32λµÄ£¬Í¨³£Çé¿öÏÂÒ²Ö»Äܵ÷ÓÃ32λµÄ¶¯Ì¬Á¬½Ó¿â¡£µ«ÊÇ£¬²¢²»ÊÇËùÓеÄ32λ¶¯Ì¬¿â¶¼Äܱ»VBÉú³ÉµÄexe ÎļþÕýÈ·µØÊ¶±ð¡£Ò»°ãÀ´Ëµ£¬×Ô¼º±àдÓÃÓÚVBÓ¦ÓóÌÐòµ÷ÓõĶ¯Ì¬Á¬½Ó¿âʱ£¬Ó¦×¢ÒâÒÔϼ¸¸ö·


Ïà¹ØÎĵµ£º

VBÃüÃû¹æÔò¼°´úÂë¹æ·¶

VBA
ÃüÃû¹æÔò¼°´úÂë¹æ·¶
 
Âíά·å
(maweifeng@263.net
)
 
1.      
VBA
ÃüÃû¹æÔò
Ò»¸öºÃµÄÃüÃû¹æÔò¿ÉÒÔÌá¸ß³ÌÐòµÄ¿É¶ÁÐÔ£¬¼õÉÙ´íÎó·¢ÉúµÄ¸ÅÂÊ£¬ÃüÃû¹æÔò²»ÊÇÒ»¶¨µÄ£¬²»Í¬µÄÈËÓв»Í¬µÄ¹æÔòºÍϰ¹ß£¬µ«ÔÚ±à³Ì¹ý³ÌÖУ¬¶ÔÓÚ¸öÈË»ò¹¤×÷×飬һ¶¨Òª×ñÊØÏàͬµÄÃüÃû¹æÔò¡£
1.1. ......

VB ϵͳÈȼüʵÏÖ£¨Ä£¿é£©

µ÷Ó÷½·¨ºÜ¼òµ¥£¬ÔÚFormÖÐÈçÏÂÊéд´úÂ룺
Private Sub Form_Load()
SetHotkey 1, "Ctrl,112", "Add" '°´ Ctrl+F1 ¼¤»îÖ¸¶¨³ÌÐò£¬F1µÄAsciiÂëΪ112
SetHotkey 2, 113, "Add" '°´ F2 ¼¤»îÖ¸¶¨³ÌÐò£¬F2µÄAsciiÂëΪ113
SetHotkey 3, "Ctrl+Alt,113", "Add" '°´ Ctrl+Alt+F2 ¼¤»îÖ¸¶¨³ÌÐò£¬F2µÄAsciiÂëΪ113
End Sub
Priva ......

VB¹ýÂËÖÐÎÄ×Ö·û´®Ô´Âë

Ìí¼Ó
Á½¸öTEXT(multiline=true)
Ò»¸ö°´Å¥
Private Function isChinese(ByVal asciiv) As Boolean
a = AscW(asciiv)
If Len(Hex$(a)) > 2 Then
isChinese = True
Else
isChinese = False
End If
End Function
Private Sub Command1_Click()
text2.text="" 'ÏÈÇå¿Õtext2
For i = 1 To Len(Text1.Text)
DoEve ......

VB coding

1.ÓÃVB6ÅжÏÎļþ´æÔÚÃî·¨
ÔÚ±à³Ìʱ¾­³£»áÓõ½ÅжÏÎļþÊÇ·ñ´æÔÚ£¬±ÈÈç¶ÔÎļþ×ö¶Áд²Ù×÷ǰ£¬»òÊÇÅжÏÃÜÔ¿ÎļþÊÇ·ñ´æÔڵȡ£Åжϵķ½·¨Óкܶ࣬ÓÐЩ·½·¨ËäºÜʵÓ㬵«Óе㷱Ëö¡£Æäʵ»¹¿ÉÒÔÓиü¼òµ¥µÄ·½·¨£¬¾ÍÊÇʹÓÃVB 6.0ÌṩµÄFileSystemObject¶ÔÏó¡£
¡¡¡¡FileSystemObject¶ÔÏó²»ÊÇVBÄÚÖöÔÏó£¬Ê¹ÓÃǰ±ØÐëÊ×ÏÈÑ¡Ôñ[¹¤³Ì]&rar ......

VBÖÐÀûÓÃCopyMemoryʹÓÃÖ¸Õë


VBÖÐÀûÓÃCopyMemoryʹÓÃÖ¸Õë
¡¡¡¡Ò»¡¢Ö¸ÕëÊÇʲô£¿
¡¡¡¡²»ÐèҪȥÕÒʲô±ê×¼µÄ¶¨Ò壬Ëü¾ÍÊÇÒ»¸ö32λÕûÊý£¬ÔÚCÓïÑÔºÍÔÚVBÀï¶¼¿ÉÒÔÓÃLongÀàÐÍÀ´±íʾ¡£ÔÚ32λWindowsƽ̨ÏÂËüºÍÆÕͨµÄ32볤ÕûÐÍÊýûÓÐʲô²»Í¬£¬Ö»²»¹ýËüµÄÖµÊÇÒ»¸öÄÚ´æµØÖ·£¬ÕýÊÇÒòΪÕâ¸öÕûÊýÏóÕëÒ»ÑùÖ¸ÏòÒ»¸öÄÚ´æµØÖ·£¬ËùÒÔ¾ÍÓÐÁËÖ¸ÕëµÄ¸ÅÄî¡£
¡¡¡¡ÓÐÍ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ