VBÈçºÎÉú³ÉWINDOW XP·ç¸ñ½çÃ棡
ËäÈ»WindowsXPµÄ½çÃæ·Ç³£»ªÀö¡£µ«ÊÇÁîÈËÒź¶µÄÊÇ£¬ÎÒÃÇÓÃVBдµÄ³ÌÐò³ýÁ˲˵¥ºÍ´°¿ÚµÄÍâ¹ÛÊÇXP·ç¸ñÍ⣬ÆäËû¿Ø¼þ»¹ÊÇÒ»Èç¼ÈÍùµÄÊÇÆÕͨ·ç¸ñ¡£ÎÒÏ룬ÓеijÌÐòÔÚXPÏÂÓÐXPµÄ·ç¸ñ£¬VBÒ²Ò»¶¨Óа취ʵÏÖXPµÄ·ç¸ñ¡£ºóÀ´±ÊÕßÔÚÍøÉÏ¿´µ½Ò»Æª½éÉÜXMLµÄÎÄÕ£¬ÓÖÔÚÍøÉÏÕÒµ½ÁËһƪʵÏÖXP·ç¸ñµÄÎÄÕ£¬¾¹ý×Ô¼ºµÄʵ¼ù£¬ÖÕÓÚÕÒµ½ÁËVB³ÌÐòʵÏÖXP·ç¸ñµÄ°ì·¨¡£ÎªÁËʹÆäËûµÄÍøÓѲ»ÖÁÓÚ×ßÏñÎÒÕâÑùµÄ¶àµÄÍä·£¬½«´Ë°ì·¨Ð´³öÀ´£¬Óë´ó¼Ò¹²Í¬Ìá¸ß£¡£¡
¾ßÌåµÄʵÏÖ·½·¨ÈçÏ£º
¢Ù£ºÔÚÄãµÄ´°Ìå¼ÓÈë´úÂë¡£Èç¹ûÊǶà¸ö´°¿Ú£¬¿ÉÒÔ½«´Ë´úÂë·Åµ½Ä£¿éÖС£
´úÂëÈçÏ£º
'ÉùÃ÷APIº¯Êý
Private Declare Sub InitCommonControls Lib "comctl32.dll" ()
Private Sub Form_Initialize()
InitCommonControls
End Sub
×¢Ò⣺ǧÍò²»ÒªÔÚForm_load()ʼþÏÂдInitCommonControlsÕâ¾ä»°£¬·ñÔòÄãµÄ´°Ìå»áÆô¶¯²»ÁË¡££¨²»Òª¹ÖÎÒû¸æËßÄã°¡~~~~£©
¡¡
¢Ú£º½¨Á¢Ò»¸öºÍÄãµÄ.exeͬÃûµÄ.exe.manifestÎļþ£¨¼ÙÈ磺Èç¹ûÄã×îºó±àÒëºÃµÄÎļþÃûΪWindowXPStyle.exe£¬Ôò½¨Á¢Ò»¸öÎļþÃûΪWindowXPStyle.exe.manifestµÄÎļþ£©£¬²¢ÇÒ´ËÎļþ±ØÐë´æÔÚÓÚºÍÄãExeÎļþµÄͬһĿ¼Ï¡£
¡¡
ÒÔWindowXPStyle.exeΪÀý£¬ÔòÕâ¸öWindowXPStyle.exe.manifestµÄÎļþµÄÄÚÈÝÈçÏ£º
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
version="1.0.0.0"
processorArchitecture="X86"
name="CompanyName.ProductName.YourApp"
type="win32"
/>
<description>Your app
Ïà¹ØÎĵµ£º
1. ÀûÓÃ×ÊÔ´Îļþ±£´æ¹ú¼Ê»¯Áбí
2.“Íâ½Ó³ÌÐò”--“Íâ½Ó³ÌÐò¹ÜÀíÆ÷”--“VB6 ×ÊÔ´±à¼Æ÷”¾Í¿ÉÒÔ±à¼×ÊÔ´Îļþ
3.²¿·Ö´úÂë
'´°Ìå¼ÓÔØ
Private Sub Form_Load()
Dim LocaleID As Long
LocaleID = GetSystemDefaultLCID
Select Case LocaleID
'Ó¢ÎÄ
......
vb¿ª·¢Èí¼þÊÇÔÚÒ»¶¨µÄ»·¾³Ï½øÐеģ¬Èçvisual basic 6.0 mssql»òaccessµÈ£¬µ«ÊÇ×îÖÕÈí¼þÒª¸ø¹ã´óȺÖÚʹÓ㬱ðÈ˲»¿ÉÄܶ¼°²×°ÕâЩ¶«Î÷£¬ËùÒÔÐèÒª´ò°ü£¬Éú³É°²×°Îļþ£¬¾ÍÏëÎÒÃÇÏÂÔصĺܶలװ³ÌÐò£¬¶¼ÊÇ´ò°üºóµÄ½á¹û£¡
µ«ÊÇÖµµÃ×¢ÒâµÄÊÇ£¬´ò°üµÄ¹ý³ÌÖУ¬ÓÐÌí¼Ó£¬É¾³ý×é¼þ¹©ÄãÑ¡Ôñ£¬Èç¹ûÓõ½Ïà¶Ô·¾¶£¬¸½¼þ£¬ÍâÁªµ ......
'¶ÁÊý¾Ýµ½¶þ½øÖÆ×Ö¶Î
Public Sub ReadfromBLOB(filed As ADODB.Field, Filen As String)
Dim DataFile As Integer, Fl As Long, Chunks As Integer
Dim Fragment As Integer, Chunk() As Byte, i As Integer
'´«ËͿ鵥λ´óС
Const ChunkSize As Integer = 16384
Dim MediaTemp As String
Dim lngOffset As Long
Di ......
VB¸ù¾Ý´°¿Ú±êÌâ»ñÈ¡Ó¦ÓóÌÐòÍêÕû·¾¶(À´×ÔÍøÂç)
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId A ......
ºÜ¶àÄêÇ°¾ÍÏë×öÒ»¸öÔ¶³Ì¿ØÖƵÄÈí¼þ£¬Ö»ÊÇÒ»Ö±ÒÔÀ´Í¼Æ¬µÄѹËõËÙ¶È×ÜÊÇÌáÉý²»ÉÏÈ¥£¬¶øÎÒÒ²²Î¿¼¹ýºÜ¶àÍøÉϵĹØÓÚͼƬѹËõµÄÀý×Ó£¬±ÈÈçzyl910µÄGIF_LZWѹËõ·½·¨£¬HuffmanѹËõ·½·¨£¬ÒÔÖÁµ½GDI+µÄÖ±½ÓÉú³ÉJPG¡¢PNGµÄ·½·¨£¨ÕâÖÖ·½·¨ÎÞÂÛ´ÓѹËõÂʺÍËÙ¶ÈÉ϶¼ÊÇ×î¼ÑµÄ£¬¿ÉϧÕâÖÖ·½·¨ÍøÉÏһֱûÕÒµ½Ö±½Ó±£´æΪByte()µÄÀý×Ó£¬¼ûµÃ×î¶àµÄ ......