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

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


Ïà¹ØÎĵµ£º

VB ʵÏÖ¹ú¼Ê»¯

1. ÀûÓÃ×ÊÔ´Îļþ±£´æ¹ú¼Ê»¯Áбí
2.“Íâ½Ó³ÌÐò”--“Íâ½Ó³ÌÐò¹ÜÀíÆ÷”--“VB6 ×ÊÔ´±à¼­Æ÷”¾Í¿ÉÒԱ༭×ÊÔ´Îļþ
3.²¿·Ö´úÂë
  '´°Ìå¼ÓÔØ
Private Sub Form_Load()
Dim LocaleID As Long
  LocaleID = GetSystemDefaultLCID
  Select Case LocaleID
   'Ó¢ÎÄ ......

vb´ò°üÏòµ¼ Éú³É°²×°Îļþ

vb¿ª·¢Èí¼þÊÇÔÚÒ»¶¨µÄ»·¾³Ï½øÐеģ¬Èçvisual basic 6.0  mssql»òaccessµÈ£¬µ«ÊÇ×îÖÕÈí¼þÒª¸ø¹ã´óȺÖÚʹÓ㬱ðÈ˲»¿ÉÄܶ¼°²×°ÕâЩ¶«Î÷£¬ËùÒÔÐèÒª´ò°ü£¬Éú³É°²×°Îļþ£¬¾ÍÏëÎÒÃÇÏÂÔصĺܶలװ³ÌÐò£¬¶¼ÊÇ´ò°üºóµÄ½á¹û£¡
µ«ÊÇÖµµÃ×¢ÒâµÄÊÇ£¬´ò°üµÄ¹ý³ÌÖУ¬ÓÐÌí¼Ó£¬É¾³ý×é¼þ¹©ÄãÑ¡Ôñ£¬Èç¹ûÓõ½Ïà¶Ô·¾¶£¬¸½¼þ£¬ÍâÁªµ ......

vb ±£´æͼƬµ½Êý¾Ý¿â

'¶ÁÊý¾Ýµ½¶þ½øÖÆ×Ö¶Î
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¸ù¾Ý´°¿Ú±êÌâ»ñÈ¡Ó¦ÓóÌÐòÍêÕû·¾¶(À´×ÔÍøÂç)

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 ......

[VB]GDI+ IStream¡¢StdPicture¡¢Byte() »¥×ª

ºÜ¶àÄêÇ°¾ÍÏë×öÒ»¸öÔ¶³Ì¿ØÖƵÄÈí¼þ£¬Ö»ÊÇÒ»Ö±ÒÔÀ´Í¼Æ¬µÄѹËõËÙ¶È×ÜÊÇÌáÉý²»ÉÏÈ¥£¬¶øÎÒÒ²²Î¿¼¹ýºÜ¶àÍøÉϵĹØÓÚͼƬѹËõµÄÀý×Ó£¬±ÈÈçzyl910µÄGIF_LZWѹËõ·½·¨£¬HuffmanѹËõ·½·¨£¬ÒÔÖÁµ½GDI+µÄÖ±½ÓÉú³ÉJPG¡¢PNGµÄ·½·¨£¨ÕâÖÖ·½·¨ÎÞÂÛ´ÓѹËõÂʺÍËÙ¶ÈÉ϶¼ÊÇ×î¼ÑµÄ£¬¿ÉϧÕâÖÖ·½·¨ÍøÉÏһֱûÕÒµ½Ö±½Ó±£´æΪByte()µÄÀý×Ó£¬¼ûµÃ×î¶àµÄ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ