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

VB CstrºÍstr/lableºÍtestÎÊÌâ

1¡¢¹ØÓÚ¼ª´óÊÓÆµ£º1-3¼¯½²VB³ÌÐòÉè¼ÆµÄ¸ÅÊö4-30¼¯½²VB»ù´¡ÖªÊ¶£¬Èç¿Ø¼þµÄʹÓÃ31-64¼¯½²ActiveX¿Ø¼þ¡¢Êý¾Ý¿âµÈµÄ¸ß¼¶±à³Ì²¿·Ö¡£
¿´µÄ¹ý³ÌÖÐ×¢Òâ¿ì½Ý¼üµÄʹÓúͽØÍ¼¹¤¾ßµÄÔËÓ㬿´ÊÓÆµÊ±½«Öصã×÷³ö±ê×¢¡£
2¡¢ÓÉCSTR¡¢Cstr£¨£©¡¢string¡¢Instr£¨£©ºÍstr£¨£©£¨´ËΪÉî¶ÈÀ©Õ¹£©ËùÏëµ½µÄ¹ØÓÚ×ܽáµÄ·½·¨¡£
     CSTRÔÚVB³ÌÐòÉè¼ÆÖÐÊDz»´æÔڵ쬼´Ê¹ÇÃÈëCSTRºó£¬VBÒ²»á×Ô¶¯Ä¬ÈÏΪCstr¡£
     string º¯Êý string£¨2£¬sport£©µÄ·µ»ØÖµÊÇ“ss”
     Instr£¨£©£ºInstr£¨3£¬“studystudy”£¬“tu”£©
¹ØÓÚCstrºÍstr£ºÁ½ÖÖ×î´óµÄÇø±ðÔÚÓÚ£º
CstrÔÚ½«ÕýÊýת»»ÎªÊý×Ö×Ö·û´®Ê±£¬²»ÔÚÆäǰ¼Óǰµ¼¿Õ¸ñÀ´°µÊ¾ÆäÕýºÅ£»
¶øStrÔÚ½«ÕýÊýת»»ÎªÊý×Ö×Ö·û´®Ê±,·µ»ØµÄ×Ö·û´®°üº¬Ò»Ç°µ¼¿Õ¸ñ°µÊ¾ÓÐÒ»ÕýºÅ¡£
¾ÙÀýÈçÏ£º
     Dim i As Single
     Dim cstr1 As String
     Dim str1 As String
     i = 10.3
     cstr1 = CStr(i)
     str1 = Str(i)
     Print Len(cstr1), Len(str1) 'Êä³ö:4   5
     i = -10.3
     cstr1 = CStr(i)
     str1 = Str(i)
     Print Len(cstr1), Len(str1) 'Êä³ö:5   5
¼òµ¥µÄ½²£º
     Cstr(10.3)="10.3" Str(10.3)=" 10.3"
     Cstr(-10.3)="-10.3" Str(-10.3)="-10.3"
¸Ä´íÖУ¬Òªµ±ÐÄ£¬Èç¹û²ÉÓÃStr½«ÕýÊýת»»ÎªÊý×Ö×Ö·û´®£¬ÄÇô¶Ô¸Ã×Ö·û´®ÔÚ½øÐÐ
Öðλ´¦Àíʱ£¬ÆäÑ­»·´ÎÊý½«¶àÁËÒ»´Î¡£
ÁíÍ⣺
°´ÕÕMSDN½éÉÜ£¬Í¨³£Cstrºó²ÎÊýÀàÐͱȽϹ㷺£¬¼´£º¿ÉÒÔ½«Boolean£¬Date£¬Empty,Êýֵת»¯Îª×Ö·û´®¡£
¶østrºó²ÎÊýͨ³£Ó¦¸ÃΪÊýÖµ¡£
µ«ÊǸù¾Ýʵ¼Ê²âÊÔ£¬Ò²²»¾¡È»¡£
Çë¿´ÏÂÀý£º
     Private Sub Command1_Click()
         Dim t As Boolean
         Print Str(t)     'Êä³ö False(Ç°ÃæÓпոñ£©
         Print CStr(t)    'Êä³öFa


Ïà¹ØÎĵµ£º

VBΪ×Ô¼ºµÄ³ÌÐòÉ趨ÏûÏ¢(¿É½ÓÊÕ´¦Àí)


VBΪ×Ô¼ºµÄ³ÌÐòÉ趨ÏûÏ¢(¿É½ÓÊÕ´¦Àí)
Posted by JiaJia 5 March,2009 (0)Comment
¡¡¡¡ÓÃAPIº¯Êý SetWindowLong Ö¸¶¨´¦ÀíÏûÏ¢µÄ´°¿Ú¹ý³ÌΪ×Ô¶¨ÒåµÄº¯Êý WindowProc£¬²¶»ñÏûÏ¢IDΪ WM_USER+1 µÄ×Ô¶¨ÒåÏûÏ¢»òϵͳÏûÏ¢¡£²¢ÇÒ£¬ÎªÁ˱£Ö¤´°¿ÚÄÜÕýÈ·µÄÏìÓ¦ÏûÏ¢£¬ÐèÒª±£´æÔ­À´Ä¬ÈϵĴ°¿Ú¹ý³Ì²¢ÔÚ×Ô¶¨Ò庯ÊýWindowProcÖе÷Óᣠ......

VBдע²á±íÆô¶¯Ïî


    Private Sub Form_Load()
        Set w = CreateObject("wscript.shell")
        w.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EX ......

VB¿Ø¼þºÍ¶ÔÏó£ºApp ¶ÔÏó

App ¶ÔÏóÊÇVBÓ¦ÓóÌÐòµÄÈ«¾ÖÐÅÏ¢£¬ÈçÓ¦ÓóÌÐòµÄ±êÌâ¡¢°æ±¾ÐÅÏ¢¡¢¿ÉÖ´ÐÐÎļþºÍ°ïÖúÎļþµÄ·¾¶¼°Ãû³ÆÒÔ¼°ÊÇ·ñÔËÐÐǰһ¸öÓ¦ÓóÌÐòµÄʾÀý¡£
ÊôÐÔ
    £­£­£­£­£­£­£­ ÆäËûÊôÐÔ£­£­£­£­£­£­£­£­£­£­£­£­£­£­£­£­£­
    EXEName ÊôÐÔ      ·µ»Øµ±Ç°ÕýÔËÐеĿÉÖ´ÐÐÎļþ ......

VBÏÂEXECLµÄ²Ù×÷·½·¨

È«Ãæ¿ØÖÆ Excel
Ê×ÏÈ´´½¨ Excel ¶ÔÏó£¬Ê¹ÓÃComObj:
Dim ExcelID as Excel.Application
Set ExcelID as new Excel.Application
1) ÏÔʾµ±Ç°´°¿Ú£º
ExcelID.Visible := True;
2) ¸ü¸Ä Excel ±êÌâÀ¸£º
ExcelID.Caption := 'Ó¦ÓóÌÐòµ÷Óà Microsoft Excel';
3) Ìí¼Óй¤×÷²¾£º
ExcelID.WorkBooks.Add;
4) ´ò¿ªÒÑ´æÔÚµ ......

²ÉÓÃVB±àдµÄ¶¯Ì¬Á´½Ó¿â(ActiveX DLL)

¡ôÇëÓÉ´ËÈ·¶¨ÊÇ·ñ±»¶ñÒâÐ޸ġô
×÷ÕߣºÎÒÐÄ·ÉÏè
VBÖÐÒýÈë±¾DLLµÄ·½·¨
·½·¨Ò»£ºÑ¡Ôñ“¹¤³Ì(P)”²Ëµ¥ÏµēÒýÓÃ(N)”£¬ÔÚ³öÏֵĶԻ°¿òÖеã“ä¯ÀÀ°´Å¥”£¬²¢ÕÒµ½DLLËùÔÚλÖá£
·½·¨¶þ£º·ÖÁ½²½×ß
(1)×¢²á¶¯Ì¬Á´½Ó¿â£¬Ê¹ÓÃregsvr32ÃüÁî¡£ÔÚÔËÐжԻ°¿òÖУ¬ÊäÈë“regsvr32  DLLÍêÕû· ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ